Imports System
                 
Public Module Module1
    Public Sub Main()
         
        Dim rand As Random = new Random()
    
        For i As Integer = 1 To 20
             Console.WriteLine(rand.Next(10000, 99999))
        Next
 
    End Sub
     
End Module
 
 
 
' run:
'
' 57454
' 51088
' 47875
' 56306
' 16283
' 23607
' 88741
' 82532
' 39141
' 10388
' 44018
' 12572
' 59222
' 19029
' 75966
' 27350
' 32107
' 82249
' 13707
' 89089