Selection Sorting

Module AscendingSS


    Sub Main()
        Dim n, i, j, t As Integer
        Console.WriteLine("Selection Sorting in Ascending Order")
        Console.WriteLine("------------------------------------")
        Console.WriteLine()
        Console.Write("Enter the number of Elements: ")
        n = CInt(Console.ReadLine())
        Dim arr(n) As Integer
        For i = 0 To n - 1
            Console.Write("Enter the " & (i + 1).ToString & "th element: ")
            arr(i) = CInt(Console.ReadLine())
        Next
        Console.WriteLine("Array Contains...")
        For i = 0 To n - 1
            Console.Write(arr(i) & " ")
        Next
        Console.WriteLine()
        For i = 0 To n - 2
            For j = i + 1 To n - 1
                If arr(i) > arr(j) Then
                    t = arr(i)
                    arr(i) = arr(j)
                    arr(j) = t
                End If
            Next
        Next
        Console.WriteLine("Ascending Order: ")
        For i = 0 To n - 1
            Console.Write(arr(i) & " ")
        Next
        Console.ReadLine()
    End Sub



End Module