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