作者fumizuki (小狮子)
看板Visual_Basic
标题Re: [VB6 ] |||囧rz 快疯掉了
时间Wed Nov 9 12:14:03 2005
※ 引述《LPH66 (运命のルーレット廻して)》之铭言：
: 把程式goto到if-then-else-end if的中间不是好事...
: 建议这样写:
: a) 输入帐号
: b) 检查帐号, 有错则goto a) (那没错呢?就会继续跑c)
: c) 输入密码
: d) 检查密码, 有错则goto c) (那没错呢?就会继续跑e)
: e) 跳对话框出来显示帐号密码
: 详细的code就请自行代换吧:)
' 完全不使用 goto
Private Sub Form_Activate()
Dim id As String, pd As String
Do
If id <> "" Then Msgbox "帐号错误"
'第一次输入不会执行这一行
id = InputBox("请输入帐号")
If id = "" Then Exit Sub
'按下取消，或输入空字串则结束程式
Loop While id <> "scs60"
'输入正确才离开回圈
Do
If pd <> "" Then Msgbox "密码错误"
'第一次输入不会执行这一行
pd = InputBox(id & "，请输入您的密码")
If pd = "" Then Exit Sub
'按下取消，或输入空字串则结束程式
Loop While pd <> "12345"
'输入正确才离开回圈
Msgbox ("帐号” & id & "密码" & pd)
End Sub
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.222.155.162