作者QQbabyduck (卡布奇诺)
看板Visual_Basic
标题[VB6 ] |||囧rz 快疯掉了
时间Wed Nov 9 01:04:43 2005
我是高职生
这学期刚刚接触VB
基本上第一次月考都在上应用软体丙检的题目
(唔~~这不是重点)
所以我们的VB知识应该是...趋近於0吧= =+
目前唯一会的就是....IF...then (一""一就这样)
然後还有基本的msgbox inputbox
一"一结果老师出了一题很逻辑的问题 ||囧rz
_______________
|输入帐号 |
| | →(假如输入错误)出现一个msgbox说帐号错误
| | 然後回到输入帐号
|_____________|
↓(假如输入正确)
_______________
|输入密码 |
| | →(假如输入错误) 出现一个msgbox说密码错误
| | 然後回到输入密码
|_____________|
↓(假如输入正确)
出现一个msgbox 显示你的帐号密码
然後就end了
我现在的问题是....
要怎麽在出现帐号错误or密码错误的时候
回到上一格?
我是用最笨的方法下去写的囧(没办法 我就只会降)
Private Sub Form_Load()
1 Dim 帐号, 密码 As String
2 帐号 = InputBox("请输入帐号")
3 If 帐号 = "scs60" Then 密码 = InputBox(帐号 + "输入密码")
4 If 帐号 <> "scs60" Then MsgBox ("帐号错误")
Goto 2<---这是我看书上写的
5 If 密码 = "12345" Then MsgBox("帐号"+帐号+"密码"+密码)
6 If 密码 <> "12345" Then MsgBox ("密码错误")
Goto 3
End Sub
结果执行的时候恐怖的来了 囧"
一边打一边试的时候都还ok
到了第5.6步完的时候要测试
发现......无限轮回
囧"
我应该要从哪修改呢?! <(_ _)>谢谢大家看完这篇!
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.162.66.60