Array Reverse and Sort
Imports System Public Class MainClass Shared Sub Main() Dim myArray As [String]( ) = {"W", "i", "A", "t"} Console.WriteLine("Display myArray...") DisplayArray(myArray) Console.WriteLine("Reverse and display myArray...") Array.Reverse(myArray) DisplayArray(myArray) Dim myOtherArray As [String]( ) = _ {"e", "l", "s", "T", "o", "B", "f", "v"} Console.WriteLine("Display myOtherArray...") DisplayArray(myOtherArray) Console.WriteLine("Sort and display myOtherArray...") Array.Sort(myOtherArray) DisplayArray(myOtherArray) End Sub Public Shared Sub DisplayArray(ByVal theArray( ) As Object) Dim obj As Object For Each obj In theArray Console.WriteLine("Value: {0}", obj) Next obj Console.WriteLine(ControlChars.Lf) End Sub 'DisplayArray End Class