Module Module1
Sub Main()
Const N As Long = 20
Dim rng As New Random
For i As Integer = 0 To N
Console.WriteLine(rng.Next(10000000, 99999999))
Next
End Sub
End Module
' run:
'
' 84805246
' 40791991
' 43465918
' 41106946
' 52496034
' 28202902
' 37175445
' 46462133
' 93359669
' 89983710
' 51626259
' 68803831
' 33527303
' 72751126
' 94377711
' 20097789
' 35036802
' 22649352
' 63012015
' 64572791
' 58919953