IBM Lotus Symphony


Оператор Exit [встроенный]

Выполняет выход из цикла 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


Комментарии по продукту | Дополнительная документация | Товарные знаки