作者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