Imports System
Public Class Program
Public Shared Sub Main()
Dim arr As Integer() = New Integer() {4, 7, 2, 9, 3}
Dim arr_size As Integer = arr.Length
Dim last As Integer = arr(arr_size - 1)
For i As Integer = arr_size - 1 To 1 step -1
arr(i) = arr(i - 1)
Next
arr(0) = last
For i As Integer = 0 To arr_size - 1
Console.Write(arr(i) & " ")
Next
End Sub
End Class
' run:
'
' 3 4 7 2 9
'