Question

How to cyclically rotate the elements of int array right N times in VB.NET

Answer 1

Imports System

Public Class Program
    Public Shared Sub rotate_array_right_one_time(ByVal arr As Integer())
        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
    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_right_one_time(arr)
        Next

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




' run:
'
' 2 9 3 4 7 
'

 

70+ SQL courses for beginners and professionals