作者BearWu (B.r)
看板Visual_Basic
標題Re: [VB6 ] |||囧rz 快瘋掉了
時間Wed Nov 9 02:00:05 2005
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
1F：推 LPH66:這樣寫危險...把程式goto到if-then-else-endif的中間... 11/09 10:04