上传贴吧第4次课-数组.pptVIP

* * * * * Option Base 1 Private Sub Form_Click() a = Array(1, 2, 3, 5, 4) For i = 1 To 4 For j = i + 1 To 5 If a(i) a(j) Then temp = a(j) a(j) = a(i) a(i) = temp End If Next j Next i For Each x In a Print x, Next x End Sub * * * * * * VB开发环境 * QQ 比较交换法 基本过程（以降序为例）：将第一个元素顺序与其后面的元素比较，比第一个大则进行交换，第一轮完毕后，最大的元素被挪到了第一个位置，第二轮从第二个元素开始重复上面的过程，结束后得到第二个最大的元素，如此下去经过 N-1 轮的比较，可将 N 个数排好 1 2 3 5 4 2 1 3 5 4 3