Mega Code Archive
Reverses the elements in a range
<![CDATA[
Imports System
Imports Microsoft.VisualBasic
Public Class SamplesArray
Public Shared Sub Main()
Dim myArray As Array = Array.CreateInstance(GetType(String), 9)
myArray.SetValue("The", 0)
myArray.SetValue("test", 1)
myArray.SetValue("B", 2)
myArray.SetValue("F", 3)
myArray.SetValue("j", 4)
myArray.SetValue("o", 5)
PrintIndexAndValues(myArray)
Array.Reverse(myArray, 1, 3)
PrintIndexAndValues(myArray)
End Sub
Public Shared Sub PrintIndexAndValues(myArray As Array)
Dim i As Integer
For i = myArray.GetLowerBound(0) To myArray.GetUpperBound(0)
Console.WriteLine(myArray.GetValue(i))
Next i
End Sub
End Class
]]>