IBM Lotus Symphony


Exit-setningen [kjøretid]

Avslutter en Do...Loop, For...Next, en funksjon eller en subrutine.

Syntaks:

se Parametere

Parametere:

Exit Do

Bare gyldig inne i et Do...Loop-uttrykk for å avslutte sløyfen. Kjøringen av programmet fortsetter med setningen som følger etter Loop-setningen. Hvis Do...Loop-uttrykk er nestet, blir kontrollen overført til sløyfen på neste, høyere nivå.

Exit For

Bare gyldig inne i en For...Next-sløyfe for å avslutte sløyfen. Kjøringen av programmet fortsetter med den første setningen som følger etter Next-setningen. I nestede uttrykk blir kontrollen overført til sløyfen på neste, høyere nivå.

Exit Function

Avslutter Function-prosedyren umiddelbart. Kjøringen av programmet fortsetter med setningen som følger etter Function-anropet.

Exit Sub

Avslutter subrutinen umiddelbart. Kjøringen av programmet fortsetter med setningen som følger etter Sub-anropet.

Merknadsikon Exit-setningen definerer ikke slutten på en struktur, og den er ikke den samme som End-setningen.

Eksempel:

Sub ExampleExit

Dim sReturn As String

Dim sListArray(10) as String

Dim siStep as Single

For siStep = 0 to 10 REM Fyll matrise med testdata

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 LinSearch søker i en TextArray:sList() etter en TextEntry:

REM Returnerer indeksen for oppføringen eller 0 ( Null)

for iCount=1 to Ubound( sList() )

if sList( iCount ) = sItem then

Exit for REM sItem funnet

end if

next iCount

if iCount = Ubound( sList() ) then iCount = 0

LinSearch = iCount

end function


Tilbakemelding om produktet | Annen dokumentasjon | Varemerker