資源描述：
《VB常用算法——排序》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。
1、VB常考算法（八）排序：1、算法1）選擇法排序算法說明：根據(jù)上例中求最小值的思路，我們可以使用如下方法進(jìn)行從小到大排序：第一輪，以第一個(gè)元素逐個(gè)跟后面的所有元素比較，如果比后面的元素大就進(jìn)行交換，經(jīng)過一輪比較，第一個(gè)元素被確定為最小；同樣的方法，下一輪以第二個(gè)元素跟剩下的所有元素進(jìn)行比較確定下次小的元素；以此類推…下面我們以圖形的形式體現(xiàn)對(duì)5個(gè)數(shù)進(jìn)行選擇排序的過程：16425最小值62415264152641516425第一輪：第二輪：16425146251264512645次小值124651245612645124651
2、2465第三輪：第四輪：從上圖可以發(fā)現(xiàn)對(duì)5個(gè)元素進(jìn)行排序，總共經(jīng)過了5-1=4輪，而每一輪中比較的次數(shù)也不相同，第一輪2、3、4、5號(hào)元素參與跟1號(hào)元素的比較，共4次，第二輪3、4、5號(hào)元素參與跟2號(hào)元素的比較，共3次，以次類推，比較次數(shù)逐步減少。經(jīng)過四輪的比較，利用逐步求最小值的方法將5個(gè)數(shù)從小到大排好序。對(duì)于這樣一個(gè)排序的過程，我們可以使用兩個(gè)循環(huán)分別控制比較的輪數(shù)和每一輪的次數(shù)。程序代碼：PrivateSubCommand1_Click()DimnAsIntegern=InputBox("請(qǐng)輸入數(shù)組元素的個(gè)數(shù)：")D
3、ima()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）冒泡法排序算法說明：相鄰的元素進(jìn)行比較，如果前面的元素比
4、后面的元素大，則將它們進(jìn)行交換，具體思路：設(shè)在數(shù)組a中存放n個(gè)元素，第一輪，將a(1)和a(2)進(jìn)行比較，若a(1)>a(2),則交換這兩個(gè)元素的值，然后繼續(xù)用a(2)和a(3)比較，若a(1)>a(2)，則交換這兩個(gè)元素的值，以此類推，直到a(n-1)和a(n)進(jìn)行比較處理后，a(n)中就存放了n個(gè)數(shù)中最大的值；第二輪，用a(1)與a(2),a(2)與a(3),…,a(n-2)與a(n-1)進(jìn)行比較，處理方法相同，這一輪下來，a(n-1)中存放n個(gè)數(shù)中第二大的值；…；第n-1輪，a(1)與a(2)進(jìn)行比較處理，確保最小值
5、在a(1)中。經(jīng)過n-1輪比較處理，n個(gè)數(shù)已經(jīng)按從小到大的順序排列好。下面我們以圖形的形式體現(xiàn)對(duì)5個(gè)數(shù)進(jìn)行冒泡排序的過程：第一輪：62415264152461524165最大值24156第二輪：24156241562145621456第三輪：第四輪：1245612456214561245612456程序代碼：PrivateSubCommand1_Click()DimnAsIntegern=InputBox("請(qǐng)輸入數(shù)組元素的個(gè)數(shù)：")Dima()AsInteger,iAsInteger,jAsIntegerPrint"排序
6、前："ReDima(n)Fori=1Tona(i)=Int(Rnd*(99-10+1)+10)Printa(i);NextiFori=1Ton-1Forj=1Ton-iIfa(j)>a(j+1)Then'相鄰元素比較temp=a(j)a(j)=a(j+1)a(j+1)=tempEndIfNextjNextiPrintPrint"排序后:"Fori=1TonPrinta(i);NextiEndSub2、實(shí)戰(zhàn)練習(xí)1）填程序一算法說明：C盤根目錄下的數(shù)據(jù)文件data.txt中有兩組數(shù)據(jù)，第一組數(shù)據(jù)未排序，并以-1表示該組數(shù)據(jù)結(jié)束
7、；第二組數(shù)據(jù)按從小到大順序排列。下面程序的功能是，單擊“讀入數(shù)據(jù)”按鈕，將文件中的兩組數(shù)據(jù)，分別讀入到A、B數(shù)組中，單擊“插入排序”按鈕，則把A數(shù)組的元素按其大小依次插入到B數(shù)組的適當(dāng)位置，使得B數(shù)組中元素仍為從小到大排列。完善程序，實(shí)現(xiàn)以上功能。Dima()AsInteger,b()AsIntegerPrivateSubcommand1_click()DimIAsInteger,jAsInteger,nAsInteger,sAsString(1)‘參考答案：Open"c:data.txt"ForInputAs#11Do
8、Input#11,nIfn=-1ThenExitDoI=I+1ReDimPreservea(I)a(I)=ns=s&Str(a(I))LoopText1=ss=""(2)‘參考答案：DoWhileNotEOF(1)j=j+1ReDimPreserveb(j)Input#11,b(j)s=s&Str(b(
