标题: [VBS]求助Goto 运行错误?[已结]
[打印本页]
作者: kich
时间: 2007-6-11 12:34
标题: [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 ]
作者: chenjide
时间: 2007-6-11 13:00
跳转符号没加上？
i =0
If i = 0 Then GoTo EndThis
MsgBox "Hey You"
：EndThis
MsgBox "I am here"
作者: kich
时间: 2007-6-11 13:03
引号加到前面还是出错啊
作者: chenjide
时间: 2007-6-11 13:04
你的符号怎么在后面的~正确的是在前面~
GOTO 会自动遍历以“：”冒号开头的标签
最后根据命令就是这个：来寻找下一步跳转到那里
作者: chenjide
时间: 2007-6-11 13:05
还是你的整个代码有问题？
我不知道
我自己都是菜鸟呢 西西
作者: slore
时间: 2007-6-11 13:32
VBS中唯一合法的GOTO语句是:On Error GoTo 0
作者: kich
时间: 2007-6-11 13:35
不是吧??那这个就GOTO不了吗??
那要是IF条件成立,后面的代码就不执行了,直接跳到一个地方继续往后执行,这样就实现不了吗??
Last edited by kich on 2007-6-11 at 01:36 PM ]
作者: kich
时间: 2007-6-11 18:04
自己解决了:
i =inputbox("输入")
do
If i = 0 Then exit do
MsgBox "正文"
exit do
loop
MsgBox "结束"
作者: slore
时间: 2007-6-11 18:20
搞不懂你这个要do干什么你中间exit do？
i = InputBox("输入")
If i = 0 Then
MsgBox "结束"
Else
MsgBox "正文"
End If
要循环的话最好加个布尔变量...防止是循环退出了还执行它……
作者: slore
时间: 2007-6-11 18:21
i = InputBox("输入")
Do
If i = 0 Then flag = True:Exit Do
MsgBox "正文"
Exit Do
Loop
If flag = True Then MsgBox "结束"
作者: kich
时间: 2007-6-11 20:41
其实我代码全不帖出来很麻烦,因为中间会有很多IF,有时在加在中间,这样不要办!!所以我想用GOTO好点,无奈没有!!
所以,好象记得slore兄以前在别人的回帖上发了用Do Loop设置退出!所以我想这个可以试了就可以了!
因为不好把原代码帖上来,只好随便写了脚本,目的是想阐述我的Goto用法的意图!
不是想怎么简化这语句!
后来还是通过Do...Loop解决了!!
不过依然很谢谢楼上的各位!尤其是slore兄!看了您很多回复了!!
致敬!!