急求vb代码:编写一个密码和账号输入的检验程序,对输入的账号和密码规定如下:
(1)账号不超过6位数字,密码不超过4位数字,账号为(123456)密码为(gong)(2)密码输入时屏幕上显示*(3)当输入错误时,则显示出错信息...
(1)账号不超过6位数字,密码不超过4位数字,账号为(123456)密码为(gong)
(2)密码输入时屏幕上显示*
(3)当输入错误时,则显示出错信息 展开
(2)密码输入时屏幕上显示*
(3)当输入错误时,则显示出错信息 展开
2个回答
展开全部
新建工程,添加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
If Text1.Text = "123456" And Text2.Text = "gong" Then
MsgBox "登陆成功!"
'此处放你的代码
Else
MsgBox "用户名或密码错误!"
End If
End Sub
Private Sub Form_Load()
Text2.PasswordChar = "*"
End Sub
代码如下:
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
If Text1.Text = "123456" And Text2.Text = "gong" Then
MsgBox "登陆成功!"
'此处放你的代码
Else
MsgBox "用户名或密码错误!"
End If
End Sub
Private Sub Form_Load()
Text2.PasswordChar = "*"
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询