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 .

Ikon Catatan

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