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

[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 這個動作

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 59.113.169.110
推 LPH66:這樣寫危險...把程式goto到if-then-else-endif的中間...