作者ILoveRiva (天下至柔莫若水)
看板Visual_Basic
标题Re: [VB6 ] End if 一问
时间Thu Sep 13 17:35:31 2007
※ 引述《BearWu (B.r)》之铭言：
: : 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 这个指令咧...
我是用else写，跑起来结果也对.....
所以那个end if是类似else的效果吗
还是说 是end掉 整个if里的逻辑式 往下一行式子里跑呢 ?
感谢大大的解答
非常感谢Q Q
我的code如下:
Private Sub CommandButton1_Click()
Dim Passed As Byte
TryAgain:
Rslt = InputBox("请输入正确的通行密码！", "安全检查", "输入密码")
If Rslt <> "1234" Then
Passed = Passed + 1
If Passed = 3 Then
MsgBox "密码错误，禁止通行"
End If
GoTo TryAgain
Else
MsgBox "密码正确，你可以通行"
End If
End Sub
--
一生悬命にあなたと(一绪の)すてきのおもいをてくります
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.132.105.48
1F：推 twtimbow: 原始程式在错误3次之後显示讯息并且关闭程式 09/13 17:43
2F：→ twtimbow: End 表示 End Sub 09/13 17:45
3F：→ paul0407:End 不是表示 End Sub,是表示程式结束 09/17 13:33