
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