Creando y Accesando Arrays en VB.NET

Una simple variable es un nombre lógico donde el programa puede asignar o almacenar un solo valor.

Una variable de Array es una colección de variables del mismo tipo donde el programa  asigna eficientemente a una lista de valores.

A si se declara un Array en VB.NET:

Dim  nombreArray(n)  As  tipoVariable

nombreArray() = cualquier nombre lógico

n = límite superior del Array, (ej.: 5, 10, 20,…)

Ahora vamos hacer un sencillo programa para ver el funcionamiento de los Arrays en VB.NET, donde usted introduce un número del 1 al 5 y el programa le dice el nombre del cantante al que pertenece la posición:

Receta:

2 etiquetas

2 caja de texto (txtNumero, txtCantante )

1 botón. (btnMostrarCantante)

Código 1:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)  Handles btnMostrarCantante.Click


'Declaracion del Array nombreCantante(5)

 Dim nombreCantante(5) As String 
'Declaracion de la variable n para poder acceder al Array    

 Dim n As Integer 

 'Asigna los nombres de los cantantes a la lista del Array

 nombreCantante(1) = "Shakira"

 nombreCantante(2) = "Ricky Martin"

 nombreCantante(3) = "Enrique Iglesias"

 nombreCantante(4) = "Wisin & Yandel"

 nombreCantante(5) = "Ricardo Arjona"

'n = al numero que se introdusca en el textBox

 n = CInt(txtNumero.Text) 
'Este If es para prevenir que el usuario entre un numero mayor que 5   

If n > 5 Then 

MsgBox("Por favor solo entre un numero del 1 al 5.", , "Error, numero mayor que 5")

   Else

      txtCantante.Text = nombreCantante(n)

   End If

    End Sub

End Class

Si el usuario entra un número mayor que 5  le sale un mensaje de error.

Otra manera más eficiente en que se puede hacer este programa y con menos líneas de código es de la siguiente forma:

Código 2:

Public Class Form1

Dim nombreCantante() As String = {"", "Shakira", "Ricky Martin", "Enrique Iglesias", "Wisin & Yandel", "Ricardo Arjona"} 

Private Sub btnMostrarCantante_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMostrarCantante.Click

Dim n As Integer          

n = CInt(txtNumero.Text)   

If n > 5 Then 

 MsgBox("Por favor solo entre un numero del 1 al 5.", , "Error, numero mayor que 5")

Else

   txtCantante.Text = nombreCantante(n)

   End If

    End Sub

End Class

Nota: En este codigo el Array nombreCantante() es declarado antes del Private Sub btnMostrarCantante_Click()… esto se llama declarar en el class-level(a nivel de la clase) y permite que los valores del Array se carguen junto con la clase.
Y note que los valores del Array son inicializados al momento de declarar el Array, y no hubo que especificar el limite superior del Array ya que al inicializar los 5 nombres de los cantantes en el Array el Array sabe que tiene que guardar espacio en memoria para 5 valores. 

De esta manera obtendra el mismo resultado con menos lineas de codigo. 

Las 2 maneras de hacerlo son igualmente fáciles, use el que más le convenga, aunque en el segundo código es más rápido crear Arrays en VB.NET.