Paso de arrays como parámetros, y devolución desde funciones

Podemos pasar un array como parámetro a una rutina de código, teniendo en cuenta que los cambios que realicemos sobre el array en el procedimiento llamado, se mantendrán al volver el flujo de la ejecución al procedimiento llamador. 

Ello es debido a que los arrays son tipos por referencia del entorno, y por lo tanto, las variables del array que manejamos tanto desde el procedimiento llamador, como desde el procedimiento llamado, son en realidad punteros hacia una misma zona de memoria o referencia, la que contiene el array. En el ejemplo del Código fuente 343, comprobaremos que al pasar un array por valor, los cambios que realicemos sobre sus elementos se mantendrán al volver al procedimiento que hizo la llamada.

Sub Main()

Dim iValores() As Integer = {10, 20, 30}

' en ambos casos, se pasa una referencia del array,

' y al volver de las llamadas a los procedimientos,

' el array ha sido modificado en ambas llamadas,

' independientemente de que haya sido pasado por

' valor o referencia

ManipArrayVal(iValores)

MostrarArray(iValores)

ManipArrayRef(iValores)

MostrarArray(iValores)

Console.ReadLine()

End Sub

' a este procedimiento le pasamos un array por valor

Private Sub ManipArrayVal(ByVal iListaPorValor As Integer())

' cambiar elemento del array

iListaPorValor(0) = 888

End Sub

' a este procedimiento le pasamos un array por referencia

Private Sub ManipArrayRef(ByRef iListaPorReferencia As Integer())

' cambiar elemento del array

iListaPorReferencia(2) = 457

End Sub

Private Sub MostrarArray(ByVal sMiLista() As Integer)

' muestra el array pasado como parámetro

Dim iContador As Integer

For iContador = 0 To sMiLista.Length - 1

Console.WriteLine("Elemento: {0} - Valor: {1}", _

iContador, sMiLista(iContador))

Next

Console.WriteLine()

End Sub

Código fuente 343