IBM Lotus Symphony
|
Opúšťa Do...Loop, For...Next, funkciu alebo podrutinu.
pozri 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.
![]() |
Príkaz Exit nedefinuje koniec štruktúry a nesmiete si ho zamieňať s príkazom End. |
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