SwapArrayItems – Swap two elements in the input array

' Swap two elements in the input array'' Example:'   Dim arr As Integer() = {3, 7, 8, 2, 0, 9}'   SwapArrayItems(arr, 1, 4)'   Dim o As Object'   For Each o In arr'       Debug.Write(o & " ")'   Next'   Debug.WriteLine("")Sub SwapArrayItems(ByVal arr As Array, ByVal index1 As Integer, _    ByVal index2 As Integer)    Dim temp As Object = arr(index1)    arr(index1) = arr(index2)    arr(index2) = tempEnd Sub

Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

Recent Articles: