Question

How to reverse an array upto a given index in VB.NET

Answer 1

Imports System

Public Class Program
	Public Shared Sub reverseUpToIndex(ByVal arr As Integer(), ByVal index As Integer)
        If index > arr.Length Then
            Console.Write("Index out of range")
            Return
        End If

        For i As Integer = 0 To index / 2 - 1
            Dim temp As Integer = arr(i)
            arr(i) = arr(index - i - 1)
            arr(index - i - 1) = temp
        Next
    End Sub

    Public Shared Sub Main()
        Dim arr As Integer() = {1, 4, 8, 0, 7, 3, 9, 5, 6}
	
        Dim index As Integer = 5
	
        reverseUpToIndex(arr, index)
	
        Console.WriteLine(String.Join(" ", arr))
    End Sub
End Class






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

 

70+ SQL courses for beginners and professionals