vb高手进来帮帮忙 急啊

Private Sub Command5_Click()
Dim a() As Byte
Dim b() As Byte
Dim c() As Byte
Dim a1 As String, b1 As String, c1 As String
a = LoadResData(101, "CUSTOM")
b = LoadResData(102, "CUSTOM")
c = LoadResData(103, "CUSTOM")
a1 = StrConv(a, vbUnicode)
b1 = StrConv(b, vbUnicode)
c1 = StrConv(c, vbUnicode)
If InStr(a1, Chr(0)) > 0 Then
a1 = Left(a1, InStr(a1, Chr(0)) - 1)
End If
If InStr(b1, Chr(0)) > 0 Then
b1 = Left(b1, InStr(b1, Chr(0)) - 1)
End If
If InStr(c1, Chr(0)) > 0 Then
c1 = Left(c1, InStr(c1, Chr(0)) - 1)
End If
Form2.Text2.Text = a1 & vbCrLf & vbCrLf & vbCrLf & b1 & vbCrLf & vbCrLf & vbCrLf & c1
End Sub

改这样试试

这段代码我觉得逻辑上没问题啊，可是要生成exe的时候老是提示else没有if，呵呵，肯定有问题啦，因为你“If (zjzz6