Question

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

1.账号不超过6位数字，密码4位字符，在本题中，密码假定为“good”。2.密码输入时在屏幕上不显示输入的字符，而以“*”代替。3.当输入正确，显示如图2-36（b）所示消息框；当输入不正确时，如账号为非数字字符、密码不正确等，显示如图2-36（c）所示消息框。若选择“重试”按钮，则清除原输入的内容，焦点定位在原输入的文本框，再输入；若选择“取消”，则停止程序的运行。

Answer 1

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