Imports System
Public Class Test
Public Shared Sub swap(arr() As Integer, i As Integer, j As Integer)
Dim tmp As Integer
tmp = arr(i)
arr(i) = arr(j)
arr(j) = tmp
End Sub
Public Shared Sub Main()
Dim arr() As Integer = {7, 4, 2, 9, 1, 5, 8}
swap(arr, 0, 3)
For i As Integer = 0 To arr.Length - 1
Console.Write("{0} ", arr(i))
Next
End Sub
End Class
' run
'
' 9 4 2 7 1 5 8