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