计算机二级VB常用算法：选择法排序

会计考友

选择法排序
　　(1) 从n个数中选出最小数的下标，出了循环，将最小数与第一个数交换位置;
　　(2) 除第一个数外，在剩下的n-1个数中再按方法(1)选出次小的数，与第二个数交换位置;
　　(3) 以此类推，最后构成递增序列。
* R! Z) l8 N2 _1 ^6 D) x2 m+ J1 i　　譬如：
　　8 6 9 3 2 7
% D# {1 h0 s. n6 a$ {' ?　　第一轮交换后 2 6 9 3 8 7
　　第二轮交换后 2 3 9 6 8 7
$ J2 t5 T, ?5 L9 K$ ^　　第三轮交换后 2 3 6 9 8 7
　　第四轮交换后 2 3 6 7 8 9
1 F5 [) I$ }. s' A0 G, f5 `　　第五轮无交换 2 3 6 7 8 9
/ j5 Q) L' y/ y  ^; m3 j" k　　程序代码如下：
以下是引用片段：
5 c4 c8 o1 \% m　　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& ?1 b# r6 `　　'i个元素为最值元素
6 O$ u# w" \2 Q% M$ o) d' P　　For j = i + 1 To UBound(a) '在剩下的元素中找出最
# F, n. n7 ^3 G# a3 {- K　　'值元素的下标并记录在m中
! ?+ F, n; L+ z: o* P　　If sheng Then '若为升序，则m记录最小元素
; W4 c4 G6 U. i: K　　'下标,否则记录最大元素下标
: b; P7 f/ f$ S. l4 X! R　　If a(j) < a(m) Then m = j
　　Else
$ j& [+ B& g- u3 s　　If a(j) > a(m) Then m = j
　　End If
　　Next j '将最值元素与第i个元素交换
　　temp = a(i)
' }: l2 J2 q" ?) }　　a(i) = a(m)
: Q1 I2 M4 h8 o- [　　a(m) = temp
( }9 ~& w& p1 {9 h$ s! v　　Next i
) O+ u0 y8 m/ W/ w3 h　　End Sub
　　调用该过程示例：
　　Option Base 1
9 L1 \& K' k# p/ P) ^: z% r　　Private Sub Command1_Click()
# h. U9 U5 v- v+ r; G3 M0 Y( x* Q　　Dim b(6) As Double
　　b(1) = 8
& [6 k6 `- g& K7 L9 s　　b(2) = 6
　　b(3) = 9
　　b(4) = 3
+ A" E* r9 k9 E　　b(5) = 2
　　b(6) = 7
　　Call xzPaiXu(b, True)
' M: ?! z& o1 Q" u( o+ `　　For i% = 1 To 6
　　Print b(i)
$ U$ Y4 P6 ]$ H  g  P( s# j/ D　　Next
　　End Sub