Exit Statement

αž…αžΆαž€αž…αŸαž‰β€‹αž–αžΈ Do...Loop, For...Next αž’αž“αž»αž‚αž˜αž“αŸβ€‹αž˜αž½αž™ αž¬β€‹αž‘αž˜αŸ’αžšαž„αŸ‹β€‹αž€αžΆαžšβ€‹αžšαž„β€‹αž˜αž½αž™Β αŸ”

αžœαžΆαž€αŸ’αž™β€‹αžŸαž˜αŸ’αž–αž“αŸ’αž’ αŸ–

αž˜αžΎαž›β€‹αž”αŸ‰αžΆαžšαŸ‰αžΆαž˜αŸ‰αŸ‚αžαŸ’αžšβ€‹

αž”αŸ‰αžΆαžšαŸ‰αžΆαž˜αŸ‰αŸ‚αžαŸ’αžš αŸ–

Exit Do

αž˜αžΆαž“β€‹αžŸαž»αž–αž›αž—αžΆαž–β€‹αžαŸ‚β€‹αž€αŸ’αž“αž»αž„β€‹αžŸαŸαž…αž€αŸ’αžαžΈβ€‹αžαŸ’αž›αŸ‚αž„β€‹αž€αžΆαžšαžŽαŸ Do...Loop αžŠαžΎαž˜αŸ’αž”αžΈβ€‹αž…αŸαž‰β€‹αž–αžΈβ€‹αžšαž„αŸ’αžœαž·αž›β€‹αž‡αž»αŸ†Β αŸ” αž€αžΆαžšβ€‹αž”αŸ’αžšαžαž·αž”αžαŸ’αžαž·β€‹αž€αž˜αŸ’αž˜αžœαž·αž’αžΈβ€‹αž”αž“αŸ’αžβ€‹αž‡αžΆαž˜αž½αž™β€‹αžŸαŸαž…αž€αŸ’αžαžΈβ€‹αžαŸ’αž›αŸ‚αž„β€‹αž€αžΆαžšαžŽαŸβ€‹αžŠαŸ‚αž›β€‹αž“αŸ…β€‹αž”αž“αŸ’αžβ€‹αž–αžΈβ€‹αžŸαŸαž…αž€αŸ’αžαžΈβ€‹αžαŸ’αž›αŸ‚αž„β€‹αž€αžΆαžšαžŽαŸ LoopΒ αŸ” αž”αžΎβ€‹αžŸαŸαž…αž€αŸ’αžαžΈβ€‹αžαŸ’αž›αŸ‚αž„β€‹αž€αžΆαžšαžŽαŸ Do...Loop αžαŸ’αžšαžΌαžœβ€‹αž”αžΆαž“β€‹αžŠαžΆαž€αŸ‹β€‹αžαŸ’αžšαž½αžβ€‹αž›αžΎβ€‹αž‚αŸ’αž“αžΆ αžœαžαŸ’αžαž»β€‹αž”αž‰αŸ’αž‡αžΆβ€‹αžαŸ’αžšαžΌαžœβ€‹αž”αžΆαž“β€‹αž•αŸ’αž‘αŸαžšβ€‹αž‘αŸ…β€‹αžšαž„αŸ’αžœαž·αž›β€‹αž‡αž»αŸ†β€‹αž€αŸ’αž“αž»αž„β€‹αž€αž˜αŸ’αžšαž·αžβ€‹αžαŸ’αž–αžŸαŸ‹β€‹αž‡αžΆαž„β€‹αž”αž“αŸ’αž‘αžΆαž”αŸ‹Β αŸ”

Exit For

αž˜αžΆαž“β€‹αžŸαž»αž–αž›αž—αžΆαž–β€‹αžαŸ‚β€‹αž€αŸ’αž“αž»αž„β€‹αžšαž„αŸ’αžœαž·αž›β€‹αž‡αž»αŸ† For...Next αžŠαžΎαž˜αŸ’αž”αžΈβ€‹αž…αŸαž‰β€‹αž–αžΈβ€‹αžšαž„αŸ’αžœαž·αž›β€‹αž‡αž»αŸ†Β αŸ” αž€αžΆαžšβ€‹αž”αŸ’αžšαžαž·αž”αžαŸ’αžαž·β€‹αž€αž˜αŸ’αž˜αžœαž·αž’αžΈβ€‹αž”αž“αŸ’αžβ€‹αž‡αžΆαž˜αž½αž™β€‹αžŸαŸαž…αž€αŸ’αžαžΈβ€‹αžαŸ’αž›αŸ‚αž„β€‹αž€αžΆαžšαžŽαŸβ€‹αžŠαŸ†αž”αžΌαž„β€‹β€‹αžŠαŸ‚αž›β€‹β€‹αž“αŸ…β€‹αž”αž“αŸ’αžβ€‹αž–αžΈβ€‹αžŸαŸαž…αž€αŸ’αžαžΈβ€‹αžαŸ’αž›αŸ‚αž„β€‹αž€αžΆαžšαžŽαŸ NextΒ αŸ” αž€αŸ’αž“αž»αž„β€‹αžŸαŸαž…αž€αŸ’αžαžΈβ€‹αžαŸ’αž›αŸ‚αž„β€‹αž€αžΆαžšαžŽαŸβ€‹αžŠαŸ‚αž›β€‹αžαŸ’αžšαž½αžβ€‹αž›αžΎβ€‹αž‚αŸ’αž“αžΆ αžœαžαŸ’αžαž»β€‹αž”αž‰αŸ’αž‡αžΆβ€‹αžαŸ’αžšαžΌαžœβ€‹αž”αžΆαž“β€‹αž•αŸ’αž‘αŸαžšβ€‹αž‘αŸ…β€‹αžšαž„αŸ’αžœαž·αž›β€‹αž‡αž»αŸ†β€‹αž€αŸ’αž“αž»αž„β€‹β€‹αž€αž˜αŸ’αžšαž·αžβ€‹β€‹αžαŸ’αž–αžŸαŸ‹β€‹β€‹αž‡αžΆαž„β€‹β€‹αž”αž“αŸ’αž‘αžΆαž”αŸ‹ αŸ”

αž’αž“αž»αž‚αž˜αž“αŸ Exit

αž…αŸαž‰β€‹αž–αžΈβ€‹αž”αŸ‚αž”αž”αž‘ αž’αž“αž»αž‚αž˜αž“αŸ αž—αŸ’αž›αžΆαž˜β€‹αŸ—Β αŸ” αžŠαŸ†αžŽαžΎαžšβ€‹αž€αžΆαžšβ€‹αž”αŸ’αžšαžαž·αž”αžαŸ’αžαž·β€‹αž”αž“αŸ’αžβ€‹αž‡αžΆαž˜αž½αž™β€‹αžŸαŸαž…αž€αŸ’αžαžΈβ€‹αžαŸ’αž›αŸ‚αž„β€‹αž€αžΆαžšαžŽαŸ αžŠαŸ‚αž›β€‹αž“αŸ…β€‹αž”αž“αŸ’αžβ€‹αž–αžΈβ€‹αž€αžΆαžšβ€‹αž αŸ… αž’αž“αž»αž‚αž˜αž“αŸΒ αŸ”

Exit Sub

αž…αŸαž‰β€‹αž–αžΈβ€‹αž‘αž˜αŸ’αžšαž„αŸ‹β€‹αž€αžΆαžšβ€‹αžšαž„β€‹αž—αŸ’αž›αžΆαž˜β€‹αŸ—Β αŸ” αžŠαŸ†αžŽαžΎαžšβ€‹αž€αžΆαžšβ€‹αž”αŸ’αžšαžαž·αž”αžαŸ’αžαž·β€‹αž€αž˜αŸ’αž˜αžœαž·αž’αžΈβ€‹αž”αž“αŸ’αžβ€‹αž‡αžΆαž˜αž½αž™β€‹αžŸαŸαž…αž€αŸ’αžαžΈβ€‹αžαŸ’αž›αŸ‚αž„β€‹αž€αžΆαžšαžŽαŸ αžŠαŸ‚αž›β€‹αž“αŸ…β€‹αž”αž“αŸ’αžβ€‹αž–αžΈβ€‹αž€αžΆαžšβ€‹αž αŸ… 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 Returns the index of the entry or 0 ( Null)

    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