1、VB 常考算法（八）排序：1、算法1）选择法排序算法说明：根据上例中求最小值的思路，我们可以使用如下方法进行从小到大排序：第一轮，以第一个元素逐个跟后面的所有元素比较，如果比后面的元素大就进行交换，经过一轮比较，第一个元素被确定为最小；同样的方法，下一轮以第二个元素跟剩下的所有元素进行比较确定下次小的元素；以此类推下面我们以图形的形式体现对 5 个数进行选择排序的过程：第一轮：第二轮：第三轮： 第四轮：从上图可以发现对 5 个元素进行排序，总共经过了 5-1=4 轮，而每一轮中比较的次数也不相同，第一轮 2、3、4、5 号元素参与跟 1 号元素的比较，共 4 次，第二轮 3、4、5 号元素参与
2、跟 2 号元素的比较，共 3 次，以次类推，比较次数逐步减少。经过四轮的比较，利用逐步求最小值的方法将 5 个数从小到大排好序。对于这样一个排序的过程，我们可以使用两个循环分别控制比较的轮数和每一轮的次数。程序代码：Private Sub Command1_Click()Dim n As Integern = InputBox(“请输入数组元素的个数：“)Dim a() As Integer, i As Integer, j As IntegerPrint “排序前：“ReDim a(n)For i = 1 To na(i) = Int(Rnd * (99 - 10 + 1) + 10)Pri
3、nt a(i);62415264152641516425最小值1642516425146251264512645次小值1264512465124651246512456Next iFor i = 1 To n - 1For j = i To nIf a(i) a(j) Then temp = a(i) 交换元素a(i) = a(j)a(j) = tempEnd IfNext jNext iPrintPrint “排序后:“For i = 1 To nPrint a(i);Next iEnd Sub2）冒泡法排序算法说明：相邻的元素进行比较，如果前面的元素比后面的元素大，则将它们进行交换，具体思
4、路：设在数组 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、。下面我们以图形的形式体现对 5 个数进行冒泡排序的过程：第一轮：第二轮：第三轮： 第四轮：62415264152461524165最大值24156241562415621456214562145612456124561245612456程序代码：Private Sub Command1_Click()Dim n As Integern = InputBox(“请输入数组元素的个数：“)Dim a() As Integer, i As Integer, j As IntegerPrint “排序前：“ReDim a(n)For i = 1 To na(i) = Int(Rnd * (99 -
6、10 + 1) + 10)Print a(i);Next iFor i = 1 To n - 1For j = 1 To n - iIf a(j) a(j + 1) Then 相邻元素比较temp = a(j)a(j) = a(j + 1)a(j + 1) = tempEnd IfNext jNext iPrintPrint “排序后:“For i = 1 To nPrint a(i);Next iEnd Sub2、实战练习1）填程序一算法说明：C 盘根目录下的数据文件 data.txt 中有两组数据，第一组数据未排序，并以-1 表示该组数据结束；第二组数据按从小到大顺序排列。下面程序的功能是
7、，单击“读入数据”按钮，将文件中的两组数据，分别读入到 A、B 数组中，单击“插入排序”按钮，则把 A 数组的元素按其大小依次插入到 B 数组的适当位置，使得 B 数组中元素仍为从小到大排列。完善程序，实现以上功能。Dim a() As Integer, b() As IntegerPrivate Sub command1_click()Dim I As Integer, j As Integer, n As Integer, s As String(1) 参考答案：Open “c:data.txt“ For Input As #11DoInput #11, nIf n = -1 Then Exit DoI = I + 1ReDim Preserve a(I)a(I) = ns = s stud(j).Name; stud(j).AverageNext jEnd Sub
