Code Snippets

VB.NET Source Code

Welcome to Dream.In.Code
	Become a VB.NET Expert! Join 300,574 VB.NET Programmers for FREE! Get instant access to thousands of VB.NET experts, tutorials, code snippets, and more! There are 2,189 people online right now. Registration is fast and FREE... Join Now! Chat LIVE With a VB.NET Expert

Sorting Array of Numbers

Submitted By: janmichaelintia

Actions:

Rating:

Views: 251

Language: VB.NET

Last Modified: July 2, 2009

Instructions: This snippet sorts an array of numbers ascendingly.

Snippet

Public Function NumberSorting(ByVal numbers() As Integer) _
As Integer()
' Iterate through array of numbers
' For every iteration, index 'j' will
' act as a comparator
For j As Integer = 0 To numbers.Length - 1
For x As Integer = 0 To numbers.Length - 1
' Compare each numbers of the array
' with the comparator
If numbers(x) > numbers(j) Then
' If a number preceeding the comparator
' is greater than the comparator
' exchange/switch the numbers
numbers(x) = numbers(x) + numbers(j)
numbers(j) = numbers(x) - numbers(j)
numbers(x) = numbers(x) - numbers(j)
End If
Next
Next
Return numbers
End Function
' Usage Example:
Dim numbers() As Integer = {501, 66, 502, 120, 1, 8, 7, 500}
Dim sortedNumberList() As Integer = NumberSorting(numbers)
' Output: sortedNumberList() = {1, 7, 8, 66, 120, 500, 501, 502}

Copy & Paste

Public Function NumberSorting(ByVal numbers() As Integer) _
    As Integer()

' Iterate through array of numbers 
        ' For every iteration, index 'j' will
        ' act as a comparator
        For j As Integer = 0 To numbers.Length - 1

For x As Integer = 0 To numbers.Length - 1

' Compare each numbers of the array 
                ' with the comparator
                If numbers(x) > numbers(j) Then

' If a number preceeding the comparator
                    ' is greater than the comparator
                    ' exchange/switch the numbers
                    numbers(x) = numbers(x) + numbers(j)
                    numbers(j) = numbers(x) - numbers(j)
                    numbers(x) = numbers(x) - numbers(j)
                End If
            Next
        Next

Return numbers

End Function

' Usage Example:

Dim numbers() As Integer = {501, 66, 502, 120, 1, 8, 7, 500}
Dim sortedNumberList() As Integer = NumberSorting(numbers)

' Output: sortedNumberList() = {1, 7, 8, 66, 120, 500, 501, 502}