Blog

VB.Net program to sort an array in ascending order using selection sort

'VB.Net program to sort an integer array in the 
'ascending order using selection sort.

Module Module1

    Sub Main()
        Dim arr As Integer() = New Integer(5) {}
        Dim min As Integer=0
        Dim temp As Integer = 0

        Dim loop1 As Integer = 0
        Dim loop2 As Integer = 0
        Dim i As Integer = 0

        Console.WriteLine("Enter array elements: ")
        For i = 0 To 4 Step 1
            Console.Write("Element[{0}]: ", i)
            arr(i) = Integer.Parse(Console.ReadLine())
        Next

        'Sort array in ascending order using selection sort.
        For loop1 = 0 To 4 Step 1
            min = loop1
            For loop2 = loop1 + 1 To 4
                If arr(loop2) < arr(min) Then
                    min = loop2
                End If
            Next
            temp = arr(loop1)
            arr(loop1) = arr(min)
            arr(min) = temp
        Next

        Console.WriteLine("Array after sorting: ")
        For i = 0 To 4 Step 1
            Console.Write("{0} ", arr(i))
        Next
        Console.WriteLine()
    End Sub
    
End Module

Enter array elements:
Element[0]: 43
Element[1]: 32
Element[2]: 15
Element[3]: 56
Element[4]: 76
Array after sorting:
15 32 43 56 76
Press any key to continue . . .