Imports System

Public Module Module1

    Public Sub Main()

        Dim randomize as New Random()

        Dim preguntas as integer 

        Dim respuesta as integer = 0

        while respuesta < 10    

            preguntas = randomize.Next(1, 4)

            console.WriteLine(preguntas)

​

​

            SELECT CASE preguntas

            case 1

            console.WriteLine("¿Que se deberia hacer si una persona se lastimo,y la zona no deja de sangrar??")

            console.WriteLine("1. salir corriendo por ayuda")

            console.WriteLine("2. actuar y presionar la herida")

            console.WriteLine("3. ir al baño y agarrar papel, para presionar la herida")

            console.WriteLine("4. dejarlo tirado e irte a las clases")

                RESPUESTA = console.ReadLine()

                if RESPUESTA = 3 then

                    console.WriteLine("correcto")

                else

                    console.WriteLine("incorrecto")

                end if

            case 2 

            console.WriteLine("¿Que es una hemorragia?")

            console.WriteLine("1. una banda de rock")

            console.WriteLine("2. un jugete")

                console.WriteLine("3. Una salida de sangre de las arterias")

            console.WriteLine("4.un sintoma de covid")

                RESPUESTA = console.ReadLine()

                if RESPUESTA = 3 then

                    console.WriteLine("correcto")

                else

                    console.WriteLine("incorrecto")

                end if

            case 3

            console.WriteLine("¿de que forma se crea una hemorragia?")

            console.WriteLine("1.Cuando los vasos o capilares sanguíneos sufren algún daño de exterior o de interior del cuerpo")

            console.WriteLine("2. cuando se sufre un daño muy profundo ")

            console.WriteLine("3.cuando tenes mucha hambre ")

            console.WriteLine("4.cuando haces mucho ejercisio")

                RESPUESTA = console.ReadLine()

                if RESPUESTA = 1 then

                    console.WriteLine("correcto")

                else

                    console.WriteLine("incorrecto")

                end if

            case 4

            console.WriteLine("que numero es el item de la tierra en minecraft")

                console.WriteLine("1. 134")

                console.WriteLine("2. 1")

                console.WriteLine("3. 56")

                console.WriteLine("4. 3")

                RESPUESTA = console.ReadLine()

                if RESPUESTA = 2 then

                    console.WriteLine("correcto")

                else

                    console.WriteLine("incorrecto")

                end if

            end select

    end while

        end sub

End Module