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

看板Visual_Basic作者BearWu (B.r)時間18年前 (2005/11/09 01:52)推噓1(1推 0噓 0→)

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

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

11/09 10:04, , 1^F

11/09 10:04, 1^F

‣ 返回看板[ Visual_Basic ] 程設

‣ 更多 BearWu 的文章

文章代碼(AID): #13SENXH- (Visual_Basic)