Login | Register   
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB7
Expertise: Intermediate
Oct 13, 2003

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 considered
Sub 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)
    Next
End Sub
Marco Bellinaso
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap