Question

编写一个密码校验程序,合法的密码和用户名在程序中给定

Answer 1

新建工程，添加text1 text2 command1控件，复制我的代码。xp+vb6.0调试成功。
代码如下：
Private Sub Command1_Click()
If Len(Text1.Text) > 6 Then
MsgBox "账号不超过6位数字"
Text1.SetFocus
Exit Sub
End If
If Len(Text2.Text) > 4 Then
MsgBox "密码不超过4位数字"
Text2.SetFocus
Exit Sub
End If