IBM Lotus Symphony


Príkaz Function [Runtime]

Definuje podprogram, ktorý sa môže použiť ako výraz na určenie typu návratu.

Syntax

pozrite si Parameter

Parametre:

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.

Príklad:

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


Spätná väzba na produkt | Ďalšia dokumentácia | Ochranné známky