Question

嗯嗯，需要！谢谢！编写一个账号和密码的检验VB程序

要求：编写一个账号和密码的检验程序，对输入的账号和密码规定如下：（1）账号为12位学号，密码为个人学号的后8位；（2）密码输入时屏幕上不显示输入信息，显示“*”，（3）输入不正确时MsgBox（）显示相关信息，单击MsgBox（）“重试”按钮，则清除输入内容，焦点重新定位到输入框中，重新输入。单击MsgBox（）取消按钮则停止运行程序。我主要想知道密码那一部分的程序应该怎么写！

Answer 1

如图所示，密码的text2的PasswordChar属性填入*

望采纳。。。

Answer 2

Dim n As Integer
Private Sub Command1_Click()
    If Trim(Text1.Text) = "" Or Trim(Text2.Text) = "" Then    '检验用户名与密码为空否
        MsgBox "帐号和密码不能为空，请重新填写", vbOKOnly + vbInformation
    Exit Sub
    End If

    If Len(Trim(Text1.Text)) <> 12 Then            '找不到该用户
        MsgBox "用户名长度不正确", vbCritical + vbOKOnly
        Text1.Text = ""
        Text1.SetFocus
        Exit Sub
    ElseIf Trim(Text2.Text) <> Right(Text1.Text, 6) Then   '检验密码
       n = MsgBox("密码不正确", vbAbortRetryIgnore)
     If n = 5 Then
        Text2.Text = ""
        Text2.SetFocus
        Exit Sub
    ElseIf n = 6 Then
        Unload Me
        End If
        
       
        
    End If
End Sub

Private Sub Form_Load()
Text1.Text = "123456789654"
Text2.Text = "258369"
End Sub