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

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

望采纳。。。

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