Imports System
Public Class Program
Private Shared Sub ShiftArrayToLeft(ByVal arr As Integer(), ByVal start As Integer)
For i As Integer = start To arr.Length - 1 - 1
arr(i) = arr(i + 1)
Next
End Sub
Private Shared Sub MoveElementToEndOfArray(ByVal arr As Integer(), ByVal index As Integer)
Dim n As Integer = arr(index)
ShiftArrayToLeft(arr, index)
arr(arr.Length - 1) = n
End Sub
Private Shared Sub PrintArray(ByVal arr As Integer())
For i As Integer = 0 To arr.Length - 1
Console.Write(arr(i) & " ")
Next
End Sub
Public Shared Sub Main(ByVal args As String())
Dim arr As Integer() = New Integer() {4, 9, 12, 90, 13, 0, 3, 97}
PrintArray(arr)
Dim index As Integer = 4
Console.WriteLine(Environment.NewLine & "element value: " & arr(index))
MoveElementToEndOfArray(arr, index)
PrintArray(arr)
End Sub
End Class
' run:
'
' 4 9 12 90 13 0 3 97
' element value: 13
' 4 9 12 90 0 3 97 13
'
