作者fuwafuwa (０８１９我要轻松玩)
看板Visual_Basic
标题[VB6 ] 密码问题
时间Tue Aug 23 15:37:11 2005
我想要写一个输入密码的程式，
密码输入错误三次就结束系统，
密码对了就进入另一个form，
程式码如下：
Dim flag As Integer
Private Sub Text1_KeyPress(KeyAscii As Integer)
flag = 0
While flag < 3
If KeyAscii = 13 Then
If Text1.Text = "12345" Then
Form8.Visible = False
Form1.Visible = True
Else
flag = flag + 1
Print "密码输入错误，请重新输入。"
End If
End If
Wend
Print "密码输入错误已达三次，谢谢光临欢迎下次再来。"
End
End Sub
执行时无法在text1输入，只要按一个键，
整个程式就当掉。
请问问题出在哪，先谢谢回答的人。:D
--
★我不是小女孩 但渴望被宠坏★
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 222.250.195.109