作者luludo (林小猴)
站內Visual_Basic
標題[VB6 ] 關於密碼輸入
時間Sat Apr 22 15:53:13 2006
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
1F：→ rocksan:a沒有設定初始值，所以為0 a<=3 可以執行五次 04/22 16:07
2F：→ rocksan:應該修改條件為 A<3 04/22 16:08