Exit Statement

āĻāĻ•āĻŸāĻŋ Do...Loop, For...Next, āĻāĻ•āĻŸāĻŋ āĻĢāĻžāĻ‚āĻļāĻ¨, āĻ…āĻĨāĻŦāĻž āĻāĻ•āĻŸāĻŋ āĻ¸āĻžāĻŦāĻ°ā§āĻŸāĻŋāĻ¨ āĻšāĻ¤ā§‡ āĻĒā§āĻ°āĻ¸ā§āĻĨāĻžāĻ¨ āĻ•āĻ°ā§‡āĨ¤

āĻ¸āĻŋāĻ¨āĻŸā§āĻ¯āĻžāĻ•ā§āĻ¸:


āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻŸāĻžāĻ° āĻĻā§‡āĻ–ā§āĻ¨

āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻŸāĻžāĻ°:

Exit Do

āĻ˛ā§āĻĒ āĻĨā§‡āĻ•ā§‡ āĻĒā§āĻ°āĻ¸ā§āĻĨāĻžāĻ¨ āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ° Do...Loop āĻ¸ā§āĻŸā§‡āĻŸāĻŽā§‡āĻ¨ā§āĻŸā§‡āĻ° āĻŽāĻ§ā§āĻ¯ā§‡ āĻ‰āĻĒāĻ¸ā§āĻĨāĻŋāĻ¤ āĻĨāĻžāĻ•āĻž āĻŦā§ˆāĻ§āĨ¤ āĻĒā§āĻ°ā§‹āĻ—ā§āĻ°āĻžāĻŽ āĻšāĻžāĻ˛āĻ¨āĻž āĻ¸ā§āĻŸā§‡āĻŽā§‡āĻ¨ā§āĻŸā§‡āĻ° āĻ¸āĻžāĻĨā§‡ āĻŦāĻšāĻžāĻ˛ āĻĨāĻžāĻ•ā§‡ āĻ¯āĻž āĻ˛ā§āĻĒ āĻ¸ā§āĻŸā§‡āĻŸāĻŽā§‡āĻ¨ā§āĻŸ āĻ…āĻ¨ā§āĻ¸āĻ°āĻŖ āĻ•āĻ°ā§‡ āĻĨāĻžāĻ•ā§‡āĨ¤ Do...Loop āĻ¸ā§āĻŸā§‡āĻŸāĻŽā§‡āĻ¨ā§āĻŸāĻŸāĻŋ āĻāĻ•āĻ¤ā§āĻ°āĻŋāĻ¤ āĻĨāĻžāĻ•ā§‡, āĻ¤āĻžāĻšāĻ˛ā§‡ āĻ•āĻ¨ā§āĻŸā§āĻ°ā§‹āĻ˛āĻŸāĻŋ āĻĒāĻ°āĻŦāĻ°ā§āĻ¤ā§€ āĻ‰āĻšā§āĻšāĻ¤āĻ° āĻ¸ā§āĻ¤āĻ°ā§‡āĻ° āĻ˛ā§āĻĒā§‡ āĻ¸ā§āĻĨāĻžāĻ¨āĻžāĻ¨ā§āĻ¤āĻ°āĻŋāĻ¤ āĻšā§Ÿā§‡ āĻĨāĻžāĻ•ā§‡āĨ¤

Exit For

āĻ˛ā§āĻĒ āĻĨā§‡āĻ•ā§‡ āĻĒā§āĻ°āĻ¸ā§āĻĨāĻžāĻ¨ āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻļā§āĻ§ā§āĻŽāĻžāĻ¤ā§āĻ° For...Next āĻ˛ā§āĻĒā§‡āĻ° āĻŽāĻ§ā§āĻ¯ā§‡ āĻŦā§ˆāĻ§āĨ¤ āĻĒā§āĻ°ā§‹āĻ—ā§āĻ°āĻžāĻŽ āĻšāĻžāĻ˛āĻ¨āĻž āĻĒā§āĻ°āĻĨāĻŽ āĻ¸ā§āĻŸā§‡āĻŸāĻŽā§‡āĻ¨ā§āĻŸ āĻĻā§āĻŦāĻžāĻ°āĻž āĻŦāĻšāĻžāĻ˛ āĻĨāĻžāĻ•ā§‡ āĻ¯āĻž Next āĻ¸ā§āĻŸā§‡āĻŸāĻŽā§‡āĻ¨ā§āĻŸāĻŸāĻŋ āĻ…āĻ¨ā§āĻ¸āĻ°āĻŖ āĻ•āĻ°ā§‡ āĻĨāĻžāĻ•ā§‡āĨ¤ āĻ¨ā§‡āĻ¸ā§āĻŸā§‡āĻĄ āĻ¸ā§āĻŸā§‡āĻŸāĻŽā§‡āĻ¨ā§āĻŸā§‡āĻ° āĻŽāĻ§ā§āĻ¯ā§‡, āĻ•āĻ¨ā§āĻŸā§āĻ°ā§‹āĻ˛āĻŸāĻŋ āĻĒāĻ°āĻŦāĻ°ā§āĻ¤ā§€ āĻ‰āĻšā§āĻšāĻ¤āĻ° āĻ¸ā§āĻĨāĻ°ā§‡āĻ° āĻ˛ā§āĻĒā§‡ āĻ¸ā§āĻĨāĻžāĻ¨āĻžāĻ¨ā§āĻ¤āĻ°āĻŋāĻ¤ āĻšā§ŸāĨ¤

Exit Function

āĻ…āĻŦāĻŋāĻ˛āĻŽā§āĻŦā§‡ āĻĢāĻžāĻ‚āĻļāĻ¨ āĻĒā§āĻ°āĻ¸āĻŋāĻœāĻžāĻ° āĻĨā§‡āĻ•ā§‡ āĻĒā§āĻ°āĻ¸ā§āĻĨāĻžāĻ¨ āĻ•āĻ°ā§‡ āĻĨāĻžāĻ•ā§‡āĨ¤ āĻĒā§āĻ°ā§‹āĻ—ā§āĻ°āĻžāĻŽ āĻšāĻžāĻ˛āĻ¨āĻž āĻ¨āĻŋāĻšā§‡āĻ° āĻ¸ā§āĻŸā§‡āĻŸāĻŽā§‡āĻ¨ā§āĻŸā§‡āĻ° āĻ¸āĻžāĻšāĻžāĻ¯ā§āĻ¯ā§‡ āĻŦāĻšāĻžāĻ˛ āĻĨāĻžāĻ•ā§‡ āĻ¯āĻž āĻĢāĻžāĻ‚āĻļāĻ¨ āĻ•āĻ˛ āĻ…āĻ¨ā§āĻŦāĻ°ā§āĻ¤ā§€āĨ¤

Exit Sub

āĻ…āĻŦāĻŋāĻ˛āĻŽā§āĻŦā§‡ āĻ¸āĻžāĻŦāĻ°ā§āĻŸāĻŋāĻ¨ āĻĨā§‡āĻ•ā§‡ āĻĒā§āĻ°āĻ¸ā§āĻĨāĻžāĻ¨ āĻ•āĻ°ā§‡ āĻĨāĻžāĻ•ā§‡āĨ¤ āĻĒā§āĻ°ā§‹āĻ—ā§āĻ°āĻžāĻŽ āĻšāĻžāĻ˛āĻ¨āĻž āĻ¸ā§āĻŸā§‡āĻŸāĻŽā§‡āĻ¨ā§āĻŸ āĻ¸āĻš āĻŦāĻšāĻžāĻ˛ āĻĨāĻžāĻ•ā§‡ āĻ¯āĻž āĻ¸āĻžāĻŦ āĻ•āĻ˛ āĻ…āĻ¨ā§āĻŦāĻ°ā§āĻ¤ā§€āĨ¤

āĻ¨ā§‹āĻŸ āĻ†āĻ‡āĻ•āĻ¨

Exit āĻ¸ā§āĻŸā§‡āĻŸāĻŽā§‡āĻ¨ā§āĻŸāĻŸāĻŋ āĻ•āĻžāĻ āĻžāĻŽā§‹āĻ° āĻļā§‡āĻˇ āĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŖ āĻ•āĻ°ā§‡ āĻ¨āĻž, āĻāĻŦāĻ‚ āĻ…āĻŦāĻļā§āĻ¯āĻ‡ End āĻ¸ā§āĻŸā§‡āĻŸāĻŽā§‡āĻ¨ā§āĻŸ āĻāĻ° āĻ¸āĻžāĻĨā§‡ āĻ—ā§āĻ˛āĻŋā§Ÿā§‡ āĻĢā§‡āĻ˛āĻž āĻ¯āĻžāĻŦā§‡ āĻ¨āĻžāĨ¤


āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ:


Sub ExampleExit
Dim sReturn As String
Dim sListArray(10) As String
Dim siStep As Single
    For siStep = 0 to 10 REM Fill array with test data
        sListArray(siStep) = chr(siStep + 65)
        MsgBox sListArray(siStep)
    Next siStep
    sReturn = LinSearch(sListArray(), "B")
    Print sReturn
End Sub
 
Function LinSearch( sList(), sItem As String ) As Integer
Dim iCount As Integer
REM LinSearch searches a TextArray:sList() for a TextEntry:
REM āĻ­ā§āĻ•ā§āĻ¤āĻŋāĻ° āĻ‡āĻ¨āĻĄā§‡āĻ•ā§āĻ¸ āĻ…āĻĨāĻŦāĻž ā§Ļ (āĻ¨āĻžāĻ˛) āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻ•āĻ°ā§‡
    For iCount=1 To Ubound( sList() )
        If sList( iCount ) = sItem Then
            Exit for REM sItem found
        End If
    Next iCount
    If iCount = Ubound( sList() ) Then iCount = 0
    LinSearch = iCount
End Function

Please support us!