' Create, sort, and print array of Integer.

Imports System.Console
Public Module Module1

    Public Sub Main()
        Dim i As Integer

        ' Create array of Integer.
        Dim a() As Integer = {65, 31, 79, 43}

        ' Print original array.
        For i = 0 To 3
            Write(a(i) & " ")
        Next
        WriteLine()

        ' Sort array a.
        Array.Sort(a)

        ' Print original array.
        For i = 0 To 3
            Write(a(i) & " ")
        Next
        WriteLine()

        ' Print original array with For Each loop.
        Dim x As Integer
        For Each x In a
            Write(x & " ")
        Next
        WriteLine()
        
        ReadLine()

    End Sub

End Module