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 这段程序出错在哪?

你什么目的？这个就是点按钮MSGBOX一个Inputposswrod然后点3次就完了。。。而且没end if

是不是要求输入密码，当密码正确时，就进入应用程序，否则就要求重输入，三次后自动退出？
For i = 1 To 3
a = MsgBox("Inputposswrod", vbMsgBoxRight + vbDefaultButton2, "密码框")
If Val(a) = 1234567 Then
'进入程序
Else
a = MsgBox("Inputposswrod", vbMsgBoxRight + vbDefaultButton2, "密码框")
Next i

("Inputposswrod", 加了引号。。。。

A的val值不知道是不是0。。。

是不是要求输入密码，当密码正确时，就进入应用程序，否则就要求重输入，三次后自动退出？
如果是的话，可以考虑改为如下：

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

Private Sub Command1_Click()
For i = 1 To 3
a = inputBox("Inputposswrod", vbMsgBoxRight + vbDefaultButton2, "密码框")
If Val(a) = 1234567 Then
'进入程序
exit for
end if
Next i
end sub

我的是语法出错了。。
 难道个位没看出来吗？
   谢谢楼上的。。
      

语法什么地方错了？？运行可以，这是答不到你要的效果罢了。你运行不会提示错的吧？（+一个end if）

语法错？好像没有什么吧，
我在我的机上已可调试通过的呀
你原来的程序段当然语法错了，因为if 语句没有end if。