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