IBM Lotus Symphony
|
Definuje podprogram, ktorý sa môže použiť ako výraz na určenie typu návratu.
pozrite si Parameter
Syntax
Názov funkcie[(názov_premennej_1 [ako typ][, názov_premennej_2 [ako typ][,...]]]) [ako typ]
blok príkazov
[Exit Function]
blok príkazov
End Function
Parameter
Názov: názov podprogramu obsahujúceho hodnotu vracanú funkciou.
Názov_premennej: parameter odovzdávaný podprogramu.
Typ: kľúčové slovo deklarácie typu.
Sub Príklad_Exit
Dim sReturn ako typ String
Dim sListArray( 10 ako typ Long) ako typ String
Dim siStep ako typ Single
For siStep = 0 to 10 REM Naplňte pole testovacími údajmi
sListArray(siStep) = chr$(siStep + 65)
msgbox sListArray(siStep)
next siStep
sReturn = LinSearch(sListArray(), "B")
Print sReturn
end sub
Funkcia LinSearch( sList(), sItem ako typ String ) ako typ Integer
dim iCount ako typ Integer
REM Linsearch vyhľadáva v textovom poli TextArray:sList() textovú položku TextEntry:
REM Návratová hodnota je index položky alebo nula
for iCount=1 to Ubound( sList() )
if sList( iCount ) = sItem then
exit for REM sItem found
end if
next iCount
if iCount = Ubound( sList() ) then iCount = 0
LinSearch = iCount
end function