VB常用的算法——排序.docxVIP

实用标准文案

精彩文档

精彩文档

VB常考算法（八）排序：

1、算法

1）选择法排序

算法说明：根据上例中求最小值的思路，我们可以使用如下方法进行从小到大排序：第一轮，以第一个元素逐个跟后面的所有元素比较，如果比后面的元素大就进行交换，经过一轮比较，第一个元素被确定为最小；同样的方法，下一轮以第二个元素跟剩下的所有元素进行比较确定下次小的元素；以此类推…

下面我们以图形的形式体现对5个数进行选择排序的过程：

第一轮：622

第一轮：

6

2

2

1

1

2

6

6

6

6

4

4

4

4

4

1

1

1

2

2

第二轮：

5

5

5

5

5

最小值

1

1

1

6

4

2

4

6

6

2

2

4

5

5

5

次小值

1264512

1

2

6

4

5

1

2

4

5

6

1

2

4

6

5

12645 1

1

2

6

4

5

1

2

4

6

5

1

2

4

6

5

从上图可以发现对5个元素进行排序，总共经过了5-1=4轮，而每一轮中比较的次数也不相同，第一轮2、3、4、5号元素参与跟1号元素的比较，共4次，第二轮3、4、5号元素参与跟2号元素的比较，共3次，以次类推，比较次数逐步减少。经过四轮的比较，利用逐步求最小值的方法将5个数从小到大排好序。对于这样一个排序的过程，我们可以使用两个循环分别控制比较的轮数和每一轮的次数。

程序代码：

PrivateSubCommand1_Click()

DimnAsInteger

n=InputBox(请输入数组元素的个数：)

Dima()AsInteger,iAsInteger,jAsIntegerPrint排序前：

ReDima(n)

Fori=1Ton

a(i)=Int(Rnd*(99-10+1)+10)

Printa(i);

Nexti

Fori=1Ton-1Forj=iTon

Ifa(i)a(j)Then

temp=a(i)交换元素a(i)=a(j)

a(j)=tempEndIf

NextjNextiPrint

Print排序后:Fori=1Ton

Printa(i);

Nexti

EndSub2）冒泡法排序

算法说明：相邻的元素进行比较，如果前面的元素比后面的元素大，则将它们进行交换，具体思路：设在数组a中存放n个元素，第一轮，将a(1)和a(2)进行比较，若a(1)a(2),则交换这两个元素的值，然后继续用a(2)和a(3)比较，若a(1)a(2)，则交换这两个元素的值，以此类推，直到a(n-1)和a(n)进行比较处理后，a(n)中就存放了n个数中最大的值；第二轮，用a(1)与a(2),a(2)与a(3),…,a(n-2)与a(n-1)进行比较，处理方法相同，这一轮下来，a(n-1)中存放n个数中第二大的值；…；第n-1轮，a(1)与a(2)进行比较处理，确保最小值在a(1)中。经过n-1轮比较处理，n个数已经按从小到大的顺序排列好。

264152

2

6

4

1

5

2

4

1

5

6

2

2

2

4

4

4

6

1

1

1

6

5

5

5

6

2

2

1

1

4

4

5

5

6

6

第四轮：

6

2

4

第二轮：1

5

2

4

1

5

6

第三轮：

最大值

21456

2

1

4

5

6

1

1

2

2

4

4

5

5

6

6

1

1

2

2

4

4

5

5

6

6

程序代码：

PrivateSubCommand1_Click()

DimnAsInteger

n=InputBox(请输入数组元素的个数：)

Dima()AsInteger,iAsInteger,jAsIntegerPrint排序前：

ReDima(n)

Fori=1Ton

a(i)=Int(Rnd*(99-10+1)+10)

Printa(i);

Nexti

Fori=1Ton-1

Forj=1Ton-i

Ifa(j)a(j+1)Then相邻元素比较temp=a(j)

a(j)=a(j+1)a(j+1)=tempEndIf

NextjNextiPrint

Print排序后:Fori=1Ton

Printa(i);

Nexti

EndSub2、实战练习

1）填程序一

算法说明：C盘根目录下的数据文件data.txt中有两组数据，第一组数据未排序，并以-1表示该组数据结束；第二组数据按从