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 4 + 4 x 7 = ?")

            Console.WriteLine("1. 28")

            Console.WriteLine("2. 14")

            Console.WriteLine("3. 32")

            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 21 : 3 + 2 x 5 = ?")

            Console.WriteLine("1. 28")

            Console.WriteLine("2. 14")

            Console.WriteLine("3. 17")

            Console.WriteLine("4. 21")

            respuesta = Console.ReadLine()

            if respuesta = 3 then

                Console.WriteLine("Correcta")

                puntos += 1

            else

                Console.WriteLine("Incorrecta")

            end if  

        Case 3

            Console.WriteLine("Pregunta " & pregunta)

            Console.WriteLine("¿Cuanto es 4 : 2 + 3 x 3 = ?")

            Console.WriteLine("1. 18")

            Console.WriteLine("2. 14")

            Console.WriteLine("3. 12")

            Console.WriteLine("4. 11")

            respuesta = Console.ReadLine()

            if respuesta = 4 then

                Console.WriteLine("Correcta")

                puntos += 1

            else

                Console.WriteLine("Incorrecta")

            end if  

        Case 4

            Console.WriteLine("Pregunta " & pregunta)

            Console.WriteLine("¿Cuanto es 12 : 4 + 4 x 5 = ?")

            Console.WriteLine("1. 28")

            Console.WriteLine("2. 21")

            Console.WriteLine("3. 23")

            Console.WriteLine("4. 25")

            respuesta = Console.ReadLine()

            if respuesta = 3 then

                Console.WriteLine("Correcta")

                puntos += 1

            else

                Console.WriteLine("Incorrecta")

            end if  

        Case 5

            Console.WriteLine("Pregunta " & pregunta)

            Console.WriteLine("¿Cuanto es 33 : 3 + 7 x 3 = ?")

            Console.WriteLine("1. 28")

            Console.WriteLine("2. 32")

            Console.WriteLine("3. 37")

            Console.WriteLine("4. 21")

            respuesta = Console.ReadLine()

            if respuesta = 2 then

                Console.WriteLine("Correcta")

                puntos += 1

            else

                Console.WriteLine("Incorrecta")

            end if  

        Case 6

            Console.WriteLine("Pregunta " & pregunta)

            Console.WriteLine("¿Cuanto es 22 : 2 + 5 x 5 = ?")

            Console.WriteLine("1. 36")

            Console.WriteLine("2. 34")

            Console.WriteLine("3. 38")

            Console.WriteLine("4. 29")

            respuesta = Console.ReadLine()

            if respuesta = 1 then

                Console.WriteLine("Correcta")

                puntos += 1

            else

                Console.WriteLine("Incorrecta")

            end if  

        Case 7

            Console.WriteLine("Pregunta " & pregunta)

            Console.WriteLine("¿Cuanto es 15 : 3 + 8 x 2 = ?")

            Console.WriteLine("1. 28")

            Console.WriteLine("2. 14")

            Console.WriteLine("3. 17")

            Console.WriteLine("4. 21")

            respuesta = Console.ReadLine()

            if respuesta = 4 then

                Console.WriteLine("Correcta")

                puntos += 1

            else

                Console.WriteLine("Incorrecta")

            end if  

        Case 8

            Console.WriteLine("Pregunta " & pregunta)

            Console.WriteLine("¿Cuanto es 25 : 5 + 7 x 7 = ?")

            Console.WriteLine("1. 68")

            Console.WriteLine("2. 54")

            Console.WriteLine("3. 47")

            Console.WriteLine("4. 31")

            respuesta = Console.ReadLine()

            if respuesta = 2 then

                Console.WriteLine("Correcta")

                puntos += 1

            else

                Console.WriteLine("Incorrecta")

            end if  

        Case 9

            Console.WriteLine("Pregunta " & pregunta)

            Console.WriteLine("¿Cuanto es 6 : 3 + 2 x 2 = ?")

            Console.WriteLine("1. 8")

            Console.WriteLine("2. 4")

            Console.WriteLine("3. 7")

            Console.WriteLine("4. 6")

            respuesta = Console.ReadLine()

            if respuesta = 4 then

                Console.WriteLine("Correcta")

                puntos += 1

            else

                Console.WriteLine("Incorrecta")

            end if  

        Case 10

            Console.WriteLine("Pregunta " & pregunta)

            Console.WriteLine("¿Cuanto es 70 : 7 + 9 x 3 = ?")

            Console.WriteLine("1. 28")

            Console.WriteLine("2. 34")

            Console.WriteLine("3. 37")

            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