IBM Lotus Symphony


Príkaz Exit [Runtime]

Opúšťa Do...Loop, For...Next, funkciu alebo podrutinu.

Syntax:

pozri Parametre

Parametre:

Exit Do

Platí iba v rámci príkazu Do...Loop na výstup z cyklu. Program pokračuje príkazom nasledujúcim za príkazom cyklu. Ak sú príkazy Do...Loop vnorené, riadenie sa odovzdáva cyklu na nasledujúcej vyššej úrovni.

Exit For

Platí iba v rámci príkazu For...Next na výstup z cyklu. Vykonávanie programu pokračuje prvým príkazom, ktorý nasleduje za príkazom Next. Vo vnorených príkazoch sa riadenie odovzdáva cyklu na nasledujúcej vyššej úrovni.

Exit Function

Okamžite opúšťa procedúru Function. Vykonávanie programu pokračuje príkazom, ktorý nasleduje za volaním Function.

Exit Sub

Okamžite opúšťa podprogram. Vykonávanie programu pokračuje príkazom, ktorý nasleduje za volaním Sub.

Ikona poznámky Príkaz Exit nedefinuje koniec štruktúry a nesmiete si ho zamieňať s príkazom End.

Príklad:

Sub Príklad_Exit

Dim sReturn ako typ String

Dim sListArray( 10 ako typ Long) ako typ String

Dim siStep ako typ Single

For siStep = 0 to 10 REM Naplňte pole testovacími údajmi

sListArray(siStep) = chr(siStep + 65)

msgbox sListArray(siStep)

next siStep

sReturn = LinSearch(sListArray(), "B")

Print sReturn

end sub

Funkcia LinSearch( sList(), sItem ako typ String ) ako typ Integer

dim iCount ako typ Integer

REM LinSearch vyhľadáva v textovom poli TextArray:sList() textovú položku TextEntry:

REM Návratová hodnota je index položky alebo nula

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


Spätná väzba na produkt | Ďalšia dokumentácia | Ochranné známky