Re: [VB6 ] |||囧rz 快瘋掉了

看板Visual_Basic作者LPH66 (運命のルーレット廻して)時間18年前 (2005/11/09 10:04)推噓1(1推 0噓 0→)

留言1則, 1人參與討論串3/4 (看更多)

※ 引述《BearWu (B.r)》之銘言： : Private Sub Form_Activate() : 1 Dim id As String //帳號 : 2 Dim pd As Integer　 //密碼 : 3 id = InputBox("請輸入帳號") : 4 if id = "scs60" Then : 5 pd = InputBox(id & "請輸入你的密碼") : 6 Else : 7 Msgbox ("帳號錯誤") : 8 Goto 3 //跳至第三行執行　id = InputBox("請輸入帳號") : 9 End If : 10 If pd = 12345 Then : 11 Msgbox ("帳號” & id & "密碼" & pd) : 12 Else : 13 Msgbox ("密碼錯誤") : 14 Goto 5 //跳至第五行執行　你的帳號已經是正確了　所以只要再輸入 : 　　　　　　　　　　　　　　　　　　一次 pd =InputBox( id &　"請輸入你的密碼") : 15 End If : End Sub : 不過我以前寫程式的時候　老師都警告我們不準用Goto 這個動作把程式goto到if-then-else-end if的中間不是好事... 建議這樣寫: a) 輸入帳號 b) 檢查帳號, 有錯則goto a) (那沒錯呢?就會繼續跑c) c) 輸入密碼 d) 檢查密碼, 有錯則goto c) (那沒錯呢?就會繼續跑e) e) 跳對話框出來顯示帳號密碼詳細的code就請自行代換吧:) -- "LPH" is for "Let Program Heal us".... -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.112.30.82

推

BearWu

11/09 11:42, , 1^F

11/09 11:42, 1^F

‣ 返回看板[ Visual_Basic ] 程設

‣ 更多 LPH66 的文章

文章代碼(AID): #13SLb8Ti (Visual_Basic)