Mega Code Archive

 

Categories / VB.Net Tutorial / Collections

 

Array Reverse and Sort

Option Strict On  Imports System  Class Tester      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       Public Shared Sub Main( )          Dim myArray As [String]( ) = {"W", "s", "J", "t"}          Console.WriteLine("Display myArray...")          DisplayArray(myArray)          Console.WriteLine("Reverse and display myArray...")          Array.Reverse(myArray)          DisplayArray(myArray)          Dim myOtherArray As [String]( ) ={"W", "d", "e", "s", "o", "e", "f", "t"}          Console.WriteLine("Display myOtherArray...")          DisplayArray(myOtherArray)          Console.WriteLine("Sort and display myOtherArray...")          Array.Sort(myOtherArray)          DisplayArray(myOtherArray)      End Sub 'Main  End Class 'Tester Display myArray... Value: W Value: s Value: J Value: t Reverse and display myArray... Value: t Value: J Value: s Value: W Display myOtherArray... Value: W Value: d Value: e Value: s Value: o Value: e Value: f Value: t Sort and display myOtherArray... Value: d Value: e Value: f Value: o Value: s Value: t Value: W