冒泡排序（Bubble Sort，台湾译为：泡沫排序或气泡排序）是一种简单的排序算法。它重复地走访过要排序的数列，一次比较两个元素，如果他们的顺序错误就把他们交换过来。走访数列的工作是重复地进行直到没有再需要交换，也就是说该数列已经排序完成。这个算法的名字由来是因为越小的元素会经由交换慢慢「浮」到数列的顶端。

冒泡排序对个项目需要O()的比较次数，且可以原地排序。尽管这个演算法是最简单了解和实作的排序算法之一，但它对于少数元素之外的数列排序是很没有效率的。

冒泡排序是与插入排序拥有相等的执行时间，但是两种法在需要的交换次数却很大地不同。在最坏的情况，冒泡排序需要次交换，而插入排序只要最多交换。冒泡排序的实现（类似下面）通常会对已经排序好的数列拙劣地执行（），而插入排序在这个例子只需要个运算。因此很多现代的演算法教科书避免使用冒泡排序，而用插入排序取代之。冒泡排序如果能在内部回圈第一次执行时，使用一个旗标来表示有无需要交换的可能，也有可能把最好的复杂度降低到。在这个情况，在已经排序好的数列就无交换的需要。若在每次走访数列时，把走访顺序和比较大小反过来，也可以稍微地改进效率。有时候称为往返排序，因为演算法会从数列的一端到另一端之间穿梭往返。

冒泡排序演算法的运作如下：

1. 比较相邻的元素。如果第一个比第二个大，就交换他们两个。
2. 对每一对相邻元素作同样的工作，从开始第一对到结尾的最后一对。在这一点，最后的元素应该会是最大的数。
3. 针对所有的元素重复以上的步骤，除了最后一个。
4. 持续每次对越来越少的元素重复上面的步骤，直到没有任何一对数字需要比较。

由于它的简洁，冒泡排序通常被用来对于程式设计入门的学生介绍演算法的概念。

自己理解的冒泡排序:

''' <summary>
''' 对IComparable接口类型进行冒泡排序
''' </summary>
<Extension()>
Public Sub BubbleSort(Of T As IComparable)(ByRef Array() As T)
    For i = 0 To Array.Count - 1
        For j = i + 1 To Array.Count - 1
            If Array(i).CompareTo(Array(j)) > 0 Then
                Dim Temp As T
                Temp = Array(i)
                Array(i) = Array(j)
                Array(j) = Temp
            End If
        Next
    Next
End Sub

标准版

Public Function bubbleSort(ByRef arr() As Integer) As Integer
    Dim i As Integer = arr.Count
    Dim temp,count As Integer
    While i > 0
        For j = 0 To i - 2
            If arr(j) > arr(j + 1) Then
                temp = arr(j)
                arr(j) = arr(j + 1)
                arr(j + 1) = temp
            End If
            count += 1
        Next
        i -= 1
    End While
    Return count
End Function

使用标志的冒泡排序

Public Function bubble_sort(ByVal d() As Integer) As Integer
    Dim exchange As Integer = d.Count - 1
    Dim count As Integer

    While exchange <> 0

        '记录下发生数据交换的位置
        Dim bound As Integer = exchange

        '假定本趟比较没有数据交换
        exchange = 0

        For i = 0 To bound - 1
            If d(i) > d(i + 1) Then

                '交换
                Dim t As Integer = d(i)
                d(i) = d(i + 1)
                d(i + 1) = t

                exchange = i + 1

                '增加比较次数
                count += 1
            End If
        Next
    End While
    Return count
End Function