氣泡排序法思路：（假設有10個數，需要從小到大排）

Dim a(10)

Randomize

For i = 1 To 10

a(i) = Int(Rnd * i + 3 + Rnd * 10) "給陣列賦值

Print a(i);

Next i

Print

For i = 1 To 10 ‘

For j = i + 1 To 10

If a(j) < a(i) Then ’如果剩餘的比a(i)小的話，就交換

t = a(j)

a(j) = a(i)

a(i) = t

End If

Next j

Next i

For k = 1 To 10

Print a(k); ‘列印排好的數

Next k

Print

　　、

　　氣泡排序（Bubble Sort），是一種計算機科學領域的較簡單的排序演算法。

　　它重複地走訪過要排序的數列，一次比較兩個元素，如果他們的順序錯誤就把他們交換過來。走訪數列的工作是重複地進行直到沒有再需要交換，也就是說該數列已經排序完成。

　　這個演算法的名字由來是因為越大的元素會經由交換慢慢“浮”到數列的頂端，故名。