Exit Statement

Do...Loop, For...Next, рдкреНрд░рдХрд╛рд░реНрдп,рд╡рд╛ рдЙрдкрдХрд╛рд░реНрдпрддрд╛рд▓рд┐рдХрд╛рдмрд╛рдЯ рдирд┐рд╕реНрдХрдиреБрд╣реЛрд╕реН ред

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:


рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ рд╣реЗрд░реНрдиреБрд╣реЛрд╕реН

рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:

рдбреБ рдирд┐рдХрд╛рд╕ рдЧрд░реНрдиреБрд╣реЛрд╕реН

рд▓реВрдкрдмрд╛рдЯ рдирд┐рд╕реНрдХрдирд▓рд╛рдИ рдбреБ...рд▓реВрдкрдХрдерди рднрд┐рддреНрд░рдорд╛рддреНрд░ рд╡реИрдз рд╣реБрдиреНрдЫ ред рдХрд╛рд░реНрдпрдХреНрд░рдо рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рдХрдердирд╕рдБрдЧ рд╕реБрдЪрд╛рд░реВ рд╣реБрдиреНрдЫ рдЬрд╕рд▓реЗ рд▓реВрдк рдХрдерди рдкрдЫреНрдпрд╛рдЙрдЫ ред рдпрджрд┐ рдбреБ...рд▓реВрдкрдХрдердирд╣рд░реВ рдПрдХ рдкрдЫрд┐ рдЕрд░реНрдХреЛ рдорд┐рд▓реЗрдХреЛ рдЦрдгреНрдбрдорд╛ рдирд┐рдпрдиреНрддреНрд░рдгрд▓реЗ рд▓реВрдкрд▓рд╛рдИ рдЕрд░реНрдХреЛ рдЙрдЪреНрдЪ рд╕реНрддрд░рдорд╛ рд╕реНрдерд╛рдирд╛рдиреНрддрд░рдг рдЧрд░реНрджрдЫ ред

рдХрд╛ рд▓рд╛рдЧрд┐ рдирд┐рдХрд╛рд╕

рдЕрд░реНрдХреЛ... рдХрд╛ рд▓рд╛рдЧрд┐ рд▓реВрдк рднрд┐рддреНрд░ рд▓реВрдк рдирд┐рд╕реНрдХрди рдХреЛрд▓рд╛рдЧрд┐рдорд╛рддреНрд░ рд╡реИрдз рд╣реБрдиреНрдЫ ред рдЬрд╕рд▓реЗ рдХрд╛рд░реНрдпрдХреНрд░рдо рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рдЧрд░реНрди рдкрд╣рд┐рд▓реЛ рдХрдердирд╕рдБрдЧ рдЕрд░реНрдХреЛрдХрдерди рдлрдЫреНрдпрд╛рдЙрдЫ ред рдХрдердирд╣рд░реВ рдПрдХ рдкрдЫрд┐ рдЕрд░реНрдХреЛ рдорд┐рд▓реЗрдХрд╛ рдЫрдиреН рднрдиреЗ рдирд┐рдпрдиреНрддреНрд░рдгрд▓реЗ рд▓реВрдкрд▓рд╛рдИ рдЕрд░реНрдХреЛ рдЙрдЪреНрдЪ рд╕реНрддрд░рдорд╛ рд╕реНрдерд╛рдирд╛рдиреНрддрд░рдг рдЧрд░реНрджрдЫ ред

рдирд┐рдХрд╛рд╕ рдкреНрд░рдХрд╛рд░реНрдп

рдкреНрд░рдХрд╛рд░реНрдпрдмрд╛рдЯ рдХрд╛рд░реНрдпрд╡рд┐рдзреА рддреБрд░реБрдиреНрддреИ рдирд┐рд╕реНрдХрд┐рдиреНрдЫ ред рдХрд╛рд░реНрдпрдХреНрд░рдо рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рдХрдердирд╕рдБрдЧ рд╕реБрдЪрд╛рд░реВ рд╣реБрдиреНрдЫ рдЬрд╕рд▓реЗ рдкреНрд░рдХрд╛рд░реНрдп рдмреЛрд▓рд╛рдЙрди рдкрдЫреНрдпрд╛рдЙрдЫ ред

рд╕рдм рдирд┐рдХрд╛рд╕ рдЧрд░реНрдиреБрд╣реЛрд╕реН

рдЙрдкрдХрд╛рд░реНрдпрддрд╛рд▓рд┐рдХрд╛рдмрд╛рдЯ рддреБрд░реБрдиреНрддреИ рдирд┐рд╕реНрдХрдиреНрдЫ ред рдХрд╛рд░реНрдпрдХреНрд░рдо рдХрдердирд╕рдБрдЧ рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рд╕реБрдЪрд╛рд░реВ рдЧрд░реНрджрдЫ рдЬрд╕рд▓реЗ рд╕рдмрдмреЛрд▓рд╛рдЙрдЫрд▓рд╛рдИ рдкрдЫреНрдпрд╛рдЙрдЫ ред

рджреНрд░рд╖реНрдЯрд╡реНрдп рдкреНрд░рддрд┐рдорд╛

рдирд┐рд╕реНрдХрд┐рдПрдХреЛ рдХрдердирд▓реЗ рд╕рдВрд░рдЪрдирд╛рдХреЛ рдЕрдиреНрддреНрдпрдорд╛ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЧрд░реНрджреИрди рд░ рдЕрдиреНрддреНрдпрд┐рдо рдХрдердирд╕рдБрдЧ рдЧрдбреНрдмрдбрд┐ рдкрдирд┐ рдЧрд░реНрди рд╕рдХреНрддреИрди ред


рдЙрджрд╛рд╣рд░рдг:


Sub ExampleExit
Dim sReturn As String
Dim sListArray(10) As String
Dim siStep As Single
    For siStep = 0 To 10 ' 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рд▓реЗ рдкрд╛рда рдПрд░реЗ:рдкрд╛рда рдкреНрд░рд╡рд┐рд╖реНрдЯрд┐рдХреЛрд▓рд╛рдЧрд┐ sList():
' рд▓реЗ рдкреНрд░рд╡рд┐рд╖реНрдЯрд┐ рд╡рд╛ реж (рдирд┐рд▓)рдХреЛ рдЕрдиреБрдХреНрд░рдордгрд┐рдХрд╛ рдлрд░реНрдХрд╛рдЙрдБрдЫ
    For iCount=1 To Ubound( sList() )
        If sList( iCount ) = sItem Then
            Exit For ' рдмрд╛рдЯ рдмрд╛рд╣рд┐рд░рд┐рдирдХрд╛ рд▓рд╛рдЧрд┐ sItemрднреЗрдЯрд╛рдЙрдиреБрд╣реЛрд╕реН
        End If
    Next iCount
    If iCount = Ubound( sList() ) Then iCount = 0
    LinSearch = iCount
End Function

Please support us!