Question

How to shift elements of an array to the right by one position in VB.NET

Answer 1

Imports System

Class Program
    Public Shared Sub Main()
        Dim array As Integer() = {0, 1, 2, 3, 4, 5, 6}
		
        ShiftRight(array)
        PrintArray(array)
    End Sub

    Private Shared Sub ShiftRight(ByVal arr As Integer())
        Dim last As Integer = arr(arr.Length - 1)
		
        For i As Integer = arr.Length - 1 To 1 Step -1
            arr(i) = arr(i - 1)
        Next
	
        arr(0) = last
    End Sub

    Private Shared Sub PrintArray(ByVal arr As Integer())
        For Each item As Integer In arr
            Console.Write(item & " ")
        Next

        Console.WriteLine()
    End Sub
End Class


  
' run:
' 
' 6 0 1 2 3 4 5 
'

 

70+ SQL courses for beginners and professionals