VB常用算法——排序VIP免费

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); 6 2 4 1 5 2 6 4 1 5 2 6 4 1 5 1 6 4 2 5 最小值 1 6 4 2 5 1 6 4 2 5 1 4 6 2 5 1 2 6 4 5 1 2 6 4 5 次小值 1 2 6 4 5 1 2 4 6 5 1 2 4 6 5 1 2 4 6 5 1 2 4 5 6 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 个数中第二大的值；…...