Module
Contents
Index 🔎︎

# Exit Statement

Napusta Do...Loop, For...Next,funkcija, ili podprogram.

## Sintaksa:

    vidi Parametre

## Parametri:

Napusti uradi

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 .

Napusti uradi

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 .

Napusti funkciju

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

Napusti pod

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

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

## Primjer:

    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