(完整版)VB常用算法——排序

VB常考算法（八）排序：

1、算法

1）选择法排序

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

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

第一轮：第二轮：

第三轮：

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

程序代码：

Private Sub Command1_Click()

Dim n As Integer

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

Dim a() As Integer, i As Integer, j As Integer

Print "排序前："

ReDim a(n)

For i = 1 To n

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

Print a(i);

最小值

次小值

Next i

For i = 1 To n - 1

For j = i To n

If a(i) > a(j) Then

temp = a(i) '交换元素

a(i) = a(j)

a(j) = temp

End If

Next j

Next i

Print

Print "排序后:"

For i = 1 To n

Print a(i);

Next i

End Sub

2）冒泡法排序

算法说明：相邻的元素进行比较，如果前面的元素比后面的元素大，则将它们进行交换，具体思路：设在数组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 个数已经按从小到大的顺序排列好。

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

第一轮：

第三轮：

第四轮：

最大值

程序代码：

Private Sub Command1_Click()

Dim n As Integer

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

Dim a() As Integer, i As Integer, j As Integer

Print "排序前："

ReDim a(n)

For i = 1 To n

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

Print a(i);

Next i

For i = 1 To n - 1

For j = 1 To n - i

If a(j) > a(j + 1) Then '相邻元素比较

temp = a(j)

a(j) = a(j + 1)

a(j + 1) = temp

End If

Next j

Next i

Print

Print "排序后:"

For i = 1 To n

Print a(i);

Next i

End Sub

2、实战练习

1）填程序一

算法说明：C盘根目录下的数据文件data.txt中有两组数据，第一组数据未排序，并以-1表示该组数据结束；第二组数据按从小到大顺序排列。下面程序的功能是，单击“读入数据”按钮，将文件中的两组数据，分别读入到A、B数组中，单击“插入排序”按钮，则把A数组的元素按其大小依次插入到B数组的适当位置，使得B数组中元素仍为从小到大排列。完善程序，实现以上功能。

Dim a() As Integer, b() As Integer

Private Sub command1_click()

Dim I As Integer, j As Integer, n As Integer, s As String

(1) ‘参考答案：Open "c:\data.txt" For Input As #11

Do

Input #11, n

If n = -1 Then Exit Do

I = I + 1

ReDim Preserve a(I)

a(I) = n

s = s & Str(a(I))

Loop

Text1 = s

s = ""

(2) ‘参考答案：Do While Not EOF(1)

j = j + 1

ReDim Preserve b(j)

Input #11, b(j)

s = s & Str(b(j))

Loop

Text2 = s

Close 11

End Sub

Private Sub command2_click()

Dim I As Integer, j As Integer, s As String

For I = 1 To UBound(a)

If a(I) < b(1) Then

Call change(a(I), 1)

ElseIf a(I) > b(UBound(b)) Then

(3) ‘参考答案：ReDim Preserve b(UBound(b) + 1)

b(UBound(b)) = a(I)

Else

For j = 2 To bound(b)

If (a(I) > b(j - 1)) And a(I) <= b(j) Then Call change(a(I), j) Next j

End If

Next I

For I = 1 To UBound(b)

s = s & Str(b(I))

Next I

Text3 = s

End Sub

Private Sub change(n As Integer, k As Integer)

Dim I As Integer

ReDim Preserve b(UBound(b) + 1)

For I = UBound(b) To k + 1 Step -1

(4) ‘参考答案：b(I) = b(I - 1)

Next I

(5) ‘参考答案：b(k) = n

End Sub

2）填程序二

Option Base 1

Dim n%, tag_in%

Dim stud(1 To 10) As StudType

Type StudType

Num As String * 6 ' 学号

Name As String * 8 ' 姓名

Average As Single ' 平均分End Type

Private Sub Command1_Click()

If n < 10 Then

tag_in = 0

n = n + 1

Else

tag_in = 1

MsgBox "输入的学生人数已超过数组声明的个数！"

End If

If tag_in = 0 Then

If Text1 = "" Then

MsgBox "学号不能为空，请重输！"

n = （1）

Else

（2）= Text1

stud(n).Name = Text2

stud(n).Average = Val(Text3)

End If

End If

Text1 = "": Text2 = "": Text3 = ""

End Sub

Private Sub Command2_Click()

Dim t As StudType

Picture1.Cls

For j = 1 To n - 1

For k = （3）To n

If stud(k).Average > stud(j). （4）Then

t = stud(k)

stud(k) = （5）

stud(j) = t

End If

Next k

Next j

For j = 1 To n

Picture1.Print stud(j).Num; stud(j).Name; stud(j).Average Next j

End Sub