计算机等级考试二级VB常用算法：排序.docx

计算机等级考试二级VB常用算法：排序
1、算法说明 　　1〕选择法排序 〔1〕从n个数中选出最小数的下标，出了循环，将最小数与第一个数交换位置； 〔2〕除第一个数外，在剩


　　2〕冒泡法排序 选择排序法在每一轮排序时找最值元素的下标，出了内循环〔一轮排序完毕〕，再交换最小数的位置；而冒泡法在每一轮排序时将相邻的数比拟，当次序不对就交换位置，出了内循环，最值数已经冒出。 譬如： 8 6 9 3 2 7 8 6 9 3 2 7 8 6 9 2 3 7 8 6 2 9 3 7 8 2 6 9 3 7 2 8 6 9 3 7 …. 2 3 8 6 9 7 …. 2 3 6 8 7 9 …. 2 3 6 7 8 9 …. 2 3 6 7 8 9 程序代码如下： Private Sub mpPaiXu〔a〔〕 As Double, sheng As Boolean〕 'a为须要排序的数组，sheng为True那么为升序排列，为False，那么为降序排列。 Dim i As Integer, j As Integer Dim temp As Double Dim m As Integer For i = LBound〔a〕 To UBound〔a〕 - 1 '进展n-1轮比拟 For j = UBound〔a〕 To i + 1 Step -1 '从n到i个元素两两进展比拟 If sheng Then '假设次序不对，立刻进展交换 If a〔j〕 a〔j - 1〕 Then temp = a〔j〕 a〔j〕 = a〔j - 1〕