IBM Lotus Symphony
|
Avslutter en Do...Loop, For...Next, en funksjon eller en subrutine.
se 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.
![]() |
Exit-setningen definerer ikke slutten på en struktur, og den er ikke den samme som End-setningen. |
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