作者ILoveRiva (天下至柔莫若水)
看板Visual_Basic
标题[VB6 ] End if 一问
时间Thu Sep 13 17:19:29 2007
各位版友大家好，这是摘自vb研究小站里面的一段code
想请教版众这一段code里面的几个逻辑
Private Sub Form_Load()
Dim Passed As Byte
TryAgain:
Rslt = InputBox("请输入正确的通行密码！","安全检查","输入密码")
If Rslt <> "私拾四十四噬石狮蝨食湿死狮屍诗" Then
Passed = Passed + 1
If Passed = 3 Then
MsgBox "密码错误，禁止通行" ,16 '到目前这一行都懂
End <--- 请问为何要这样子写呢 , 是语法的规则吗 ?
End If 我的想法是 MsgBox "密码错误，禁止通行" ,16
下一行就写Goto TryAgain了
还是这个End的意思，是End那个Msgbox掉
然後才再跑入TryAgain原来的这个模组呢
如果是，为何不End完之後，就加Goto TryAgain呢
而是先上一段End If再接 TryAgain ?
很不好意思请教版友这麽简单的问题 > <
最近学习vb觉得还蛮好玩的，想说再小不懂
都想把他弄清楚，基础才不会薄弱，还请版友高手
不吝赐教，感恩 :)
Goto TryAgain
End If
MsgBox "密码正确，你可以通行", vbInformation
End Sub
--
一生悬命にあなたと(一绪の)すてきのおもいをてくります
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.132.105.48