VB 跳出嵌套循环

VB是一门比较简单的语言,它既没有C语言的break和continue,也没有OOP形式的try,catch语句,所以我们跳出循环比较麻烦.

大致有如下2种方法可以解决:

方法1:

使用Exit For语句

c = False  
For a = 1 To 100  
    For b = 1 To 100
        If a + b = 150 Then
            c = True
            Exit For
        End If
    Next
    If c Then Exit For
Next  
MsgBox "a:" & a & "b:" & b  

缺点在于需要判断2次,占用CPU的时间

方法2:

使用Goto语句

For a = 1 To 100  
    For b = 1 To 100
        If a + b = 150 Then GoTo exitroom
    Next
Next  
exitroom:  
    MsgBox "a:" & a & "b:" & b

虽然方便, 但是不符合OOP习惯, Goto语句早已被淘汰不建议去使用.