VB常用算法（六）排序
关键词：排序算法
1、算法说明
1) 选择法排序
(1) 从n个数中选出最小数的下标，出了循环，将最小数与第一个数交换位置；
(2) 除第一个数外，在剩下的n-1个数中再按方法（1）选出次小的数，与第二个数交换位置；
(3) 以此类推，最后构成递增序列。
譬如：
8 6 9 3 2 7
第一轮交换后
第二轮交换后
第三轮交换后
第四轮交换后
第五轮无交换
2 2 2 2 2 6 3 3 3 3 9 9 6 6 6 3 6 9 7 7 8 8 8 8 8 77799
程序代码如下：
Private Sub xzPaiXu(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 '进行数组大小-1轮比较
m = i'在第i轮比较时，假定第
'i个元素为最值元素
For j = i + 1 To UBound(a)'在剩下的元素中找出最
'值元素的下标并记录在m中
If sheng Then'若为升序，则m记录最小元素
'下标,否则记录最大元素下标
If a(j) < a(m) Then m = j
Else
If a(j) > a(m) Then m = j
End If
Next j '将最值元素与第i个元素交换
temp = a(i)
a(i) = a(m)
a(m) = temp
Next i
End Sub
www.99jianzhu.com/包含内容：建筑图纸、PDF/word/ppt 流程，表格，案例，最新,免费下载,施工方案、工程书籍、建筑论文、合同表格、标准规范、CAD图纸等内容。