Inicialización de valores

Para inicializar o eliminar los valores de los elementos de un array, utilizaremos el método Clear( ), al que pasaremos el array a inicializar, el índice a partir del que comenzaremos, y el número de elementos. 

Los valores serán inicializados en función del tipo de dato del array: cadena vacía en arrays String; cero en arrays numéricos, etc. Veamos el Código fuente 346.

Sub Main()

' array String, asignar valores e inicializar

Dim sLetras(2) As String

sLetras(0) = "a"

sLetras(1) = "b"

sLetras(2) = "c"

' limpiar elementos en un array de tipo String,

' los elementos limpiados quedan como cadena vacía

Array.Clear(sLetras, 0, 1)

Console.WriteLine("Array sLetras")

MostrarArray(sLetras)

' array Integer, asignar valores e inicializar

Dim iNumeros() As Integer = {100, 200, 300, 400, 500, 600}

' limpiar elementos en un array de tipo Integer,

' los elementos limpiados se ponen a 0

Array.Clear(iNumeros, 1, 2)

Console.WriteLine("Array iNumeros")

MostrarArrayNum(iNumeros)

' array Object, asignar valores e inicializar

Dim oVarios(6) As Object

oVarios(0) = "Hola"

oVarios(1) = 456

oVarios(2) = 1200

oVarios(3) = #12/25/2001#

oVarios(4) = 900

oVarios(5) = True

oVarios(6) = "adelante"

' al ser este un array de tipo Object

' los elementos limpiados se establecen a Nothing

Array.Clear(oVarios, 3, 2)

Console.WriteLine("Array oVarios")

MostrarArrayObj(oVarios)

Console.ReadLine()

End Sub

' recorrer un array de cadenas

Private Sub MostrarArray(ByVal sMiLista() As String)

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

' recorrer un array de números

Private Sub MostrarArrayNum(ByVal iMiLista() As Integer)

Dim iContador As Integer

For iContador = 0 To iMiLista.Length - 1

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

iContador, iMiLista(iContador))

Next

Console.WriteLine()

End Sub

' recorrer un array de objetos

Private Sub MostrarArrayObj(ByVal oMiLista() As Object)

Dim iContador As Integer

For iContador = 0 To oMiLista.Length - 1

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

iContador, oMiLista(iContador))

Next

Console.WriteLine()

End Sub

Código fuente 346