Isi
Indeks 🔎︎

# Pernyataan Exit

Exits a Do...Loop, For...Next, a function, a property, or a subroutine.

### Sintaksis:

    Exit Do, Exit For, Exit Function, Exit Property, Exit Sub

### 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.

Exit Function

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

Exit Property

Exits the Property procedure immediately. Program execution continues with the statement that follows the Property call.

Exit Sub

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