一个简单的问题，~~~请哪位高手指教~~

Question

VB编程输入密码的问题，如过连续三次输入密码错误，报错、并且结束程序运行。

Answer 1

Private Sub Command1_Click()
    Static n As Integer
    n = n + 1
    If n > 3 Then
        MsgBox "三次输入错误!", vbExclamation + vbOKOnly, "错误"
        End
    Else
        If txtPassWord.Text = sPassWord Then
            Unload Me
            frmMain.Show
        Else
            MsgBox "密码错误!", vbExclamation + vbOKOnly, "警告"
            n = n + 1
        End If
    End If
End Sub

Answer 2

呵呵，我上CSDN的时间比我上QQ的时间多得多，而且CSDN上热心高手如云，我实在是微乎其微