作者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