Imports System

Imports Microsoft.VisualBasic

​

Public Module Module1

​

    Public Sub Main()

        Randomize()

        Dim guess, attempts, correct as integer

        correct = CInt(100*Rnd())+1

        Console.WriteLine(correct)

        attempts = 0

        Console.WriteLine("Enter the number I am thinking of between 1 and 100!!!" )

        guess = Console.ReadLine()

        while guess <> correct 

            attempts = attempts + 1

            If guess < correct Then 

                Console.WriteLine(guess & " is too low, try again")

            Else 

                Console.WriteLine(guess & " is too high,try again")

                End If 

            Console.WriteLine(attempts)

            Console.WriteLine(correct)

            guess = Console.Readline()

            end while

        Console.WriteLine("It took you " & attempts +1 & " attempts to guess the number I was thinking of!!!")

    End Sub

End Module

​