Re: [VB6 ] |||囧rz 快瘋掉了
※ 引述《LPH66 (運命のルーレット廻して)》之銘言：
: 把程式goto到if-then-else-end if的中間不是好事...
: 建議這樣寫:
: a) 輸入帳號
: b) 檢查帳號, 有錯則goto a) (那沒錯呢?就會繼續跑c)
: c) 輸入密碼
: d) 檢查密碼, 有錯則goto c) (那沒錯呢?就會繼續跑e)
: e) 跳對話框出來顯示帳號密碼
: 詳細的code就請自行代換吧:)
' 完全不使用 goto
Private Sub Form_Activate()
Dim id As String, pd As String
Do
If id <> "" Then Msgbox "帳號錯誤" '第一次輸入不會執行這一行
id = InputBox("請輸入帳號")
If id = "" Then Exit Sub '按下取消，或輸入空字串則結束程式
Loop While id <> "scs60" '輸入正確才離開迴圈
Do
If pd <> "" Then Msgbox "密碼錯誤" '第一次輸入不會執行這一行
pd = InputBox(id & "，請輸入您的密碼")
If pd = "" Then Exit Sub '按下取消，或輸入空字串則結束程式
Loop While pd <> "12345" '輸入正確才離開迴圈
Msgbox ("帳號” & id & "密碼" & pd)
End Sub
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多悽悽慘慘的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.222.155.162
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 4 之 4 篇)：