vb编译出错 缺少数组

Private Sub Command1_Click()
Dim a!, d(1 To 7) As Integer, i%, b$
If Len("text1.Text") <> 7 Then
i = MsgBox("准考证 输入错，重新输入", 0, "sy04-06")
If i = 1 Then
Text1.Text = ""
Text1.SetFocus
End If
End If
For i = 1 To 7
b = Str(Text1.Text)
d(i) = Left(b(i), 1)
a = d(i) * i
Next i
a = a Mod 10
Text2.Text = a & "text1.text"
End Sub

Private Sub Command2_Click()
If Len("text1.Text") <> 8 Then
i = MsgBox("准考证 输入错，重新输入", 0, "sy04-06")
If i = 1 Then
Text1.Text = ""
Text1.SetFocus
End If
End If
Text2.Text = Text1.Text
End Sub

Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

vb 编译过程中出错 急，VB编译后缺少控件问题。 vb中编译错误 缺少:语法结束什么意思 编译出错 vc++编译出错 delphi程序编译出错 java编译时出错 有关OpenGL编译出错? 编译总出错 java 编译出错