vb设计一个检测密码程序
来源:百度知道 编辑:UC知道 时间:2024/05/30 20:23:07
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
你还需要一个按钮来实现功能吧?
还有文本框
用户名判断一下也好
一定要在按钮外声明变量
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" An