各位大神麻烦给瞅一下

wangyinhang

小弟想请教如何从For...Next循环里跳过本次循环继续下一轮循环，网上说用goto,可是我用了goto之后提示：The test run cannot continue due to a syntax error.缺少语句，goto。。。。
代码如下：
'使用一
For  i = 1 to 9
     If i = 5 Then
         Goto Continue     
     end if
      Print i
    Continue:
next

'使用二
Dim a
a = 1   
   If a = 1 Then GoTo Line2 Else GoTo Line1
Line1:
   print "执行了Line1"
Line2:
   print "执行了Line2"

for循环或者纯代码用goto都不行，请各位路过的大神给指点一二，不用goto也行，小弟不胜感激，再次拜谢

Alvin-x

For  i = 1 to 9
     If i = 5 Then
     else
           Print i
     end if
next

wangyinhang

回复 2# Alvin-x

谢谢，谢谢，这位大神解决的很犀利，高手！膜拜ing
大神留步，还有问题请教
    如果For循环里面还有不同的情况需要跳出本次for循环，而且情况都不是平级，不能写到一个条件语句里进行判断，是不是每个需要跳出的情况都要then后面置空啊？
    有没有类似C里面的continue之类的东西啊，或者其他方法也行，不好意思啦，主要是那个for循环里的东西是别人写好的，不能乱改，小弟确实比较菜，请多担待，小弟在此再次谢过

ermine

回复 3# wangyinhang

VBS没有for的continue，如果是简单判断，就用if判断，如果实在比较多的判断条件，把for里要循环的东西写成function

For  i = 1 to 9
    funcABC i
next

Function funcABC(i)
    if i = 5 then
        exit function
    end if
    print i
End Function

wangyinhang

版主V5，学习了！的确是个好方法，调用SUB的话应该也可以的吧？多谢楼主哈，再次膜拜！！试一下先