' 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



Top 5 B2B SaaS Marketing Agencies for 2023
In recent years, the software-as-a-service (SaaS) sector has experienced exponential growth as more and more companies choose cloud-based solutions. Any SaaS company hoping to stay ahead of the curve in this quickly changing industry needs to invest in effective marketing. So selecting the best marketing agency can mean the difference