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