Imports System

Imports Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

        Dim respuesta as integer

        Dim rpreguntas as new Random()

        Dim preguntas as integer

    for  x = 0 to 10

    Randomize()

    preguntas = rpreguntas.next(1,4)

    select case preguntas

    case 1

        Console.WriteLine("¿de que color era el caballo blanco de San Martin?")

        Console.WriteLine("1. azul")

        Console.WriteLine("2. blanco")

        Console.WriteLine("3. rojo")

        Console.WriteLine("4. amarillo")

        respuesta = Console.ReadLine()

        if respuesta = 2 then

            Console.WriteLine("correcta")

        else

            Console.WriteLine("inorrecta")

        end if

    case 2

        Console.WriteLine("¿de que color son los ojos celestes del profe?")

        Console.WriteLine("1. azules")

        Console.WriteLine("2. blancos")

        Console.WriteLine("3. celestes")

        Console.WriteLine("4. amarillos")

        respuesta = Console.ReadLine()

        if respuesta = 3 then

            Console.WriteLine("correcta")

        else

            Console.WriteLine("inorrecta")

        end if 

    case 3

        Console.WriteLine("¿de que color es el gato gris del profe?")

        Console.WriteLine("1. gris")

        Console.WriteLine("2. blanco")

        Console.WriteLine("3. rojo")

        Console.WriteLine("4. amarillo")

        respuesta = Console.ReadLine()

        if respuesta = 1 then

            Console.WriteLine("correcta")

        else

            Console.WriteLine("inorrecta")

        end if

    case 4

        Console.WriteLine("¿de que color era piso rojo del colegio?")

        Console.WriteLine("1. azul")

        Console.WriteLine("2. blanco")

        Console.WriteLine("3. verde")

        Console.WriteLine("4. rojo")

        respuesta = Console.ReadLine()

        if respuesta = 4 then

            Console.WriteLine("correcta")

        else

            Console.WriteLine("inorrecta")

        end if

    end select

next x

    End Sub

End Module