循环中遇到执行错误如何直接执行下一次循环

qimhe

比如：

sub test()
for i=1 to 10

      for y=1 to 10
          语句1
          语句2
          语句3
          语句4
     next y

next i
end sub

就是当y循环出现了执行错误，我希望不再执行后面的语句，而是立即跳出，执行下一轮的循环。举个例子：
假如在 i=3,y=2时，语句1执行出错了错误，那么我希望不再执行语句1后面的3个语句，而是执行  y 的下一轮循环,即i=3,y=3的这次循环。应该怎么实现呢？

doitbest

for y=1 to 10
          if 语句1表达式 then goto 100
          语句1
          语句2
          语句3
          语句4
100:
     next y

hai167

如果是出错的那种，可以用on error goto，试试。
sub test()
on error goto line1
for i=1 to 10

      for y=1 to 10
          语句1
          语句2
          语句3
          语句4
line1:
     next y

next i
end sub

c0708005

1. sub test()
   
2. for i=1 to 10
   
3. on error goto line
   
4.       for y=1 to 10
   
5.           语句1
   
6.           语句2
   
7.           语句3
   
8.           语句4
   
9.   line:
   
10.      next y
    
11. 
    
12. next i
    
13. end sub
    

复制代码

c0708005

不好意思，没有看到楼上的已经回复了。。{:soso_e127:}

qimhe

hai167 发表于 2012-11-21 12:15
如果是出错的那种，可以用on error goto，试试。
sub test()
on error goto line1

谢谢，这个只能报1次错，如果循环中有N次错误，这个处理不了。

出错的那种，比如 1除以0 这种错误。

qimhe

doitbest 发表于 2012-11-21 12:03
for y=1 to 10
          if 语句1表达式 then goto 100
          语句1

谢谢，这个没有调试成功，还是会报错。不知道是不是当N次循环中都有错误时，就不行了，只能用1次。

doitbest

只是提供一种结构，至于如何写跳出语句，还要看你的附件。也不知你具体是怎么写的

foxgou

今天我在搜索这个问题时找到这里，完善一下解决方法，供后来者参考。
当程序可能出现多次错误时，每次错误处理完后要用on error goto -1清除当前错误，否则错误信息永远是第一个的。

sub test()
on error goto line
for y=1 to 10
      '代码1
      '代码2
line:
on error goto -1
next y

end sub