Function Statement
Define una subrutina que pue usase como espresión pa determinar un tipu de torna.
Sintaxis
consulte Parámetru
Parámetros:
Sintaxis
Function Nome[(NombVar1 [As Tipu][, NombVar2 [As Tipu][,...]]]) [As Tipu]
bloque d'instrucciones
[Final de la función]
bloque d'instrucciones
End Function
Parámetru
Nome: Nome de la subrutina que va contener el valor devueltu pola función.
NombVar: Parámetru que se va pasar a la subrutina.
Tipu: Pallabra clave de declaración de tipu.
Exemplu:
Sub ExampleExit
Dim sReturn As String
Dim sListArray(10) As String
Dim siStep As Single
For siStep = 0 to 10 ' Rellenar matriz con datos de prueba
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
' Linsearch busca un TextArray:sList() por una TextEntry:
' El valor devueltu ye l'índiz de la entrada o 0 (Null)
For iCount=1 To Ubound( sList() )
If sList( iCount ) = sItem Then
Exit For ' sItem atopáu
End If
Next iCount
If iCount = Ubound( sList() ) Then iCount = 0
LinSearch = iCount
End Function