冒泡排序法

For i = 1 To 9

   For j = 1 To 10- i

      If a(j) <a(j + 1) Then

      t = a(j):a(j) = a(j + 1): a(j + 1) = t

      End If

   Next j

Next i

10个数排序，需9轮比完。

第1轮，从a（1）比到a（10），把最小的数放到a（10）

首先，a（1）和a（2）比，若a（1）不小于a（2），则a（2）和a（3）比；若a（1）小于a（2），则a（1）a（2）的值进行交换，a（2）和a（3）比。以此类推……a（9）和a（10）比。

第2轮，从a（1）比到a（9），把最小的数放到a（9）

……

第9轮，从a（1）比到a（2），把最小的数放到a（2）