vb.net Data Sort Reverse Code

vb.net Data Sort Reverse Code

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