Question

vb帐户与密码登陆的程序设计 谢谢

当密码超过3 次时，系统强制退出

Answer 1

我以前答问题时写的,你可以参考一下呵.

Dim PassNum%

Private Sub Command1_Click()

If PassNum > 3 Then
MsgBox "超过尝试次数!! 程序将被关闭!!"
End
End If

If Text1 = "123456" Then
MsgBox "密码正确,允许登录"
Else
Text1 = ""
PassNum = PassNum + 1
MsgBox "密码错误,你还有" & 3 - PassNum & "次机会了."
Text1.SetFocus
End If
End Sub

Private Sub Form_Load()
PassNum = 0
Text1 = ""
Text1.PasswordChar = "*"
Text1.MaxLength = 6
Command1.Caption = "登录"
Command1.Default = True
Me.Show
Text1.SetFocus
End Sub

Answer 2

每次 确认密码时 a=a+1
if a>= 3 then end

a的初始值为0