作者BearWu (B.r)
看板Visual_Basic
标题Re: [VB6 ] End if 一问
时间Thu Sep 13 17:29:20 2007
: Private Sub Form_Load()
: Dim Passed As Byte
: TryAgain:
: Rslt = InputBox("请输入正确的通行密码！","安全检查","输入密码")
If Rslt <> "私拾四十四噬石狮蝨食湿死狮屍诗" Then
Passed = Passed + 1
If Passed = 3 Then
MsgBox "密码错误，禁止通行" ,16 '到目前这一行都懂
Goto TryAgain
end if
else
MsgBox "密码正确，你可以通行", vbInformation
End Sub
概念应该是这个样子吧 判定Rslt是否等於"私拾四十四噬石狮蝨食湿死狮屍诗"
如果不是的话 就增加Passed 1次 判断是否输入错误三次
若是 直接执行 密码错误的MsgBox 并且进入TryAgain
若一开始 就等於"私拾四十四噬石狮蝨食湿死狮屍诗" 就直接进入密码正确的MsgBox
照理 写法应该是这个样子吧 不过没程式实作 不晓得这样子对不对咧
另外 我记得写程式的时候尽量不要使用Goto 这个指令咧...
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 122.123.15.108