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