[VB6 ] 關於密碼輸入

[luludo (林小猴)]

Dim a As Integer
Private Sub Command1_Click()
If Text1.Text = "pig" Then
 MsgBox "密碼正確", vbInformation, "可進入程式"
 Form2.Show
 a = 1
ElseIf a <= 3 Then
       a = a + 1
       z = MsgBox("密碼錯誤,你是否要再輸入一次", vbYesNo + vbExclamation, "齁...錯誤喔")
 If z = vbNo Then
  End
 Else
 Text1.Text = ""
 End If
Else
 End
End If
End Sub


Private Sub Command2_Click()
 y = MsgBox("你確定要離開嗎?", vbYesNo, "結束")
 If y = vbYes Then
  MsgBox "bye-bye!!"
   End
 End If
End Sub


Private Sub Command3_Click()
Text1.Text = ""
a = 1
End Sub


Private Sub Form_Load()
a = 1
End Sub



我要寫的是最多輸入3次.....超過3次就跳出來
可是為什麼我執行的時候它最多可以輸入5次
請各位幫我看一下吧  謝謝嚕^^

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 218.170.231.70
→ rocksan:a沒有設定初始值，所以為0 a<=3 可以執行五次
→ rocksan:應該修改條件為 A<3