Question

How to shift array elements to left by one position in VB.NET

Answer 1

Imports System

Public Class Program
    Public Shared Sub ShiftArrayToLeft(ByVal arr As Integer(), ByVal size As Integer)
        Dim temp As Integer = arr(0)

        For i As Integer = 0 To size - 1 - 1
            arr(i) = arr(i + 1)
        Next

        arr(size - 1) = temp
    End Sub

    Public Shared Sub Main(ByVal args As String())
        Dim arr As Integer() = New Integer() {1, 2, 3, 4, 5, 6, 7, 8, 9}

        Dim size As Integer = arr.Length

        ShiftArrayToLeft(arr, size)

        For i As Integer = 0 To size - 1
            Console.Write(arr(i) & " ")
        Next
    End Sub
End Class




' run:
'
' 2 3 4 5 6 7 8 9 1
'

 

70+ SQL courses for beginners and professionals