devxlogo

FillRandomArray – Fill the input array with random values

FillRandomArray – Fill the input array with random values

' Fill the input array with random values'' Example:'   Dim arr(9) As Integer'   FillRandomArray(arr, 1, 11)'   Dim i As Integer'   For i = 0 To 9'       Debug.Write(arr(i) & " ")'   Next'   Debug.WriteLine("")Sub FillRandomArray(ByVal arr As Array)    FillRandomArray(arr, Integer.MinValue, Integer.MaxValue)End Sub' This overloaded version allows you to specify the min-max range for the ' random numbers' Note: the max value is used as in the Random.Next method,'  and thus is not included in the range. If you want to specify a range of 1-' 10, with 10 included, you should pass 11 as upper bound.Sub FillRandomArray(ByVal arr As Array, ByVal min As Integer, _    ByVal max As Integer)    FillRandomArray(arr, min, max, arr.GetLowerBound(0), arr.GetUpperBound(0))End Sub' This overloaded version allows you to specify also which portion of the array ' should be consideredSub FillRandomArray(ByVal arr As Array, ByVal min As Integer, _    ByVal max As Integer, ByVal first As Integer, ByVal last As Integer)    Dim rand As New Random    Dim i As Integer    For i = first To last        arr.SetValue(rand.Next(min, max), i)    NextEnd Sub

devx-admin

Share the Post: