标题:[求助]还是VBScript的问题
只看楼主
sonicmouse
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2007-4-24
 问题点数:0 回复次数:5 
[求助]还是VBScript的问题

我之前也发过关于这问题的帖子了-----在VBScript中怎样实现goto呢?
我试过回复我的人的方法了,不过还是出现同样问题:缺少语句
为什么在VBScript中使用goto会这样啊?是不是vbscript没有goto 的啊?
那用什么可以代替它呢,望各位指教一下,谢谢!!

搜索更多相关主题的帖子: VBScript 
2007-04-24 20:00
huangwy
Rank: 1
等 级:新手上路
威 望:2
帖 子:297
专家分:0
注 册:2007-3-23
得分:0 

绕过goto的方法就是用结构化编程
理清你的程序的结构关系,你就知道怎么改

2007-04-25 12:42
sonicmouse
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2007-4-24
得分:0 

哦~~~` 谢谢喇!! 如果举个例子来说说就更好了!

2007-04-25 16:02
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
得分:0 
VBS里合法的GOTO 语句貌似只有

On Error GoTo吧..

快上课了……
2007-04-25 16:29
huangwy
Rank: 1
等 级:新手上路
威 望:2
帖 子:297
专家分:0
注 册:2007-3-23
得分:0 

以下的两段程序执行的效果是一样的
Sub subTest()
Dim I%, J%
Dim Str$
Begin:
Str = InputBox("input a number!")
I = Val(Str)
If I = 0 Then GoTo Begin
Scn:
Str = InputBox("input a number!")
J = Val(Str)
If J = 0 Then GoTo Scn
Print I + J
end sub


Sub subTest()

Dim I%, J%
Dim Str$

Str = InputBox("input a number!")
Do While Val(Str) = 0
Str = InputBox("input a number!")
Loop
I = Val(Str)
Str = InputBox("input a number!")
Do While Val(Str) = 0
Str = InputBox("input a number!")
Loop
J = Val(Str)
Print I + J

End Sub

2007-04-25 17:25
sonicmouse
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2007-4-24
得分:0 
哦~~,有点明白了,谢谢喇~~~!
2007-04-25 19:15



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-134602-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.894126 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved