Imports System

Public Module Module1

    Public Sub Main()

​

Dim oRand as new Random

Dim nNumberToGuess as integer

nNUmberToGuess = oRand.Next(1, 100)

dim n as integer 

​

​

do until n = nNumberToGuess

console.writeline("enter number")

n = console.readline()

if n > nNumbertoGuess then

console.writeline("too high")

else if  n < nNumberToGuess then

console.writeline("too low")

​

end if

loop

console.writeline("congrats")

​

​

​

    End Sub

End Module