IBM Lotus Symphony
|
Define una subrutina que puede usarse como expresión para determinar un tipo de retorno.
Consulte Parámetro.
Sintaxis
Function Nombre[(NombVar1 [As Tipo][, NombVar2 [As Tipo][,...]]]) [As Tipo]
bloque de instrucciones
[Final de la función]
bloque de instrucciones
End Function
Parámetro
Nombre: Nombre de la subrutina que contendrá el valor devuelto por la función.
NombVar: Parámetro que se pasará a la subrutina.
Tipo: Palabra clave de declaración de tipo.
Sub EjemploSalida
Dim sRetorno As String
Dim sMatrizLista(10) as String
Dim siPaso as Single
For siPaso = 0 to 10 REM Rellenar matriz con datos de prueba
sMatrizLista(siPaso) = chr$(siPaso + 65)
msgbox sMatrizLista(siPaso)
next siPaso
sRetorno = BuscaLin(sMatrizLista(), "B")
Print sRetorno
end sub
Function BuscaLin( sLista(), sElem As String ) as integer
dim iContador as Integer
REM BuscaLin busca en MatrizTexto:sLista() una EntradaTexto:
REM El valor de retorno es el índice de la entrada o 0 (Nulo)
for iContador=1 to Ubound( sLista() )
if sLista( iContador ) = sElemen then
exit for REM encontrado sElemen
end if
next iContador
if iContador = Ubound( sLista() ) then iContador = 0
BuscaLin = iContador
end function