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

会计考友

选择法排序
1 U$ }, \( v: X) @' F1 B: h$ }　　(1) 从n个数中选出最小数的下标，出了循环，将最小数与第一个数交换位置;
8 f, C1 Q; L) G, c+ t: E　　(2) 除第一个数外，在剩下的n-1个数中再按方法(1)选出次小的数，与第二个数交换位置;
2 v  Z' B( e0 w% R, V3 `, g& t9 z　　(3) 以此类推，最后构成递增序列。
5 ?: c$ I. }# e8 S4 H# x3 |　　譬如：
6 @5 ]2 m+ }: o" t4 f! T　　8 6 9 3 2 7
　　第一轮交换后 2 6 9 3 8 7
　　第二轮交换后 2 3 9 6 8 7
　　第三轮交换后 2 3 6 9 8 7
　　第四轮交换后 2 3 6 7 8 9
+ i0 r9 Q$ ]; w2 E  n3 [) |　　第五轮无交换 2 3 6 7 8 9
% A, e: y2 |  A2 P4 h7 ~9 i$ T; X　　程序代码如下：
以下是引用片段：
3 A& v& f  V4 \, p　　PRivate Sub xzPaiXu(a() As Double, sheng As Boolean)
8 B: ^# N; c8 I; P　　'a为需要排序的数组，sheng为True则为升序排列，为False，则为降序排列。
- r& ^, v' e. A+ \8 S' `3 {　　Dim i As Integer, j As Integer
　　Dim temp As Double
　　Dim m As Integer
  G3 @% I- b' q  ?　　For i = LBound(a) To UBound(a) - 1 '进行数组大小-1轮比较
　　m = i '在第i轮比较时，假定第
: u7 j6 A3 ?0 W$ o, a6 G　　'i个元素为最值元素
　　For j = i + 1 To UBound(a) '在剩下的元素中找出最
) h  F1 i# Z( Z/ n. a8 }　　'值元素的下标并记录在m中
4 v* c* @# X0 d% `6 \+ J　　If sheng Then '若为升序，则m记录最小元素
　　'下标,否则记录最大元素下标
3 h& _2 z/ J5 _# T# N2 s　　If a(j) < a(m) Then m = j
, m% ?- V$ _  e2 m2 E- ~! `4 U　　Else
　　If a(j) > a(m) Then m = j
: R( S5 |! F9 ?2 A6 p1 c　　End If
　　Next j '将最值元素与第i个元素交换
　　temp = a(i)
　　a(i) = a(m)
　　a(m) = temp
& `) z/ |1 f9 T7 ~" I2 ^　　Next i
　　End Sub
　　调用该过程示例：
　　Option Base 1
　　Private Sub Command1_Click()
　　Dim b(6) As Double
　　b(1) = 8
+ h% z+ P( A3 ], e6 W　　b(2) = 6
! W* a' f8 Z" c$ g　　b(3) = 9
　　b(4) = 3
　　b(5) = 2
　　b(6) = 7
　　Call xzPaiXu(b, True)
　　For i% = 1 To 6
　　Print b(i)
　　Next
　　End Sub