Ejemplo Visual de Arreglos

mat(0) = "Matématicas"
mat(1) = "Física"
mat(2) = "Algebra"
mat(3) = "Química"
mat(4) = "Electricidad"
mat(5) = "Programación"
mat(6) = "Comunicación"

calif (0) = 8
calif (1) = 10
calif (2) = 7
calif (3) = 9
calif (4) = 10
calif (5) = 10
calif (6) = 8

Esta Imagen, es un arreglo Visual de como se verian guardados los datos en un arreglo de 7 elementos.

Para hacer una búsqueda y mostrar su contenido tenemos el siguiente código:

Dim Busqueda As String
Console.WriteLine ("Materia que buscas: ")
Busqueda = Console.ReadLine ()
For x = 0 To 6
If StrComp (mat(x), Busqueda) = 0 Then
Console.WriteLine("Ya lo encontre en la posicion {0}", x)
Console.WriteLine("Materia: {0}", mat(x))
Console.WriteLine("calif: {0}", calif(x))
End If
Next


Como ya habiamos visto en clases pasadas en manejo de cadenas. Vimos la utilización de la función StrComp(cad1, cad2) del sistema, la cual compara dos cadenas. Si las dos son iguales, la función te regresa el valor de cero, si cad1 es mayor, regresa el valor de -1, y el otro caso, si es mayor cad2, entonces te regresa el valor de 1. Para nuestro ejemplo, el resultado tiene que ser igual a cero. Si en la comparación de las materias es igual a la que buscamos, entonces, nos mostrará el contenido del vector o arreglo en la posición del valor donde se encuentre x. De igual forma mosrtará la calificación que le correspode a la materia.