[已解决]设置登入窗口，在输错三次密码后，系统自动退出

huang_jiaxiang

请问各位老师，代码哪里出错了，为何在提示还剩几次的时候无法再次输入密码？{:041:}

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-18 14:35

1. Dim c As Byte
   
2. 
   
3. Private Sub CommandButton1_Click()
   
4. 
   
5.     A = TextBox2.Text
   
6.     If A = "123" Then
   
7.         Application.Visible = True
   
8.         Sheet1.Select
   
9.         Unload Me
   
10.     Else
    
11.         c = c + 1
    
12.         If c > 3 Then
    
13.             MsgBox "您密码输入错误超过3次，系统将自动退出！"
    
14.             Application.Quit
    
15.         Else
    
16.             MsgBox "您输入的用户或密码有误，还剩" & 3 - c & "次"
    
17.         End If
    
18.     End If
    
19. 
    
20. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Dim c As Byte
   
2. 
   
3. Private Sub CommandButton1_Click()
   
4. 
   
5.     A = TextBox2.Text
   
6.     If A = "123" Then
   
7.         Application.Visible = True
   
8.         Sheet1.Select
   
9.         Unload Me
   
10.     Else
    
11.         c = c + 1
    
12.         If c > 3 Then
    
13.             MsgBox "您密码输入错误超过3次，系统将自动退出！"
    
14.             Application.Quit
    
15.         Else
    
16.             MsgBox "您输入的用户或密码有误，还剩" & 3 - c & "次"
    
17.         End If
    
18.     End If
    
19. 
    
20. End Sub

复制代码

hwc2ycy

你之前用的循环不对了。
密码不对号，应该这一过程就结束了，然后再重新输入密码后再行判断。

huang_jiaxiang

hwc2ycy 发表于 2013-6-18 14:36
你之前用的循环不对了。
密码不对号，应该这一过程就结束了，然后再重新输入密码后再行判断。

请问前面为什么要加个"Dim c As Byte"?{:041:}

hwc2ycy

这个模块变量记录错误次数。
不然的话，过程每次找开后C都为0了。

huang_jiaxiang

hwc2ycy 发表于 2013-6-18 15:07
这个模块变量记录错误次数。
不然的话，过程每次找开后C都为0了。

哦 是也，谢谢你了{:021:}