Question

用VB语言编制一个帐号与密码的检验程序

要求：1.帐号不超过6个数字，密码4个字符（设密码为VB6），密码框中不显示实际输入字符。
2.帐号（如：非数字）不正确，提示有关信息，并清除原内容，得到焦点，再输入
3.密码不正确时，单击“重试”，密码框清空，得到焦点重新输入，若单击“取消”，停止运行。

Answer 1

Option Explicit
Const MaxLogTimes As Integer = 3

Private Sub cmdCancel_Click()
Dim intResult As Integer
'请求用户确认是否真的退出系统登录
intResult = MsgBox("你选择了退出系统登录，退出将不能启动管理系统！" & vbCrLf & "是否真的退出？", vbYesNo, "登录验证")
If intResult = vbYes Then End '根据用户选择结束应用程序
End Sub

Private Sub cmdOK_Click()
Static intLogTimes As Integer '用于保存用户请求验证的次数
Dim intChecked As Integer, strName As String, strPassword As String
intLogTimes = intLogTimes + 1 '计算登录次数
If intLogTimes > MaxLogTimes Then
'超过允许的登录次数，显示提示信息
MsgBox "你已经超过允许验证次数！" & vbCr & "应用程序将结束！", vbCritical, "登录验证"
End '结束应用程序
Else '进一步验证登录信息的合法性
strName = Trim(txtUserName.Text) '获得输入的用户名
strPassword = Trim(txtPassWord.Text) '获得输入的口令
'检验用户名和口令的合法性，并根据检验返回值执行相应的操作
if(strName ="123456")
if(strPassword="VB6") '口令正确
Unload Me '卸载登录窗体
MsgBox "登录成功，将启动系统程序！", vbInformation, "登录验证"
'通常在此放置显示系统主窗体的语句，例如
'frmMain.Show
else
MsgBox "口令错误，请重新输入！", vbCritical, "登录验证"
txtPassWord.Text = ""
txtPassWord.SetFocus
end if
else '用户不是系统用户
MsgBox "<" & strName & ">不是系统用户，请检查用户名输入是否正确！", vbCritical, "登录验证"
txtUserName.Text = ""
txtPassWord.Text = ""
txtUserName.SetFocus
End If
End If
End Sub

'这是你要的重试 我觉得很没有必要
Private Sub cmdReset_Click()
txtPassWord.Text = ""
txtPassWord.SetFocus
End Sub

说明：
1.账号密码一般是通过数据库调用的，这个程序只是用于娱乐或者测试
2.密码框输出显示请在VB的密码框属性设置里更该，设password为*即可
3.好好读读代码，你就明白代码怎么用了