急求用VB遍一个程序

1、用VB编一帐号和密码检验程序。

要求：

帐号不超过6位数字，若输入有错误，清除原内容重新输入。

密码输入时在屏幕上以 “*”代替；若密码错，显示有关信息，选择“重试”按钮，清除原内容再输入，选择“取消”按钮，停止运行。

Private Sub Command1_Click()

If Val(Text2) <> "123456" Then a = MsgBox("密码错误", 2)

If a = vbRetry Then Text2 = "": Text2.SetFocus

If a = vbCancel Then End

End Sub

Private Sub Form_Load()
Text2.PasswordChar = "*"
End Sub

Private Sub Text1_Change()
If IsNumeric(Text1) = False Then MsgBox "输入错误"
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！