IBM Lotus Symphony
|
Definerer en underrutine, der kan benyttes som et udtryk til fastlæggelse af en returtype.
se Parametre
Syntaks
Function Navn[(VarNavn1 [As Type][, VarNavn2 [As Type][,...]]]) [As Type]
Sætningsblok
[Exit Function]
Sætningsblok
End Function
Parameter
Navn: Navnet på den underrutine, der skal indeholde den værdi, som returneres af funktionen.
VarNavn: Parameter, der skal overføres til underrutinen.
Type: Nøgleord til typeerklæring.
Sub EksempelExit
Dim sRetur As String
Dim sListeMatrix(10) as String
Dim siTrin as Single
For siTrin = 0 to 10 REM Udfyld matrix med testdata
sListeMatrix(siTrin) = chr$(siTrin + 65)
MsgBox sListeMatrix(siTrin)
Next siTrin
sRetur = FindLinje(sListeMatrix(), "B")
Print sRetur
End Sub
Function FindLinje( sListe(), sElement As String ) As Integer
Dim iAntal As Integer
REM FindLinje søger i en TekstMatrix:sListe() efter en TekstIndgang:
REM Returværdien er indgangens indeks eller 0 (NULL)
for iAntal=1 to Ubound( sListe() )
if sListe( iAntal ) = sElement then
Exit For REM sElement fundet
End If
Next iAntal
If iAntal = Ubound( sListe() ) Then iAntal = 0
FindLinje = iAntal
End Function