VB常用算法——排序

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次小值1246512456126451246512465第三輪：第四輪：從上圖可以發(fā)現(xiàn)對(duì)5個(gè)元素進(jìn)行排序，總共經(jīng)過了5-1

2、=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ù)。程序代碼：Private Sub Command1_Click() Dim n As Integer n = InputBox(請(qǐng)輸入數(shù)組元素的個(gè)數(shù)：) Dim a() As Integer, i As Integer, j As Integer Print 排序前： ReDim a(

3、n) For i = 1 To n a(i) = Int(Rnd * (99 - 10 + 1) + 10) Print a(i); 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 iEnd Sub2）冒泡法排序算法說明：相鄰的元素進(jìn)行比較，如果前面的元素比后面的元素大，則將它們進(jìn)行交換，具體思路：設(shè)在數(shù)組

4、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)行比較處理，確保最小值在a(1)中。經(jīng)過n-1輪比較處理，n個(gè)數(shù)已經(jīng)按從小到大的順序排列好。下面我們以圖形的形式體現(xiàn)對(duì)5個(gè)數(shù)進(jìn)行冒泡排序的過程：第一輪：62

5、415264152461524165最大值24156第二輪：24156241562145621456第三輪：第四輪：1245612456214561245612456程序代碼：Private Sub Command1_Click() Dim n As Integer n = InputBox(請(qǐng)輸入數(shù)組元素的個(gè)數(shù)：) 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); Next i

6、For i = 1 To n - 1 For j = 1 To n - i If a(j) a(j + 1) Then 相鄰元素比較 temp = a(j) a(j) = a(j + 1) a(j + 1) = temp End If Next j Next i Print Print 排序后: For i = 1 To n Print a(i); Next iEnd Sub2、實(shí)戰(zhàn)練習(xí)1）填程序一算法說明：C盤根目錄下的數(shù)據(jù)文件data.txt中有兩組數(shù)據(jù)，第一組數(shù)據(jù)未排序，并以-1表示該組數(shù)據(jù)結(jié)束；第二組數(shù)據(jù)按從小到大順序排列。下面程序的功能是，單擊“讀入數(shù)據(jù)”按鈕，將文件中的兩組數(shù)據(jù)，分

7、別讀入到A、B數(shù)組中，單擊“插入排序”按鈕，則把A數(shù)組的元素按其大小依次插入到B數(shù)組的適當(dāng)位置，使得B數(shù)組中元素仍為從小到大排列。完善程序，實(shí)現(xiàn)以上功能。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 #11 Do Input #11, n If n = -1 Then Exit Do I = I + 1 ReDim Prese

8、rve a(I) a(I) = n s = s & Str(a(I) Loop Text1 = s s = (2) 參考答案：Do While Not EOF(1) j = j + 1 ReDim Preserve b(j) Input #11, b(j) s = s & Str(b(j) Loop Text2 = s Close 11End SubPrivate Sub command2_click() Dim I As Integer, j As Integer, s As String For I = 1 To UBound(a) If a(I) b(UBound(b) Then (3)

9、 參考答案：ReDim Preserve b(UBound(b) + 1) b(UBound(b) = a(I) Else For j = 2 To bound(b) If (a(I) b(j - 1) And a(I) = b(j) Then Call change(a(I), j) Next j End If Next I For I = 1 To UBound(b) s = s & Str(b(I) Next I Text3 = sEnd SubPrivate Sub change(n As Integer, k As Integer) Dim I As Integer ReDim Pr

10、eserve b(UBound(b) + 1) For I = UBound(b) To k + 1 Step -1 (4) 參考答案：b(I) = b(I - 1) Next I (5) 參考答案：b(k) = nEnd Sub2）填程序二Option Base 1Dim n%, tag_in%Dim stud(1 To 10) As StudTypeType StudType Num As String * 6 學(xué)號(hào) Name As String * 8 姓名 Average As Single 平均分End TypePrivate Sub Command1_Click() If n stud(