1、定义一个变量password,初始化值。
2、定义一个变量answer,值为prompt接收用户输入的密码。
3、利用条件运算符,检测输入的是否是密码并返回相应的值。
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
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)