VB常用算法6排序.pdfVIP

VB常用算法排序

1、选择法排序

(1)利用循环从n个数中选出最小数的下标，结束循环后，将最小数与第一个数交

换位置；

(2)除第一个数外，在剩下的n-1个数中再按方法（1）选出次小的数，与第二个

数交换位置；

(3)以此类推，最后构成递增序列。

譬如：

869327

第一轮交换后269387

第二轮交换后239687

第三轮交换后236987

第四轮交换后236789

第五轮无交换236789

程序代码如下：

PrivateSubxzPaiXu(a()AsDouble,shengAsBoolean)

a为需要排序的数组，sheng为True则为升序排列，为False，则为降序排列。

DimiAsInteger,jAsInteger

DimtempAsDouble

DimmAsInteger

实用文档

Fori=LBound(a)ToUBound(a)-1进行数组大小-1轮比较

m=i在第i轮比较时，假定第

i个元素为最值元素

Forj=i+1ToUBound(a)在剩下的元素中找出最

值元素的下标并记录在m中

IshengThen若为升序，则m记录最小元素

下标,否则记录最大元素下标

Ia(j)a(m)Thenm=j

Else

Ia(j)a(m)Thenm=j

EndI

Nextj将最值元素与第i个元素交换

temp=a(i)

a(i)=a(m)

a(m)=temp

Nexti

EndSub

调用该过程示例：

OptionBase1

PrivateSubCommand1_Click()

实用文档

Dimb(6)AsDouble

b(1)=8

b(2)=6

b(3)=9

b(4)=3

b(5)=2

b(6)=7

CallxzPaiXu(b,True)

Fori%=1To6

Printb(i)

Next

EndSub

2、冒泡法排序

选择排序法在每一轮排序时寻找最值元素的下标，出了内循环（一轮排序结束时，

确定最值下标），再交换最小数的位置；而冒泡法在每一轮排序时将相邻的数比较，当

次序不对时就立即交换位置，出了内循环，最值数已经冒出。

．．．．

譬如：

869327

第一

869327

轮比

869237

较结86293