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

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.


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

WEBINAR:

On-Demand

Application Security Testing: An Integral Part of DevOps


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
×
We have made updates to our Privacy Policy to reflect the implementation of the General Data Protection Regulation.
Thanks for your registration, follow us on our social networks to keep up-to-date