Imports System
Public Module Module1
Public Sub Main()
dim load as decimal
dim rand1, rand2 as new random
Console.WriteLine(load)
While load < 100
load = load + rand1.next(0,2)
End while
End Sub
End Module