' 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


The Best Mechanical Keyboards For Programmers: Where To Find Them
When it comes to programming, a good mechanical keyboard can make all the difference. Naturally, you would want one of the best mechanical keyboards for programmers. But with so many