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

选择工具箱里计时器控件并双击，在frame1上显现出来该控件，该控件的作用很大，起到计时作用，同时需要注意的是在程序运行时控件是不显示出来的。

首先启动vb6.0，执行文件-新建命令，d出新建工程对话框，在该对话框中选择标准的exe后点击打开按钮，进入vb程序主界面。

在主界面中，按住鼠标左键按住窗体周围的任意一个小正方形进行拖拽，调节窗体的大小，直至自己满意为止。

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

---