Question

How to fill an array with random numbers in VB.NET

Answer 1

Module Module1

    Sub Main()

        Dim arr(15 - 1) As Integer

        Randomize()
        For i As Integer = 0 To arr.Length - 1
            arr(i) = Int(Rnd() * 1000) + 1
        Next

        For Each number In arr
            Console.WriteLine(number)
        Next

    End Sub

End Module

' run:
' 
' 153
' 553
' 446
' 927
' 688
' 729
' 824
' 316
' 197
' 423
' 327
' 305
' 988
' 26
' 842

 

70+ SQL courses for beginners and professionals