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
