Imports System

Public Module Module1

    Public Sub Main()

        dim guesses as integer 

        dim randomnum as integer

        dim attempts as integer

        dim number as random = new random 

        randomnum =(Number.next(1,10))'This is where declare the numbers the user can guess between.

    Console.WriteLine("Welcome to the number guessing game ")

    Threading.thread.sleep(1750)                            ' The code intrduces the user the user to the game and tells them how it works.

    Console.Writeline("Guess the number between 1 and 10 in the least amount of guesses to be the best")

    Threading.thread.sleep(1750)

    Do

        Console.writeline("Input your guess below")

        Threading.thread.sleep(750)'The user then inputs their number guess below and the code determines if they are correct. 

        Guesses = Console.readline 

        If guesses = randomnum then 

            Console.writeline("Well done you have correctly guessed the number")

        End If ' If the guess number correctly they get a good message.

        If guesses <> randomnum then

            Console.WriteLine("Try another number")

        End if ' If they don't guess correctly they have to try again. 

        attempts = attempts + 1 ' The attempts add up each time you guess the number incorrectly        

    Loop Until guesses = randomnum

    Threading.thread.Sleep(750)

    Console.Writeline("It took you " & attempts & " attempts to guess the number correctly")' Displays the number of guesses to the user

    Console.Readline()

    End Sub

End Module