Question

How to create an array of n random integers with a function and list on declaration in VB.NET

Answer 1

Module Module1

    Sub Main()
        Dim arr() As Integer = CreateArray(13, 0, 100)

        For i As Integer = 0 To arr.Length - 1
            Console.Write("{0}  ", arr(i))
        Next
    End Sub

    Private Function CreateArray(total_elements As Integer,
                                 lower As Integer, upper As Integer) As Integer()
        Dim rnd As New Random()
        Dim list As New List(Of Integer)
        For i As Integer = 1 To total_elements
            list.Add(rnd.Next(lower, upper + 1))
        Next
        Return list.ToArray()
    End Function

End Module


' run:
' 
' 28  48  86  85  90  11  27  42  84  88  6  36  31

 

70+ SQL courses for beginners and professionals