Re: [VB6 ] End if 一問
※ 引述《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
推
09/13 17:43, , 1F
09/13 17:43, 1F
→
09/13 17:45, , 2F
09/13 17:45, 2F
→
09/17 13:33, , 3F
09/17 13:33, 3F
討論串 (同標題文章)