[求助]还是VBScript的问题
我之前也发过关于这问题的帖子了-----在VBScript中怎样实现goto呢?
我试过回复我的人的方法了,不过还是出现同样问题:缺少语句
为什么在VBScript中使用goto会这样啊?是不是vbscript没有goto 的啊?
那用什么可以代替它呢,望各位指教一下,谢谢!!
以下的两段程序执行的效果是一样的
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