用户登录3次密码不正确退出系统的VB代码

Question

Dim i As Integer
        If Me.txt姓名.Text.Length < 1 Or Me.txt密码.Text.Length < 1 Then
            MsgBox("用户名或密码不能为空！", MsgBoxStyle.Critical, "出错提示")
        ElseIf Me.txt姓名.Text.Length >= 1 Then
            If Me.txt密码.Text <> 123 Then
                If i < 2 Then
                    i = i + 1
                    Me.txt密码 = ""
                    MsgBox("密码错误！", MsgBoxStyle.Critical, "警告")
                ElseIf i = 2 Then
                    MsgBox("你已经3次输错密码，系统将退出！", MsgBoxStyle.Critical, "警告")
                    Exit Sub
                End If
            ElseIf Me.txt密码.Text = 123 Then
                MsgBox("欢迎" & Me.txt姓名.Text, , "欢迎")
            End If
        End If
为什么没有3次错误的退出提示，请各位看看错在哪里，谢啦！

Answer 1

把你那句：Dim i As Integer
　　改成：Static i As Integer
或者把那个变量 i 用 Private 声明成模块（窗体）级的变量。另外，你的语法不严谨：
你的那３句 ElseIf ………… Then
都应该为 Else还有一个就是句法问题，你的 MsgBox语句中的括号都应该去除。

Answer 2

关键点在于你的计数器变量是局部变量，它的寿命周期是当前过程。也就是说，每当进入当前过程时，变量 i 才产生，缺省值为 0。当你退出过程时，它就被释放从而消失了。所以，i 的最大值只能是 1。解决的方法，1 最简单的就是在窗体的公共段声明此变量，把你的声明语句拉到所有过程的前面去；2 也可以在某一个标准模块中把它声明成公共变量 Public i As Integer；3 或者像楼上那样。不过，从程序架构上来说，不推荐这样的方式。

Answer 3

楼上的都说过啦.
你的代码一开始就是Dim i As Integer
相当于i每次都是重新投胎,从0开始, 上一辈子的事情当然忘光光咯, 也就不记得什么+1+2的事了.还有,这代码的逻辑挺乱.现在闲着就帮你写个流程:
1: 定义一个窗体级变量I计数
2: 开始登录(写在按钮的事件里或者其他什么窗体过程中)
如果用户名密码正确,那么: 加载下一个窗体, 卸载登录窗体
否则: I加1, 并且判断I是否等于3, 如果等于3那么退出整个程序(没有否则)就这么些.
至于判断用户名密码,不要一个一个判断, 层层IF嵌套无端增加逻辑复杂度, 直接用一个if判断用户名和密码是否相符即可, 多个条件用and或or之类的连接.

Answer 4

Dim i As Integer
Private Sub Command1_Click()
If Text1.Text = "123" Then
MsgBox "对"
Else
i = i + 1
MsgBox "错"
If i > 3 Then
MsgBox "你已经输入错误三次即将退出"
End
End If
End If
End SubPrivate Sub Form_Load()
i = 1
End Sub

Answer 5

Dim i As Integer
        If Me.txt姓名.Text.Length < 1 Or Me.txt密码.Text.Length < 1 Then
            MsgBox("用户名或密码不能为空！", MsgBoxStyle.Critical, "出错提示")
        ElseIf Me.txt姓名.Text.Length >= 1 Then
            If Me.txt密码.Text <> 123 Then
                If i < 2 Then
                    i = i + 1
                    Me.txt密码 = ""
                    MsgBox("密码错误！", MsgBoxStyle.Critical, "警告")
                ElseIf i = 2 Then
                    MsgBox("你已经3次输错密码，系统将退出！", MsgBoxStyle.Critical, "警告")
end'退出程序
                    Exit Sub
                End If
            ElseIf Me.txt密码.Text = 123 Then
                MsgBox("欢迎" & Me.txt姓名.Text, , "欢迎")
            End If
        End If

Answer 6

直接用 Public n As Integer
后面n = n + 1
If n >= 5 Then
MsgBox "对不起，输入错误次数超过5次，限定您使用本系统，请确认正确用户名和密码后再试！", , "错误提示"
Unload Me

Answer 7

Const b As String = "123456"
Static a As Integer
a = a + 1
Label2.Visible = True
If Text1.Text = b Then
Label2.Caption = "点击请进入留言板"
Label2.ForeColor = vbBlue
Else
 If a < 3 Then
   Label2.Caption = "密码错误！"
   Label2.ForeColor = vbRed
   Text1.SelStart = 0
   Text1.SelLength = Len(Text1.Text)
   Text1.SetFocus
   Else
   Label2.Caption = "3次都未通过密码检测，判定为非法用户。请退出"
   Label2.ForeColor = vbRed
   Command2.Visible = True
   Command1.Enabled = False
   Text1.Text = ""
   Text1.Locked = True
   End If
   End If
我自己曾经编写的一小段编码，里面有你要的

Answer 8

这个问题的根源可能是你对IF then 语句没理解
if 条件
   如果达成条件,就执行这里的语句,执行完后,直接跳到end [你的问题在这里,你认为执行完这里,会继续执行then后面的语句,这里要理解一下,执行完就跳到end了,不会运行then或thenif后面的所有语句,是直接跳到对应这个if的end了then 
  否则执行这里的语句,执行完后到end
end还有是全局变量和局部变量的问题,
如果你这个是是函数的话,i定义了局部变量,那么i每次运行的初始值是0