Home » VB.Net » VB.Net Programs

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

By Nidhi Last Updated : November 16, 2024

Sort an array in descending order using selection sort

Here, we will sort an array of integers in the descending order using selection sort, and then print sorted array on the console screen.

Program/Source Code:

The source code to sort an array in descending order using selection sort is given below. The given program is compiled and executed successfully.

VB.Net code to sort an array in descending order using selection sort

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

Module Module1

    Sub Main()
        Dim arr As Integer() = New Integer(5) {}
        Dim max 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 descending order using selection sort.
        For loop1 = 0 To 4 Step 1
            max = loop1
            For loop2 = loop1 + 1 To 4
                If arr(loop2) > arr(max) Then
                    max = loop2
                End If
            Next
            temp = arr(loop1)
            arr(loop1) = arr(max)
            arr(max) = 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

Output

Enter array elements:
Element[0]: 23
Element[1]: 65
Element[2]: 87
Element[3]: 34
Element[4]: 12
Array after sorting:
87 65 34 23 12
Press any key to continue . . .

Explanation

In the above program, we created a module Module1 that contains a function Main(). In the Main() we created an array arr of five elements and four variables max, temp , loop1, and loop2 that are initialized with 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

In the above code, we read the elements of the array from the user.

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

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

Using above given code, we sort the array in the descending order using selection sort and print the sorted array on the console screen.

VB.Net Array Programs »

---