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 3 * 3 - 2 = ?")

            Console.WriteLine("1. 4")

            Console.WriteLine("2. 7")

            Console.WriteLine("3. 6")

            Console.WriteLine("4. 10")

            respuesta = Console.ReadLine()

            if respuesta = 2 then

                Console.WriteLine("Correcta")

                puntos += 1

            else

                Console.WriteLine("Incorrecta")

            end if

        Case 2

            Console.WriteLine("Pregunta " & pregunta)

            Console.WriteLine("¿Como llego Colon a America = ?")

            Console.WriteLine("1. En barco")

            Console.WriteLine("2. En avion")

            Console.WriteLine("3. Caminando")

            Console.WriteLine("4. En bondi")

            respuesta = Console.ReadLine()

            if respuesta = 1 then

                Console.WriteLine("Correcta")

                puntos += 1

            else

                Console.WriteLine("Incorrecta")

            end if  

        Case 3

            Console.WriteLine("Pregunta " & pregunta)

            Console.WriteLine("¿Que musculo se encuentra antes de la mano= ?")

            Console.WriteLine("1. Abdomen")

            Console.WriteLine("2. Cuadriceps")

            Console.WriteLine("3. Biceps")

            Console.WriteLine("4. Ante brazo")

            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(" ¿En que año termino la ultima dictadura en Argentina= ?")

            Console.WriteLine("1. 1.983")

            Console.WriteLine("2. 1.982")

            Console.WriteLine("3. 1.976")

            Console.WriteLine("4. 2.001")

            respuesta = Console.ReadLine()

            if respuesta = 1 then

                Console.WriteLine("Correcta")

                puntos += 1

            else

                Console.WriteLine("Incorrecta")

            end if  

        Case 5

            Console.WriteLine("Pregunta " & pregunta)

            Console.WriteLine("¿Cual es el actual presidente de Argentina= ?")

            Console.WriteLine("1. Juan Domingo Peron")

            Console.WriteLine("2. Mauricio Macri")

            Console.WriteLine("3. Cristina Kirchner")

            Console.WriteLine("4. Alberto Fernandez")

            respuesta = Console.ReadLine()

            if respuesta = 4 then

                Console.WriteLine("Correcta")

                puntos += 1

            else

                Console.WriteLine("Incorrecta")

            end if  

        Case 6

            Console.WriteLine("Pregunta " & pregunta)

            Console.WriteLine("¿Cuanto es (8 + 8) ÷ 2 = ?")

            Console.WriteLine("1. 88")

            Console.WriteLine("2. 16")

            Console.WriteLine("3. 8")

            Console.WriteLine("4. 6")

            respuesta = Console.ReadLine()

            if respuesta = 3 then

                Console.WriteLine("Correcta")

                puntos += 1

            else

                Console.WriteLine("Incorrecta")

            end if

        Case 7 

        end select

    next

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

    End Sub

End Module