中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
作者:
标题: [VBS]求助Goto 运行错误?[已结] 上一主题 | 下一主题
kich
中级用户





积分 397
发帖 168
注册 2006-10-8
状态 离线
『楼 主』:  [VBS]求助Goto 运行错误?[已结]

不好意思,问这很简单的问题,但我不知道错在哪,指教下!!谢谢!!
i =0
If i = 0 Then GoTo EndThis
MsgBox "Hey You"

EndThis:
  MsgBox "I am here"
提示说:第2行缺少语句,怎么了??

[ Last edited by kich on 2007-6-11 at 08:43 PM ]

2007-6-11 12:34
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
chenjide
初级用户





积分 28
发帖 13
注册 2007-1-27
状态 离线
『第 2 楼』:  

跳转符号没加上?

i =0
If i = 0 Then GoTo EndThis
MsgBox "Hey You"

:EndThis
  MsgBox "I am here"

2007-6-11 13:00
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
kich
中级用户





积分 397
发帖 168
注册 2006-10-8
状态 离线
『第 3 楼』:  

引号加到前面还是出错啊

2007-6-11 13:03
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
chenjide
初级用户





积分 28
发帖 13
注册 2007-1-27
状态 离线
『第 4 楼』:  

你的符号怎么在后面的~正确的是在前面~

GOTO 会自动遍历以“:”冒号开头的标签

最后根据命令就是这个:来寻找下一步跳转到那里

2007-6-11 13:04
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
chenjide
初级用户





积分 28
发帖 13
注册 2007-1-27
状态 离线
『第 5 楼』:  

还是你的整个代码有问题?

我不知道

我自己都是菜鸟呢  西西

2007-6-11 13:05
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
slore
铂金会员





积分 5212
发帖 2478
注册 2007-2-8
状态 离线
『第 6 楼』:  

VBS中唯一合法的GOTO语句是:On Error GoTo 0

2007-6-11 13:32
查看资料  发短消息 网志   编辑帖子  回复  引用回复
kich
中级用户





积分 397
发帖 168
注册 2006-10-8
状态 离线
『第 7 楼』:  

不是吧??那这个就GOTO不了吗??
那要是IF条件成立,后面的代码就不执行了,直接跳到一个地方继续往后执行,这样就实现不了吗??

[ Last edited by kich on 2007-6-11 at 01:36 PM ]

2007-6-11 13:35
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
kich
中级用户





积分 397
发帖 168
注册 2006-10-8
状态 离线
『第 8 楼』:  

自己解决了:
i =inputbox("输入")
do
If i = 0 Then exit do
MsgBox "正文"
exit do
loop
MsgBox "结束"


2007-6-11 18:04
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
slore
铂金会员





积分 5212
发帖 2478
注册 2007-2-8
状态 离线
『第 9 楼』:  

搞不懂你这个要do干什么你中间exit do?

i = InputBox("输入")
If i = 0 Then
    MsgBox "结束"
Else
    MsgBox "正文"
End If


要循环的话最好加个布尔变量...防止是循环退出了还执行它……

2007-6-11 18:20
查看资料  发短消息 网志   编辑帖子  回复  引用回复
slore
铂金会员





积分 5212
发帖 2478
注册 2007-2-8
状态 离线
『第 10 楼』:  

i = InputBox("输入")
Do
    If i = 0 Then flag = True:Exit Do
    MsgBox "正文"
    Exit Do
Loop
If flag = True Then MsgBox "结束"

2007-6-11 18:21
查看资料  发短消息 网志   编辑帖子  回复  引用回复
kich
中级用户





积分 397
发帖 168
注册 2006-10-8
状态 离线
『第 11 楼』:  

其实我代码全不帖出来很麻烦,因为中间会有很多IF,有时在加在中间,这样不要办!!所以我想用GOTO好点,无奈没有!!
所以,好象记得slore兄以前在别人的回帖上发了用Do Loop设置退出!所以我想这个可以试了就可以了!
因为不好把原代码帖上来,只好随便写了脚本,目的是想阐述我的Goto用法的意图!
不是想怎么简化这语句!
后来还是通过Do...Loop解决了!!
不过依然很谢谢楼上的各位!尤其是slore兄!看了您很多回复了!!
致敬!!

2007-6-11 20:41
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: