| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 655 人关注过本帖
标题:[求助]还是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
快速回复:[求助]还是VBScript的问题
数据加载中...
 
   



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

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