20 random integers from 1000 to 10000
Module Example Public Sub Main() Dim rnd As New Random() For ctr As Integer = 1 To 20 Console.Write("{0,8}", rnd.Next(1000, 10001)) If ctr Mod 5 = 0 Then Console.WriteLine() Next End Sub End Module