VB题--设计一个检测密码程序：当用户输入的密码正确时，在窗体上显示“欢迎您使用本系统！”；否则，显示设计一个检测密码程序：当用户输入的密码正确时，在窗体上显示“欢迎您使用本系统！”；否则，显示“密码错误！请重新输入密码。”。若连续三次输入的密码都不正确，则在屏幕上显示一个消息框，并在消息框上显示提示信息“对不起，您不能使用本系统！”，然后结束本程序的执行。

2019-04-19

下载本文

VB题--设计一个检测密码程序：当用户输入的密码正确时，在窗体上显示“欢迎您使用本系统！”；否则，显示
设计一个检测密码程序：当用户输入的密码正确时，在窗体上显示“欢迎您使用本系统！”；否则，显示“密码错误！请重新输入密码。”。若连续三次输入的密码都不正确，则在屏幕上显示一个消息框，并在消息框上显示提示信息“对不起，您不能使用本系统！”，然后结束本程序的执行。

优质解答

Private Sub cmdOK_Click()
Static interr As Integer
Dim suser As String
Dim spass As String
suser = UCase$(Trim$(txtUser.Text))
spass = Trim$(txtPassword.Text)
If suser = "ADMIN" And spass = "123456" Then
frmMain.Show
Unload Me
Else
interr = interr + 1
If interr > 3 Then
MsgBox "对不起，您不是本系统的合法用户。", vbInformation, "提示"
End
Else
MsgBox "用户名或密码错误，请重新输入", vbExclamation, "提示"
If suser <> "ADMIN" Then
txtUser.SelStart = 0
txtUser.SelLength = Len(txtUser.Text)
txtUser.SetFocus
Else
txtPassword.SelStart = 0
txtPassword.SelLength = Len(txtPassword.Text)
txtPassword.SetFocus
End If
End If
End If
End Sub
Private Sub Command2_Click()
End
End Sub Private Sub cmdOK_Click()
Static interr As Integer
Dim suser As String
Dim spass As String
suser = UCase$(Trim$(txtUser.Text))
spass = Trim$(txtPassword.Text)
If suser = "ADMIN" And spass = "123456" Then
frmMain.Show
Unload Me
Else
interr = interr + 1
If interr > 3 Then
MsgBox "对不起，您不是本系统的合法用户。", vbInformation, "提示"
End
Else
MsgBox "用户名或密码错误，请重新输入", vbExclamation, "提示"
If suser <> "ADMIN" Then
txtUser.SelStart = 0
txtUser.SelLength = Len(txtUser.Text)
txtUser.SetFocus
Else
txtPassword.SelStart = 0
txtPassword.SelLength = Len(txtPassword.Text)
txtPassword.SetFocus
End If
End If
End If
End Sub
Private Sub Command2_Click()
End
End Sub