Imports System

Public Module Module1

    Public Sub Main()

​

        'Create an instance of the Random class

         'Get a random number from 1 to 20  

    dim rnd as new random()

    dim num as integer = rnd.next(1,20)

        dim n as integer

        dim guess as integer

        console.WriteLine(num)

        console.WriteLine("you have 10 guesses")

        for n = 1 to 10

        Console.WriteLine("please guess a number in 1-20")

        guess = console.ReadLine()

        if guess = num then 

            console.writeline("correct")

            exit for 

        else

            Console.writeline("incorrect")

            if n < 10 then 

                console.writeline("try again")

            end if 

            if n = 10 

                console.writeline("you failed")

            end if 

        end if 

        next

    End Sub

End Module