Imports System
Public Class Program
Public Shared Sub Main()
Dim array As Integer() = {7, 8, 9, 0, 3}
Dim x As Integer = array(0)
array(0) = array(array.Length - 1)
array(array.Length - 1) = x
For Each n As Integer In array
Console.Write(n & " ")
Next
End Sub
End Class
' run:
'
' 3 8 9 0 7
'