˳ Do...LoopFor...NextFunction  Sub 顣

Exit Do
Exit For
Exit Function
Exit Property
Exit Sub
Exit ﷨¼ʽ

  
Exit Do ṩһ˳ Do...Loop ķֻ Do...Loop ʹáExit Do ȨתƵ Loop ֮䡣Ƕ׵ Do...Loop ʹʱExit Do ȨתƵѭλõһǶѭ 
Exit For ṩһ˳ For ѭķֻ For...Next  For Each...Next ѭʹáExit For ȨתƵ Next ֮䡣Ƕ׵ For ѭʹʱExit For ȨתƵѭλõһǶѭ 
Exit Function ӳֵλ˳ Function ִ̡е Function 䡣 
Exit Property ڵ Property ˳ִ Property ̵䡣 
Exit Sub ӳֵλ˳ Sub ִ̣е Sub 䡣 

Ӿ˵ʹ Exit : 

Sub RandomLoop
   Dim I, MyNum
   Do                           ' ѭ
      For I = 1 To 1000          ' ѭ 1000 Ρ
         MyNum = Int(Rnd * 100)   '
         Select Case MyNum        'ֵ
            Case 17: MsgBox "Case 17"
              Exit For             '  17˳ For...Next
            Case 29: MsgBox "Case 29"
              Exit Do              '  29˳ Do...Loop
            Case 54: MsgBox "Case 54"
              Exit Sub             '  54˳ Sub ̡
         End Select
      Next
   Loop
End Sub
Ҫ
汾 1
