IBM Lotus Symphony


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

Определяет процедуру, которую можно использовать в качестве выражения, определяющего значение.

Синтаксис

see Parameter

Параметры:

Синтаксис

Function Имя[(Переменная1 [As Тип][, Переменная2 [As Тип][,...]]]) [As Тип]

Блок операторов

[Exit Function]

Блок операторов

End Function

Параметры

Имя: имя процедуры, которая будет содержать значение, возвращенное функцией.

Переменная: параметр, передаваемый в процедуру.

Тип: ключевое слово объявления типа.

Пример:

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


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