Mega Code Archive

 

Categories / VB.Net / Development

 

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