Imports System

Public Module Module1

    Public Sub Main()

        ' Declare variables

        Dim RandomNum, UserGuess, Count As Integer

​

        ' Create a random number "sequence" by putting an arbitrary number in the brackets          

        Dim RandomClass As  New System.Random(70)

        'Generate random number in range 1 - 100 (note the upper limit is set as 1 more than required)

        RandomNum = RandomClass.Next(1, 101)

​

        ' Introduce game    

        Console.WriteLine("I'm thinking of a number between 1 and 100 inclusively")

        ' Set up a REPEAT ... UNTIL loop

        Do

            ' Prompt and input user guess

            Console.WriteLine("What's your guess?")         

            UserGuess = Console.ReadLine()

            ' Increment count of "goes"

            Count = Count + 1

            ' Give hint to user as appropriate          

            If UserGuess > RandomNum Then

                Console.WriteLine("*** TOO HIGH ***")

            End If

            If UserGuess < RandomNum Then

                Console.WriteLine("*** TOO LOW ***")

            End If

        ' Keep on guessing until the user enters the correct number

        Loop Until UserGuess = RandomNum    

​

        ' Tell user how many go(es) they took

        IF Count = 1 Then 

        Console.WriteLine("Well done! You took " & Count & " go.")

        Else

        Console.WriteLine("Well done! You took " & Count & " goes.")

        End If

​

    End Sub

End Module