VB程序编写账号和密码的验证程序

Private Sub Command1_Click()

If IsNumeric(Text1.Text) And Len(Text1.Text) = 6 And Text2.Text = "good" Then

 MsgBox "输入正确，验证通过数弊", vbOKCancel, "验桥兆证通过"

Else

 If MsgBox("账号或密码错误", vbRetryCancel, "验证错误") = vbRetry Then

    Text1.Text = 薯消族""

    Text2.Text = ""

    Text1.SetFocus

 Else

    End

 End If

End If

End Sub

Private Sub Form_Load()

Text1.PasswordChar = "*"

End Sub

先设计好界面，（如：用标签控件，2个文本框，）在1个要输密码文本框的属性名称中输入password,在要输入名称的文本框简哗的属性名称中输入username.在设手模置字体 想要输入错误密码三次退出程序方法如下； 在密码的代码框中输拦薯行入：unload.me chick=3. End sub

---