Question

How to reverse the event indexes of an array in VB.NET

Answer 1

Imports System
Imports System.Collections.Generic

Public Class Program
    Public Shared Sub reverseEvenIndexes(ByVal arr As Integer())
        Dim stack As Stack(Of Integer) = New Stack(Of Integer)()

        For i As Integer = 0 To arr.Length - 1 Step 2
            stack.Push(arr(i))
        Next

        For i As Integer = 0 To arr.Length - 1 Step 2
            arr(i) = stack.Pop()
        Next
    End Sub

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

        Console.WriteLine(String.Join(" "c, arr))

        reverseEvenIndexes(arr)

        Console.WriteLine(String.Join(" "c, arr))
    End Sub
End Class






' run:
'
' 3 -1 8 -1 4 -1 7 -1
' 7 -1 4 -1 8 -1 3 -1
'

 

70+ SQL courses for beginners and professionals