Module
Contents
Index 🔎︎

# Exit Statement

Do...Loop, For...Next, 함수 또는 서브루틴을 종료합니다.

## 구문:

    매개 변수 참조

## 매개 변수:

Exit Do

Do...Loop 문 내에서만 유효하며 루프를 종료합니다. Loop 문 뒤에 오는 문에서 프로그램 실행이 계속됩니다. Do...Loop 문이 중첩된 경우 콘트롤이 다음 상위 수준의 루프로 이동합니다.

Exit For

For...Next 루프 내에서만 유효하며 루프를 종료합니다. Next 문 다음에 오는 첫 번째 문에서 프로그램이 실행이 계속됩니다. 중첩된 문에서는 제어가 다음 상위 수준의 루프로 이동합니다.

Exit Function

Function 프로시저를 즉시 종료합니다. Function 호출 뒤에 오는 문에서 프로그램 실행이 계속됩니다.

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