Question

VB FOR EXIT的问题

for list = xx to xx
if xxx then
xxx
else
一般情况下如果在判定区域内执行上面的代码,如果不在判定区域内需要加一个for exit 需要退出本次循环吗?和不加有什么区别呢?会不会影响执行效率?
end if
next

Answer 1

这要看你的目的。比方说有5个不同颜色的蛋糕给你选，要求红色的就吃掉，则：

For i = 1 To 5
    If 蛋糕(i) = 红色 Then
        吃掉 
    End If  
Next

如果要求红色蛋糕只能吃一个，吃过了就不能再吃了，则：

For i = 1 To 5
    If 蛋糕(i) = 红色 Then
        吃掉
        Exit For 
    End If
Next

如果要求只能吃红色蛋糕，一旦遇到其他颜色的蛋糕就退出选择（换句话说如果第一个蛋糕就不是红色的，那么即使后面有红色蛋糕也不能吃了），则：

For i = 1 To 5
    If 蛋糕(i) = 红色 Then
        吃掉
    Else
        Exit For  
    End If
Next

Answer 2

没必要再循环时肯定是赶紧退出，能提高多少效率，主要看程序的复杂程度，但是一般都是能退就退，能省多少就多少。
不过，如果是用for循环的，一般都是确定循环次数才用，不会出现exit这样的事。像这样的思路，应该是用do while 或 do until这种循环，思路更加明确。

追问

如果for 1to 2 执行2次都是不满足 那么需不需要加上exit for 呢?

vb里有没有退出本次循环的代码? 不是终止循环?

追答

for i = 1 to 2，如果不在循环里改变i的值，那么循环2次后自动退出，当然，要退出之前他会一直执行到next语句，碰到这个语句后i加1，当变成3时，就退出了。如果你不希望把剩下的语句都执行完，可以中途退出，这时i还是2，这是区别，至于效率，还是那句话，看你的程序复杂程度，一般这种情况比较少。
如果是退出本次循环，继续下次，用goto语句，刚才说错了，continue语句是C语言的。
但是要记得自己把i加上1，因为没执行next语句，i不会自增

追问

能写个退出本次的例子吗,谢谢

追答

FLAG 这个词是自己随意指定的，冒号是必须的，表示这个一个语句行标签，可以用goto语句跳到这一行开始执行

    For i = 1 To 10
    
FLAG:
        If 1 Then
        
        Else
        
            GoTo FLAG '跳到 FLAG 标签处，后面的程序不执行
            
        End If
        
        '其他程序语句，如果上面的goto被执行到，则这里以下不会执行，i的值不会自增
        '可以在goto语句之前给i赋值
    
    Next '只有执行到这句，i的值才会自动变化

追问

这样不会陷入无限循环吗?
不需要i+1?

追答

那个例子肯定是无限循环。但是i+1不一定能解决问题，假如 if 语句总是执行到else这里就跳到前面去，那么 i 就算加到100也还是在循环，只有执行到next后，i的值大于或小于（对于自减的循环）那个to的值，才能跳出。如果不让执行next语句，则循环不会跳出，要么就用exit for语句跳出

追问

那怎么解决退出本次循环而避免无限循环?

追答

这是根据实际情况来确定的啊。您循环的时候肯定要确保有合适的条件来执行到exit for语句，或让i继续自增直到跳出。就算没什么条件，比如一些通讯连接，可以在一个死循环中检测通讯的另一方是否有发送信号过来，另外要做一个计时器，设定等待时间，如果在等待时间有接收到信号，就退出循环，如果计时器时间到了，就算没接收到信号，也强制用exit语句退出循环。
这都是具体问题具体分析的，有时确实会出现意外。比如，我们用一些软件时，有时会出现软件“挂起”的情况，就是软件无反应了，CPU占用率几乎100%，这种情况有可能就是那个软件出现死循环了。

Answer 3

dim i as long
for i=1 to 10000
if chkit then

call subA'假设chkit函数每次需要占用1秒的时间

else

exit for
end if

next
在上面的代码中,如果不加exit for ,会很惨的