Modul
Isi
Indeks 🔎︎

# Pernyataan Exit

Keluar dari Do...Loop,For...Next, sebuah fungsi, atau subrutin.

## Sintaksis:

    lihat Parameter

## Parameter:

Exit Do

Hanya valid dalam pernyataan Melakukan...Perulangan untuk keluar dari perulangan. Eksekusi program berlanjut dengan pernyataan yang mengikuti pernyataan Perulangan. Jika Melakukan...Perulangan Pernyataan perulangan bersarang, kontrol ditransfer ke perulangan di tingkat yang lebih tinggi berikutnya.

Exit For

Hanya perulangan For...Next yang valid untuk keluar dari perulangan. Eksekusi program berlanjut dengan pernyataan pertama yang mengikuti pernyataan Berikutnya. Dalam pernyataan bersarang, kontrol ditransfer ke perulangan di tingkat yang lebih tinggi berikutnya.

Fungsi Exit

Segera keluar dari prosedur Fungsi. Eksekusi program berlanjut dengan pernyataan yang mengikuti panggilan fungsi.

Keluar Bagian

Segera keluar dari subrutin. Eksekusi program berlanjut dengan pernyataan yang mengikuti panggilan Sub .

Pernyataan Keluar tidak menentukan akhir struktur, dan tidak boleh bingung dengan pernyataan Akhir.

## Contoh:

    Sub ExampleExit

    Dim sReturn As String

    Dim sListArray(10) As String

    Dim siStep As Single

        Untuk siStep = 0 Sampai 10' mengisi array dengan data uji

            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

    ' LineSearch mencari TextArray:sList() untuk TextEntry:

    ' Mengembalikan indeks entri atau 0 (Nihil)

        For iCount=1 To Ubound( sList() )

            If sList( iCount ) = sItem Then

                Keluar Untuk ' sltem ditemukan

            End If

        Next iCount

        If iCount = Ubound( sList() ) Then iCount = 0

        LinSearch = iCount

    End Function