IBM Lotus Symphony
|
Definiuje procedurę podrzędną, która może być używana jako wyrażenie określające typ wyniku.
Patrz Parametr
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.
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