Mega Code Archive

 

Categories / VB.Net / Development

 

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