Visual Basic - Como devolver un arreglo desde uanfuncion

Life is soft - evento anual de software empresarial
 
Vista:

Como devolver un arreglo desde uanfuncion

Publicado por Jairo David (9 intervenciones) el 05/02/2002 21:34:15
Hola

tengo dos matrices que llegan a mi funcion, como hago para que mi funcion devuelva una matriz, sin que sea necesario declarar una variable global.

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Como devolver un arreglo desde uanfuncion

Publicado por Adán (79 intervenciones) el 05/02/2002 23:41:08
Colocando ByRef en la función o procedimeinto, espero que con el siguiente ejemplo quede aclarada tu duda:

Private Sub Form_Load()
Dim matriz1(), matriz2(), matrizdevuelta()
Dim n As Integer
ReDim matriz1(0 To 3)
ReDim matriz2(0 To 3)

For n = 0 To 3
matriz1(n) = n
matriz2(n) = 10 * n
Next n
Call DevolverMatriz(matriz1(), matriz2(), matrizdevuelta)
For n = 0 To 3
'devolverá 0, 11, 22 y 33
MsgBox matrizdevuelta(n)
Next n
End
End Sub

Sub DevolverMatriz(m1(), m2(), ByRef m3())

ReDim m3(0 To 3)
Dim n As Integer
For n = 0 To 3
m3(n) = m1(n) + m2(n)
Next n
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar