Anidación de estructuras de distinto tipo y a varios niveles

En el siguiente ejemplo vamos a realizar una combinación de estructuras anidadas de tipos distintos y a más de un nivel de profundidad. A partir de un array de cadenas de caracteres, vamos a realizar un proceso que se va a repetir tantas veces como cadenas haya en el array. En cada proceso vamos a dar tres oportunidades de introducir una cadena por consola. Si la cadena introducida coincide con el elemento del array que corresponde al número de iteración que estamos haciendo actualmente sobre el bucle For, se mostrará un mensaje y saldremos a la siguiente iteración de For. Ver Código fuente 146.

Sub Main()

Dim Nombres() As String = {"Ana", "Pedro", "Luis", "Elena", "Olga"}

Dim Repeticiones As Integer

Dim Valor As Integer

Dim Nombre As String

For Repeticiones = 0 To 4

Console.WriteLine("Captura de nombre, intento {0}", Repeticiones + 1)

Valor = 1

Do While Valor <= 3

Console.WriteLine("Introducir un nombre")

Nombre = Console.ReadLine()

If Nombre = Nombres(Repeticiones) Then

Console.WriteLine("Nombre correcto")

Exit Do

End If

Valor += 1

Loop

Next

End Sub

Código fuente 146