Visual Basic 设计实现登录验证功能的验证程序

Visual Basic 设计实现登录验证功能的验证程序

Const UserS = "user"
Const PassS = "pass"
Private Sub Command1_Click()
If Text3 = "" Then MsgBox "请输入附加码！": Exit Sub
If Text1 <> UserS Then MsgBox "用户名错误！": Exit Sub

If Text2 <> PassS Then MsgBox "密码错误！": Exit Sub
If Text3 <> Label2 Then MsgBox "附加码错误！": Exit Sub
MsgBox "登陆成功！"

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Dim n%
n = Rnd * 900 + 100
Label2 = n
End Sub