Exit Statement

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

Syntax:


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

Parameters:

Exit Do

JEdino validno u Do...Loop u naredbi da izadje iz kruga. Nastavak egzekucije odvija se sa izjavom koja slijedi u petlji. ako Do...Loop naredba je umetnuta,kontrola je prenesena na petlju u slijedecem vecem nivou .

Exit For

JEdino validno u For...Next petlji da izadje iz petlje.Nastavak egzekucije odvija se sa prvom izjavom koja slijedi u petlji. ako Sljedeći naredba je umetnuta,kontrola je prenesena na petlju u slijedecem vecem nivou .

Exit Function

Napusta Funkcija proceduru odmah. Nastavak egzekucije odvija se sa izjavom koja slijedi .Funkcija call.

Exit Property

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

Exit Sub

Napusta podprogram odmah. Nastavak egzekucije odvija se sa izjavom koja slijedi Sub call.

Note Icon

Naredba za izlaz ne definise kraj strukture I ne smije se zamijeniti sa Zavrsnom izjavom .


Example:


Sub ExampleExit
Dim sReturn As String
Dim sListArray(10) As String
Dim siStep As Single
    For siStep = 0 To 10 ' 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 LinTrazi trazi TekstNiz:sListaa() za UnosTeksta:
REM Vraca index unosa ili 0 ( nula)
    For iCount=1 To Ubound( sList() )
        If sList( iCount ) = sItem Then
            Napusti za REM sPOdatak nadjen
        End If
    Next iCount
    If iCount = Ubound( sList() ) Then iCount = 0
    LinSearch = iCount
End Function

Please support us!