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