array bidimensional como parametro funcion

Dim b(2, 2) As String
b(1, 1) = "a"
b(1, 2) = "b"
b(2, 1) = "c"
b(2, 2) = "d"
Call Pasar(b)

Function Pasar(ByVal b As Object) As Boolean
Dim k, i
For k = 1 To UBound(b, 1)
For i = 1 To UBound(b, 2)
Debug.Print(b(k, i))
Next
Next
End Function

Un saludo
Javier Muñoz


"Joan Roure" escribió:

Se puede pasar como parametro de una funcion un array bidimensional ?
Como?
Puede la funcion retornar un array bidimensional? Como?

Gracias por su ayuda...

Se puede pasar como parametro de una funcion un array bidimensional ?

Si, por ejemplo un array de strings de dos dimensiones:

Sub ParametroArrayBidimensional(ByVal array As String(,))

For i As Integer = 0 To array.GetLength(0) - 1
For j As Integer = 0 To array.GetLength(1) - 1
Console.WriteLine(array(i, j))
Next
Next

End Sub

Puede la funcion retornar un array bidimensional? Como?

Tambien:

Function RetornoArrayBidimensional() As String(,)
Return New String(9, 9) {}
End Function

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo
http://mvp.support.microsoft.com/pr...4EF5A4191C

Muchas gracias a todos por vuestra ayuda.
On Tue, 15 Nov 2005 12:18:14 -0800, Javier (Clevertec)
wrote:

Dim b(2, 2) As String
b(1, 1) = "a"
b(1, 2) = "b"
b(2, 1) = "c"
b(2, 2) = "d"
Call Pasar(b)

Function Pasar(ByVal b As Object) As Boolean
Dim k, i
For k = 1 To UBound(b, 1)
For i = 1 To UBound(b, 2)
Debug.Print(b(k, i))
Next
Next
End Function

Un saludo