Imports System

Public Module Module1

    Public Sub Main()

        Dim respuesta as integer = 0

        Dim puntos as integer = 0

    for pregunta = 0 to 10

        Select case pregunta

        Case 1

            Console.WriteLine("Pregunta " & pregunta)

            Console.WriteLine("¿Cuanto es 2 + 2 * 7 = ?")

            Console.WriteLine("1. 28")

            Console.WriteLine("2. 14")

            Console.WriteLine("3. 16")

            Console.WriteLine("4. 21")

            respuesta = Console.ReadLine()

            if respuesta = 3 then

                Console.WriteLine("Correcta")

                puntos += 1

            else

                Console.WriteLine("Incorrecta")

            end if

        Case 2

            Console.WriteLine("Pregunta " & pregunta)

            Console.WriteLine("¿Cuanto es 2 + 2 * 7 = ?")

            Console.WriteLine("1. 28")

            Console.WriteLine("2. 14")

            Console.WriteLine("3. 16")

            Console.WriteLine("4. 21")

            respuesta = Console.ReadLine()

            if respuesta = 3 then

                Console.WriteLine("Correcta")

                puntos += 1

            else

                Console.WriteLine("Incorrecta")

            end if  

        end select

    next

    Console.WriteLine("Los puntos acumulados son:" & puntos)

    End Sub

End Module