' LBound(a) 数组 a 的最小下标 ' UBound(a) 数组 a 的最大下标 ' 冒泡排序代码如下: For i = LBound(a) To UBound(a) - 1 ' 外循环 For j = i + 1 To UBound(a) ' 内循环 If a(i) > a(j) Then ' 升序 a(i) > a(j);降序时 a(i) < a(j) ' 交换 a(i) 和 a(j) End If Next j Next i
' 选择排序代码如下: For i = LBound(a) To UBound(a) - 1 k = i For j = i + 1 To UBound(a) If a(k) > a(j) Then k = j ' 升序 Next If k <> i Then T = a(i): a(i) = a(k): a(k) = T End If Next