Imports System

Public Module Module1

 Public Sub Main()

        Dim respuesta as integer

        Dim cantidaddepreguntas as integer

        Dim correctas as integer 

        Dim incorrectas as integer

        cantidaddepreguntas = 0

        correctas = 0

        incorrectas = 0

        for pregunta = 1 to 10

        cantidaddepreguntas = pregunta

        Console.WriteLine('Pregunta' & cantidaddepreguntas)

            Select case pregunta

            Case 1

                Console.WriteLine('¿Cuanto es 8x8?')

                Console.WriteLine(' 1 - 23')

                Console.WriteLine(' 2 - 48')

                Console.WriteLine(' 3 - 60')

                Console.WriteLine(' 4 - 64')

                respuesta = Console.ReadLine()

                if respuesta = 4 then

                Console.WriteLine('Correcto')

            'correctas+=1'

                else

                Console.WriteLine('Incorrecto')

                incorrectas = incorrectas + 1

                End If

                Case 2

                Console.WriteLine('¿Cuanto es 4x7?')

                Console.WriteLine(' 1 - 32')

                Console.WriteLine(' 2 - 28')

                Console.WriteLine(' 3 - 50')

                Console.WriteLine(' 4 - 90')

                respuesta = Console.ReadLine('28')

                if respuesta = 2 then

                Console.WriteLine('Correcto')

                'Correctas =+ 1'

                else

                Console.WriteLine('Incorrecto')

                incorrectas = incorrectas + 1

                end if

                Case 3

                Console.WriteLine('¿Cual es el animal mas grande del mundo?')

                Console.WriteLine(' 1 - Ballena Azul')

                Console.WriteLine(' 2 - Oso polar')

                Console.WriteLine(' 3 - Jirafa')

                Console.WriteLine(' 4 - Tigre')

                respuesta = Console.ReadLine()

                if respuesta = 1 then

                Console.WriteLine('Correcto')

                'Correctas =+ 1'

                else

                Console.WriteLine('Incorrecto')

                incorrectas = incorrectas + 1

                end if

                Case 4

                Console.WriteLine'(¿Cual es el nombre cientifico del tigre?')

                Console.WriteLine(' 1 - Ursus Maritimus')

                Console.WriteLine(' 2 - Canis Lupus')

                Console.WriteLine(' 3 - Panthera tigris')

                Console.WriteLine(' 4 - Equus caballus')

                respuesta = Console.ReadLine()

                if respuesta = 3 then

                Console.WriteLine('Correcto')

                'Correctas =+ 1'

                else

                Console.WriteLine('Incorrecto')

                incorrectas = incorrectas + 1

                end if

                Case 5

                Console.WriteLine('¿A que animal pertenece el nombre cientifico Canis Lupus)

                Console.WriteLine(' 1 - Leon')

                Console.WriteLine(' 2 - Lobo')

                Console.WriteLine(' 3 - Caballo')

                Console.WriteLine(' 4 - Oso panda')

                respuesta = Console.ReadLine()

                if respuesta = 2 then

                Console.WriteLine('Correcto')

                'Correctas =+ 1 '

                else

                Console.WriteLine('Incorrecto')

                incorrectas = incorrectas + 1

                end if

                Case 6

                Console.WriteLine('¿Que quiere decir biodiversidad?')

                Console.WriteLine(' 1 - Quimica')

                Console.WriteLine(' 2 - Variedad de seres vivos')

                Console.WriteLine(' 3 - Geografia')

                Console.WriteLine(' 4 - Planeta tierra')

                respuesta = Console.ReadLine()

                if respuesta = 2 then

                Console.WriteLine('Correcto')

                'Correctas =+ 1'

                else

                Console.WriteLine('Incorrcto')

                incorrectas = incorrectas + 1

                end if

                Case 7

                Console.WriteLine('¿En que año el hombre piso por primera vez la Luna?')

                Console.WriteLine(' 1 - 1750')

                Console.WriteLine(' 2 - 1820')

                Console.WriteLine(' 3 - 1969')

                Console.WriteLine(' 4 - 2000')

                respuesta = Console.ReadLine()

                if respuesta = 2 then

                Console.WriteLine('Correcto')

                'Correctas =+ 1'

                else

                Console.WriteLine('Incorrecto')

                incorrectas = incorrectas + 1

                end if

                Case 8

                Console.WriteLine('¿Cual es el nombre de la nave en la que se viajo a la Luna por primera vez?')

                Console.WriteLine(' 1 - Apolo 11')

                Console.WriteLine(' 2 - Apolo 5')

                Console.WriteLine(' 3 - Apolo 69')

                Console.WriteLine(' 4 - Apolo 90')

                respuesta = Console.ReadLine()

                if respuesta = 1 then

                Console.WriteLine('Correcto')

                'Correctas =+ 1'

                else

                Console.WriteLine('Incorrecto')

                incorrectas = incorrectas + 1

                end if

                Case 9

                Console.WriteLine('¿Que es un Tsunami?')

                Console.WriteLine(' 1 - Remolino')

                Console.WriteLine(' 2 - Erupcion')

                Console.WriteLine(' 3 - Lluvia')

                Console.WriteLine(' 4 - Maremoto')

                respuesta = Console.ReadLine()

                if respuesta = 4 then

                Console.WriteLine('Correcto')

                'Correctas =+ 1'

                else

                Console.WriteLine('Incorrecto')

                incorrectas = incorrectas + 1

                end if

                Case 10

                Console.WriteLine('¿Cual es la capital de Colombia?')

                Console.WriteLine(' 1 - Bogotá')

                Console.WriteLine(' 2 - Cali')

                Console.WriteLine(' 3 - Quindío')

                Console.WriteLine(' 4 - Barranquilla')

                respuesta = Console.ReadLine()

                if respuesta = 1 then

                Console.WriteLine('Correcto')

                'Correctas =+ 1'

                else

                Console.WriteLine('Incorrecto')

                incorrectas = incorrectas + 1

                end if