IBM Lotus Symphony


Stavek Exit [izvajalno okolje]

Izhod iz Do...Loop, For...Next, funkcije ali pomožnega programa.

Skladnja:

Glejte odsek Parametri

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.

Ikona opombe Stavek Exit ne definira konca strukture in se ne sme mešati s stavkom End.

Primer:

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


Povratne informacije o izdelku | Dodatna dokumentacija | Blagovne znamke