Arreglos en Visual Basic

Autor jc mouse lunes, junio 27, 2011

Un array es un conjunto finito y ordenado de elementos homogeneos. Ordenado porque los elementos n-esimo de un array puede ser identificado, y homogeneo porque todos los elementos del array son del mismo tipo de datos.

El arreglo mas simple es el unidimensional (matriz de una dimension). A diferencia de Visual Basic clasico que nos permitia especificar los limites de un arreglo, en .NET un arreglo siempre empieca en 0 (cero), por tanto el arreglo tendra un elemento mas del valor indicado como indice superior.

En el ejemplo siguiente, se tiene un vector X de 5 elementos de tipo real. se nota que empieza en cero, por tanto su indice superior es 4 y no 5

DECLARACION DE UN ARREGLO EN VB.NET

DIMENSION Arreglo(indice_superior) TIPO_DE_DATOS

donde DIMENSION puede ser DIM, PUBLIC, PRIVATE, y TIPO DE DATOS, es el tipo de datos que tendra el arreglo, por ejemplo

Ejemplo:
Se desea construir una aplicación que lea una lista de calificaciones de una clase y calcule su media e imprima la lista de calificaciones mayores a la media.

Module Module1
     'constante que sirve para poner un limite al array
     Const limite = 15
     'se crea un array de tipo real
     Dim lista_notas(limite) As Single

     Sub Main()
         'declaraciones de variables
         Dim numero As Integer
         Dim suma As Single
         Dim media As Single

         Console.Write("Introduzca numero de calificaciones: ")
         numero = Val(Console.ReadLine)
         If numero > limite Then
             Console.WriteLine("No se procesan mas de " & limite & " calificaciones")
         Else
             suma = 0
             Console.WriteLine("Introduzca calificaciones")
             'a medida que el usuario introduce las calificaciones
             'estas se colocan en el array
             For i = 0 To numero - 1
                 Console.Write("   Nota[" & (i + 1) & "]= ")
                 lista_notas(i) = Val(Console.ReadLine)
                 suma = suma + lista_notas(i)
                 Console.WriteLine()
             Next
             'se obtiene la media
             media = suma / numero
             Console.WriteLine("La media es: " & media)
             Console.WriteLine("-------------------------------------------------")
             Console.WriteLine("Lista de Calificaciones mayores a la media es")
             ' se recore el array buscando calificaiones mayores a la media
             For i = 0 To numero - 1
                 If lista_notas(i) > media Then
                     Console.WriteLine("       " & lista_notas(i))
                 End If
             Next
             Console.WriteLine("-------------------------------------------------")
         End If
         Console.WriteLine("presione una tecla para terminar...")
         Console.ReadLine()
     End Sub

 End Module