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

VB 常考算法（八）排序:

1、算法 1）选择法排序

算法说明：根据上例中求最小值的思路， 一轮，以第一个元素逐个跟后面的所有元素比较， 轮比

较，第一个元素被确定为最小；同样的方法，下一轮以第二个元素跟剩下的所有元素进 行比较确定下次小的元素；以此类推…

下面我们以图形的形

式体现对

第一轮：

第二轮:

素参与跟2号元素的比较，共 3次，以次类推，比较次数逐步减少。经过四轮的比较，利用 逐步求最小值的方法将 5个数从小到大排好序。 对于这样一个排序的过程， 我们可以使用两 个循环分别控制比较的轮数和每一轮的次数。

程序代码：

Private Sub Comma nd1_Click() Dim n As In teger n = In putBox(" 请输入数组元素的个数：

")

Dim a() As In teger, i As In teger, j As In teger

Print "

排序前：”

我们可以使用如下方法进行从小到大排序：

第 如果比后面的元素大就进行交换，

经过一

1

6 4 2 5

最小值

次小值

5个数进行选择排序的过程:

第三轮:

ReDim a(n)

For i = 1 To n

a(i) = In t(R nd * (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 个数已经按从小到大的顺序排列好。

2

1 p j

1 1

1 1

2 2 2 2 4

4 4

4 4 5

5

5

5

5 6

6

6

6

6

程序代码：

Private Sub Comma nd1_Click() Dim n As In teger n = In putBox("

请输入数组元素的个数：

")

交换元素

F 面我们以图形的形式体现对

5个数进行冒泡排序的过程: 第一轮:

最大值

Dim a() As In teger, i As In teger, j As In teger

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) The n ' 相邻元素比较

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数组中元素仍为从小到大排列。完善程序，实现以上功能。

p 7 5 9 16 11

8 10 12 14 IS

8 9)0 1厂12「15)6 i6 读△数据」播入排

序

Dim a() As In teger, b() As In teger

Private Sub comma nd1_click()

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

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

Do

In put #11, n

If n = -1 The n Exit Do

I = I + 1

ReDim Preserve a(I)

a(I) = n

s = s & Str(a(I))

Loop

Text1 = s

s =""

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

j = j + 1

ReDim Preserve b(j)

In put #11, b(j)

s = s & Str(b(j))

Loop

Text2 = s

Close 11

End Sub

Private Sub comma nd2_click()

Dim I As In teger, j As In teger, s As String

For I = 1 To UBou nd(a)

If a(I) < b(1) The n

Call chan ge(a(I), 1)

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

⑶参考答案：ReDim Preserve b(UBou nd(b) + 1)

b(UBo un d(b)) = a(I)

Else

For j = 2 To bou nd(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 UBou nd(b)

s = s & Str(b(I))

Next I

Text3 = s

End Sub

Private Sub cha nge( n As In teger, k As In teger)

Dim I As In teger