Imports System
Public Module Module1
Public Sub Main()
Dim rand As Random = new Random()
For i As Integer = 1 To 30
Console.WriteLine(rand.Next(100, 1000))
Next
End Sub
End Module
' run:
'
' 715
' 115
' 199
' 159
' 617
' 580
' 495
' 643
' 163
' 483
' 221
' 163
' 297
' 843
' 274
' 773
' 742
' 568
' 150
' 759
' 803
' 564
' 724
' 340
' 894
' 125
' 916
' 754
' 417
' 105