IBM Lotus Symphony


Instrukcja Function [środowisko wykonawcze]

Definiuje procedurę podrzędną, która może być używana jako wyrażenie określające typ wyniku.

Składnia

Patrz Parametr

Parametry

Składnia

Function Nazwa[(Nazwa_zmiennej_1 [As Type][, Nazwa_zmiennej_2 [As Type][,...]]]) [As Type]

Blok instrukcji

[Exit Function]

Blok instrukcji

End Function

Parametr

Nazwa: Nazwa procedury, która ma zawierać wartość zwracaną przez funkcję.

Nazwa_zmiennej: Parametr, który ma być przekazany do procedury.

Typ: Słowo kluczowe deklaracji typu.

Przykład

Sub Przyklad_Exit

Dim sWynik As String

Dim sTablica(10) as String

Dim siKrok as Single

For siKrok = 0 to 10 REM Wypełnianie tablicy danymi testowymi

sTablica(siKrok) = chr$(siKrok + 65)

msgbox sTablica(siKrok)

next siKrok

sWynik = LinSearch(sTablica(), "B")

Print sWynik

end sub

Function LinSearch( sLista(), sElement As String ) as integer

dim iLicznik as Integer

REM Funkcja Linsearch szuka tekstu w tablicy tekstowej sLista()

REM Zwraca indeks elementu albo wartość 0 (Null)

for iLicznik=1 to Ubound( sLista() )

if sLista( iLicznik ) = sElement then

exit for REM Znaleziono pozycję sElement

end if

next iLicznik

if iLicznik = Ubound( sLista() ) then iLicznik = 0

LinSearch = iLicznik

end function


Opinia na temat produktu | Dodatkowa dokumentacja | Znaki towarowe