Exit

退出Do…Loop、For…Next、Function、Sub或Property代码块。

语法：

Exit Do 提供退出**Do...Loop语句的方法。只能在Do...Loop语句内使用。Exit Do将控制权转移到Loop语句后面的语句。当在嵌套的Do...Loop语句中使用时，Exit Do将控制权转移到比Exit Do**出现的循环高一级的循环。
Exit For 提供退出For循环的方法。只能在For...Next或For Each...Next循环中使用。Exit For将控制权转移到Next语句后面的语句。当在嵌套的For循环中使用时，Exit For将控制权转移到比Exit For出现的循环高一级的循环。
Exit Function 立即退出其出现的Function过程。执行继续到调用Function的语句后面的语句。
Exit Property 立即退出其出现的Property过程。执行继续到调用Property过程的语句后面的语句。
Exit Sub 立即退出其出现的Sub过程。执行继续到调用Sub过程的语句后面的语句。

不要将Exit语句与End语句混淆。Exit不定义结构的结束。

示例

此示例使用Exit语句退出For...Next循环、Do...Loop和Sub过程。

Sub ExitStatementDemo()
  Dim I%, MyNum%
  Do ' 设置无限循环。
    For I = 1 To 1000 ' 循环1000次。
      MyNum = Int(Rnd * 1000) ' 生成随机数。
      Select Case MyNum ' 评估随机数。
        Case 7: Exit For ' 如果是7，退出For...Next。
        Case 29: Exit Do ' 如果是29，退出Do...Loop。
        Case 54: Exit Sub ' 如果是54，退出Sub过程。
      End Select
    Next I
  Loop
End Sub

Exit ​

示例 ​

Exit

示例