文档介绍：VB常考算法(八)排序:1、算法1)选择法排序算法说明:根据上例中求最小值的思路,我们可以使用如下方法进行从小到大排序:第一轮,以第一个元素逐个跟后面的所有元素比较,如果比后面的元素大就进行交换,经过一轮比较,第一个元素被确定为最小;同样的方法,下一轮以第二个元素跟剩下的所有元素进行比较确定下次小的元素;以此类推…下面我们以图形的形式体现对5个数进行选择排序的过程:16425最小值62415264152641516425第一轮:第二轮: 16425146251264512645次小值1246512456126451246512465第三轮: 第四轮:从上图可以发现对5个元素进行排序,总共经过了5-1=4轮,而每一轮中比较的次数也不相同,第一轮2、3、4、5号元素参与跟1号元素的比较,共4次,第二轮3、4、5号元素参与跟2号元素的比较,共3次,以次类推,比较次数逐步减少。经过四轮的比较,利用逐步求最小值的方法将5个数从小到大排好序。对于这样一个排序的过程,我们可以使用两个循环分别控制比较的轮数与每一轮的次数。程序代码:mand1_Click()DimnAsIntegern=InputBox("请输入数组元素的个数:")Dima()AsInteger,iAsInteger,jAsIntegerPrint"排序前:"ReDima(n)Fori=1Tona(i)=Int(Rnd*(99-10+1)+10)Printa(i);NextiFori=1Ton-1Forj=iTonIfa(i)>a(j)Thentemp=a(i)'交换元素a(i)=a(j)a(j)=tempEndIfNextjNextiPrintPrint"排序后:"Fori=1TonPrinta(i);NextiEndSub2)冒泡法排序算法说明:相邻的元素进行比较,如果前面的元素比后面的元素大,则将它们进行交换,具体思路:设在数组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个数进行冒泡排序的过程:第一轮:62415264152461524165最大值24156 第二轮:24156241562145621456第三轮: 第四轮:1245612456214561245612456程序代码:mand1_Click()DimnAsIntegern=InputBox("请输入数组元素的个数:")Dima()AsInteger,iAsInteger,jAsIntegerPrint"排序前:"ReDima(n)Fori=1Tona(i)=Int(Rnd*(99-10+1)+10)Printa(i);NextiFori=1Ton-1Forj=1Ton-iIfa(j)>a(j+1)Then'