IBM Lotus Symphony
|
Izhod iz Do...Loop, For...Next, funkcije ali pomožnega programa.
Glejte odsek Parametri
Exit Do
Velja samo v stavku Do...Loop. Uporablja se za zapuščanje zanke. Izvajanje programa se nadaljuje pri stavku, ki sledi stavku Loop. Če so stavki Do...Loop ugnezdeni, se nadzor prenese na zanko na naslednji višji ravni.
Exit For
Velja samo v zanki For...Next. Uporablja se za zapuščanje zanke. Izvajanje programa se nadaljuje pri stavku, ki sledi stavku Next. Če so stavki ugnezdeni, se nadzor prenese na zanko na naslednjem višji ravni.
Exit Function
Nemudoma zapusti proceduro Function. Izvajanje programa se nadaljuje pri stavku, ki sledi klicu Function.
Exit Sub
Nemudoma zapusti podprogram. Izvajanje programa se nadaljuje pri stavku, ki sledi klicu Sub.
![]() |
Stavek Exit ne definira konca strukture in se ne sme mešati s stavkom End. |
Sub ExampleExit
Dim sReturn As String
Dim sListArray(10) as String
Dim siStep as Single
For siStep = 0 to 10 REM 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 LinSearch searches a TextArray:sList() for a TextEntry:
REM Returns the index of the entry or 0 ( Null)
for iCount=1 to Ubound( sList() )
if sList( iCount ) = sItem then
Exit for REM sItem found
end if
next iCount
if iCount = Ubound( sList() ) then iCount = 0
LinSearch = iCount
end function