/text/sbasic/shared/03090406.xhp Sun Microsystems, Inc. converted from old format - fpe

Function statement Function Statement [Runtime] Defines a subroutine that can be used as an expression to determine a return type.

Syntax see Parameter Parameters: Syntax Function Name[(VarName1 [As Type][, VarName2 [As Type][,...]]]) [As Type] statement block [Exit Function] statement block End Function Parameter Name: Name of the subroutine to contain the value returned by the function. VarName: Parameter to be passed to the subroutine. Type: Type-declaration keyword. Example: Sub ExampleExit Dim sReturn As String Dim sListArray(10) as String Dim siStep as Single For siStep = 0 to 10 REM Fill array with test data 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 searches a TextArray:sList() for a TextEntry: REM Return value is the index of the entry or 0 (Null) 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