Public Sub BubbleSort(ByRef lngArray() As Long)
    Dim iOuter As Long
    Dim iInner As Long
    Dim iLBound As Long
    Dim iUBound As Long
    Dim iTemp As Long

    iLBound = LBound(lngArray)
    iUBound = UBound(lngArray)
 
     '冒泡排序
      For iOuter = iLBound To iUBound - 1
          For iInner = iLBound To iUBound - iOuter - 1

                  '比較相鄰項
                    If lngArray(iInner) > lngArray(iInner + 1) Then
                         '交換值
                          iTemp = lngArray(iInner)
                          lngArray(iInner) = lngArray(iInner + 1)
                          lngArray(iInner + 1) = iTemp
                   End If

            Next iInner
      Next iOuter
End Sub