UC知道VB中遇到一个比较简单的问题？
来源：百度知道 编辑：UC知道 时间：2024/06/15 08:35:08
Private Sub Form_Load()
Dim n
n = 1
Do
a = InputBox("请输入密码:", "密码验证", "")
If a = "123456" Then
show
FontSize = 16
Print "您好,第" & n&"次输入密码正确!"
Else
MsgBox "密码错误,第" & n& "错误,请重新输入(错误5次以上自动关闭)!" '这一句错误
If n = 5 Then End '如果n=5关闭输入窗口，不知道怎样写
n = n + 1
End If
Loop Until (a = "123456")
End Sub
上面代码实现的功能是 弹出一个输入窗口，要求输入密码，如果是123456的话，刚输入出"您好,第" & n&"次输入密码正确!" （N为次数），如果不正确，则一直输入，到第5次的时候还错误的话，则退出（退出语句不对，我认为）！
我也不知道那点错了，刚学习，好多错误找不出来！
高手给解答一下，写一个正确的代码 谢谢！
Dim n
n = 1
Do
a = InputBox("请输入密码:", "密码验证", "")
If a = "123456" Then
show
FontSize = 16
Print "您好,第" & n&"次输入密码正确!"
Else
MsgBox "密码错误,第" & n& "错误,请重新输入(错误5次以上自动关闭)!" '这一句错误
If n = 5 Then End '如果n=5关闭输入窗口，不知道怎样写
n = n + 1
End If
Loop Until (a = "123456")
End Sub
上面代码实现的功能是 弹出一个输入窗口，要求输入密码，如果是123456的话，刚输入出"您好,第" & n&"次输入密码正确!" （N为次数），如果不正确，则一直输入，到第5次的时候还错误的话，则退出（退出语句不对，我认为）！
我也不知道那点错了，刚学习，好多错误找不出来！
高手给解答一下，写一个正确的代码 谢谢！
错误的地方有两处一：
Print "您好,第" & n & "：次输入密码正确!"
在输入“&”符号的时候和其它字符要有空格
第二处：
MsgBox "密码错误,第" & n & "错误,请重新输入(错误5次以上自动关闭)!"
也是一样n和&中间没有空格，要细心，再试试吧。
还有你那个5次就退出那样就行
祝你成功