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: beginner
Oct 13, 2003

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) = temp
End Sub

Marco Bellinaso
 
Comment and Contribute

 

 

 

 

 


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

 

 

Sitemap