Private Sub Command1_Click() For i = 1 To 3 a = MsgBox("Inputposswrod", vbMsgBoxRight + vbDefaultButton2, "密码框") If Val(a) = 1234567 Then '进入程序 Else a = MsgBox("Inputposswrod", vbMsgBoxRight + vbDefaultButton2, "密码框") Next i

'Dim a, i As Integer 'Do While i < 3 'a = Val(Text1.Text) 'If a = 1234567 Then '进入程序 'Else 'MsgBox "密码不正确请重新输入", vbOKOnly + vbExclamation, "警告" 'End If 'Form1.Show 'i = i + 1 'Loop 'MsgBox "对不起，你不是我的主人", vbOKOnly + vbExclamation, "警告" End Sub 这段程序出错在哪?