Exit 语句

gemini527

本示例使用 Exit 语句退出 For...Next 循环、Do...Loop 循环及子过程。
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，退出子过程。
        End Select      Next I   LoopEnd Sub