Imports System
Public Class Program
Public Shared Sub reverseSubarray(ByVal arr As Integer(), ByVal start As Integer, ByVal end_ As Integer)
If end_ > arr.Length Then
Console.WriteLine("End index out of range")
Return
End If
Dim mid_sub As Integer = (end_ - start + 1) / 2
For i As Integer = 0 To mid_sub - 1
Dim tmp As Integer = arr(start + i)
arr(start + i) = arr(end_ - i)
arr(end_ - i) = tmp
Next
End Sub
Public Shared Sub Main()
Dim arr As Integer() = {1, 4, 8, 0, 7, 3, 9, 5, 6}
Dim start As Integer = 2, end_ As Integer = 6
reverseSubarray(arr, start, end_)
Console.WriteLine(String.Join(" ", arr))
End Sub
End Class
' run:
'
' 1 4 9 3 7 0 8 5 6
'
