Question

VB高手来帮个忙啊

Private Sub Command1_Click()
Dim n As Integer
If Not IsNumeric(TxtNo.Text) Then
MsgBox "账号必须是数字", vbExclamation, "重新输入账号"
TxtNo.Text = ""
TxtNo.SetFocus
End If
If TxtPas.Text = "987654" Then
MsgBox "输入正确"
Else
n = MsgBox("密码错误", 5 + vbExclamation, "重新输入密码")
If n <> 4 Then
End
Else
TxtPas.Text = ""
TxtPas.SetFocus
End If
End If
End Sub

哪里错了啊？为什么输入4次错误后无法自动关闭

Answer 1

1. n 根本没有+1过
2.MsgBox("密码错误", 5 + vbExclamation, "重新输入密码") 返回的是vbyes no cancel 等 为什么把n挂上去？

修改代码：
Private Sub Command1_Click()
static n As Integer 'static 静态变量 也就是第二次触发事件时候n的值继续保留上一次的 不会清空
If Not IsNumeric(TxtNo.Text) Then
MsgBox "账号必须是数字", vbExclamation, "重新输入账号"
TxtNo.Text = ""
TxtNo.SetFocus
End If
If TxtPas.Text = "987654" Then
MsgBox "输入正确"
Else
MsgBox("密码错误", 5 + vbExclamation, "重新输入密码")
If n >= 4 Then
End
Else
TxtPas.Text = ""
TxtPas.SetFocus
n = n + 1 '次数+1
End If
End If
End Sub

Answer 2

你根本就没有语句计数也没有语句关闭程序啊