Edukiak

# Exit instrukzioa

Do...Loop, For...Next, funtzio, propietate edo azpierrutina batetik irteten da.

### Sintaxia:

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

### Parametroak:

Exit Do

Do...Loop instrukzioan baino ez da baliozkoa begiztatik irteteko. Programa exekutatzen jarraitzen da Loop instrukzioaren ondoren datorren instrukzioarekin. Do...Loop instrukzioak habiaratuta baldin badaude, kontrola hurrengo goragoko mailako begiztara transferitzen da.

Exit For

For...Next begiztan baino ez da baliozkoa begiztatik irteteko. Programa exekutatzen jarraitzen da Next instrukzioaren atzetik datorren lehen instrukzioarekin. Habiaratutako instrukzioetan, kontrola goragoko hurrengo mailako begiztara transferitzen da.

Exit Function

Berehala irteten da Function prozeduratik. Programa exekutatzen jarraitzen da Function deiaren atzetik datorren instrukzioarekin.

Exit Property

Propietatea prozeduratik berehala irteten da. Programaren exekuzioak aurrera jarraitzen du Propietatea deiaren ondoren dagoen instrukzioan.

Exit Sub

Berehala irteten da azpierrutinatik. Programa exekutatzen jarraitzen da Sub deiaren atzetik datorren instrukzioarekin.

Exit instrukzioak ez du egituraren amaiera definitzen, eta ez da End instrukzioarekin nahasi behar.

### Adibidea:

    Sub ExampleExit
    Dim sReturn As String
    Dim sListArray(10) As String
    Dim siStep As Single
        For siUrratsa = 0 to 10 ' Bete matrizea probako datuekin
            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
    ' BilaketaZerrenda-k testuArray:sZerrenda() bilatzen du sarrerako testuarentzat:
    ' Sarrerako indizea edo 0 ( Nulua) itzultzen du
        For iCount=1 To Ubound( sList() )
            If sList( iCount ) = sItem Then
                exit for ' sElementua aurkituta
            End If
        Next iCount
        If iCount = Ubound( sList() ) Then iCount = 0
        LinSearch = iCount
    End Function