VB--怎样才能这程序密码输错后退出,而不是继续??
来源:百度知道 编辑:UC知道 时间:2024/06/06 10:34:59
Private Sub Form_Load()
n = 3
Do While n > 0
n = n - 1
a = InputBox("请输入密码:")
If a <> "yesyun" Then
MsgBox "密码不正确,请重新输入。你还有" & Str(n) & "次机会"
Else
MsgBox "密码正确,祝您成功~!"
n = 0
End If
Loop
End Sub
能详细点吗?
其中"n = 0
End If"是什么意思?
n = 3
Do While n > 0
n = n - 1
a = InputBox("请输入密码:")
If a <> "yesyun" Then
MsgBox "密码不正确,请重新输入。你还有" & Str(n) & "次机会"
Else
MsgBox "密码正确,祝您成功~!"
n = 0
End If
Loop
End Sub
能详细点吗?
其中"n = 0
End If"是什么意思?
Private Sub Form_Load()
n = 3
Do While n > 0
n = n - 1
a = InputBox("请输入密码:")
If a <> "yesyun" Then
if n=0 then unload me
MsgBox "密码不正确,请重新输入。你还有" & Str(n) & "次机会"
Else
MsgBox "密码正确,祝您成功~!"
n = 0
End If
Loop
End Sub
exit do
可以退出do循环
在MsgBox后面加入一行 Unload Me 来结束窗体
请注意:
再这个程序中,你用到了一个vb程序设计中的 一个循环语句:Do while...Loop 和一个条件判定语句:if...then...end if;
while循环中,只有在n>0时才进行循环(Do while n>0)
也就是说:当你的密码="yesyun"时,密码正确,就不必在循环了即令:n=0 退出循环
end if 和if ... then 是固定的结构