Imports System

Public Module Module1

    Public Sub Main()

        Dim random as random = new Random()

        Dim g, mynumber as integer

        mynumber = Random.Next(1,100)

    console.WriteLine(mynumber)

    for n = 1 to 100

    g = console.ReadLine()

        next n

    End Sub

End Module