Module Module1
Sub Main()
Dim arr() As Integer = {1, 2, 3, 4, 5, 6, 7}
Array.Reverse(arr)
For i As Integer = 0 To arr.Length - 1
Console.WriteLine("arr({0}) = {1}", i, arr(i))
Next
End Sub
End Module
'run:
'
'arr(0) = 7
'arr(1) = 6
'arr(2) = 5
'arr(3) = 4
'arr(4) = 3
'arr(5) = 2
'arr(6) = 1