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

实用标准文案 VB 常考算法（八）排序： 1 、算法 1 ）选择法排序 算法说明： 根据上例中求最小值的思路， 我们可以使用如下方法进行从小到大排序： 第 一轮， 以第一个元素逐个跟后面的所有元素比较， 如果比后面的元素大就进行交换， 经过一 轮比较， 第一个元素被确定为最小； 同样的方法， 下一轮以第二个元素跟剩下的所有元素进 行比较确定下次小的元素；以此类推… 下面我们以图形的形式体现对 5 个数进行选择排序的过程： 第一轮： 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 1 6 4 2 2 次小值 4 6 6 6 2 2 4 4 5 5 5 5 第三轮： 第四轮： 1 1 1 1 1 2 2 2 2 2 精彩文档 6 4 4 4 4 4 6 6 6 5 5 5 5 5 6 实用标准文案 从上图可以发现对 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 A