Arreglos en VB.NET

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

01 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

01 'declara un arreglo con 12 elementos de tipo string
02 Dim meses(11) As String
03 'declara un arreglo con 7 elementos de tipo entero
04 Private dia_semana(6) As Byte
05 'declara un arreglo con 24 elementos de tipo real
06 Public hora(23) As Double

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.

01 Module Module1
02     'constante que sirve para poner un limite al array
03     Const limite = 15
04     'se crea un array de tipo real
05     Dim lista_notas(limite) As Single
06 
07     Sub Main()
08         'declaraciones de variables
09         Dim numero As Integer
10         Dim suma As Single
11         Dim media As Single
12 
13         Console.Write("Introduzca numero de calificaciones: ")
14         numero = Val(Console.ReadLine)
15         If numero > limite Then
16             Console.WriteLine("No se procesan mas de " & limite & " calificaciones")
17         Else
18             suma = 0
19             Console.WriteLine("Introduzca calificaciones")
20             'a medida que el usuario introduce las calificaciones
21             'estas se colocan en el array
22             For i = 0 To numero - 1
23                 Console.Write("   Nota[" & (i + 1) & "]= ")
24                 lista_notas(i) = Val(Console.ReadLine)
25                 suma = suma + lista_notas(i)
26                 Console.WriteLine()
27             Next
28             'se obtiene la media
29             media = suma / numero
30             Console.WriteLine("La media es: " & media)
31             Console.WriteLine("-------------------------------------------------")
32             Console.WriteLine("Lista de Calificaciones mayores a la media es")
33             ' se recore el array buscando calificaiones mayores a la media
34             For i = 0 To numero - 1
35                 If lista_notas(i) > media Then
36                     Console.WriteLine("       " & lista_notas(i))
37                 End If
38             Next
39             Console.WriteLine("-------------------------------------------------")
40         End If
41         Console.WriteLine("presione una tecla para terminar...")
42         Console.ReadLine()
43     End Sub
44 
45 End Module

Resultado:

Posted in: Arreglos,Ejercicios,Visual Basic