VB.NET example-bubble sort algorithm

Bubble sort algorithm

Module Module1

    Sub Main()

        Dim arr() As Integer = New Integer() {30, 12, 32, 34, 45, 90}

        'sort the array using bubble sort

        bubbleSort(arr, arr.Length)

        'output the sorted array

        Dim i As Integer

        For i = 0 To arr.Length - 1

            Console.WriteLine(arr(i))

        Next

        Console.ReadLine() 'wait for keypress

    End Sub

    Sub bubbleSort(ByVal dataset() As Integer, ByVal n As Integer)

        Dim i, j As Integer

        For i = 0 To n Step 1

            For j = n - 1 To i + 1 Step -1

                If (dataset(j) < dataset(j - 1)) Then

                    Dim temp As Integer = dataset(j)

                    dataset(j) = dataset(j - 1)

                    dataset(j - 1) = temp

                End If

            Next

        Next

    End Sub

End Module