作者LPH66 (運命のルーレット廻して)
看板Visual_Basic
標題Re: [VB6 ] |||囧rz 快瘋掉了
時間Wed Nov 9 10:07:16 2005
※ 引述《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
1F：推 BearWu:那如果下面的Goto改到 4 呢?請問一下 11/09 11:42