Imports System
Public Module Module1
Public Sub Main()
Dim c, u as integer
Dim r as random = new random
c = r.next (0, 101)
console.writeLine(c)
Do
Console.WriteLine(" Enter your guess ")
u = Console.ReadLine()
If u > c then
Console.WriteLine( " High " )
Else if u < c then
Console.WriteLine( " Low " )
Else
Console.WriteLine(" Found ")
End if
Loop While U <> c
End Sub
End Module
