Question

vb设计一个检测密码程序

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

Answer 1

Private Sub Form_click()
Do
pwd = InputBox("请输入密码:")
If pwd = "123456" Then '默认密码:123456
Print "欢迎您使用本系统!"
counts = 0
Exit Sub
Else
counts = counts + 1
If counts = 3 Then
MsgBox "对不起，您不能使用本系统!"
End
End If
MsgBox "密码错误！请重新输入密码."
End If
Loop
End Sub

Answer 2

你还需要一个按钮来实现功能吧?
还有文本框
用户名判断一下也好

一定要在按钮外声明变量

dim ctr as integer
然后在按钮下写代码:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim loginname As String, password As String

loginname = TextBox1.Text

password = TextBox2.Text

ctr = ctr + 1

If loginname = "sa" And password = "selina" Then

MsgBox("欢迎您使用本系统!")

ctr = 0

Else

If ctr < 3 Then

MsgBox("用户名或密码错误，请重新输入!")

Else

MsgBox("对不起，您不能使用本系统")

Close()

End If

End If

End Sub

已经经过测试