Imports System

Public Module Module1

    Public Sub Main()

        Dim Guesses, Number as integer

        Dim RandomNum As Integer

        Dim RandomClass As New Random()

        for i = 1 to 10

        RandomNum = RandomClass.next(1,10) 'Generates a random number that needs to be guessed.

Next

        Console.WriteLine("Lets play a game")

        Console.writeline("You have to guess a number between 1-10, If you guess correct you win. I will record how mnay guesses you have had. Good Luck!")

        Do

    Number = Console.readline()'Allows user to input a random number.

    Guesses = Guesses + 1 'Remembers and counts up the guesses until guess is correct.

Loop until number = RandomNum 'Ends loop when user guesses answer correct.

​

        Console.writeline("You guessed coreect, it took you "& guesses &" guesses to beat my game")

    End Sub

End Module