ArrayShuffle – Shuffling the elements of an array of any type

ArrayShuffle – Shuffling the elements of an array of any type

 ' Shuffle the elements of an array of any type'' Example:'   Dim arr As Integer() = {3, 7, 8, 2, 0, 9}'   ArrayShuffle(arr)'   Dim o As Object'   For Each o In arr'       Debug.Write(o & " ")'   Next'   Debug.WriteLine("")Sub ArrayShuffle(ByVal arr As Array)    Dim i, newIndex As Integer    Dim tmpValue As Object    Dim rand As New Random    Dim first As Integer = arr.GetLowerBound(0)    Dim last As Integer = arr.GetUpperBound(0)    For i = last To first + 1 Step -1        ' evaluate a random index for the current item        newIndex = first + rand.Next(i + 1)        ' swap the two items        tmpValue = arr(i)        arr(i) = arr(newIndex)        arr(newIndex) = tmpValue    NextEnd Sub

See also  The Benefits of Patient Engagement Solutions for Healthcare Providers

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist