※ 引述《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