IBM Lotus Symphony
|
Выполняет выход из цикла Do...Loop, цикла For...Next, функции или процедуры.
см. Параметры
Exit Do
Допустим только внутри оператора Do...Loop; предназначен для выхода из цикла. После этого выполнение программы продолжается с оператора, следующего за оператором Loop. В случае вложенных операторов Do...Loop управление передается циклу предыдущего уровня.
Exit For
Допустим только внутри оператора For...Next; предназначен для выхода из цикла. После этого выполнение программы продолжается с оператора, следующего за оператором Next. В случае вложенных операторов управление передается циклу предыдущего уровня.
Exit Function
Выполняет немедленный выход из процедуры Function. После этого выполнение программы продолжается с оператора, следующего за вызовом Function.
Exit Sub
Выполняет немедленный выход из процедуры. После этого выполнение программы продолжается с оператора, следующего за вызовом Sub.
![]() |
Оператор Exit не определяет конец структуры; его не следует путать с оператором End. |
Sub ExampleExit
Dim sReturn As String
Dim sListArray(10) as String
Dim siStep as Single
For siStep = 0 to 10 REM Заполнение массива пробными данными
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 просматривает TextArray:sList() в поисках TextEntry:
REM Возвращает индекс записи или 0 (Null)
for iCount=1 to Ubound( sList() )
if sList( iCount ) = sItem then
Exit for REM sItem найден
end if
next iCount
if iCount = Ubound( sList() ) then iCount = 0
LinSearch = iCount
end function