VB常用算法——排序

1、VB?？妓惴ǎò耍┡判颍?、算法1）選擇法排序算法說明：根據上例中求最小值的思路，我們可以使用如下方法進行從小到大排序：第一輪，以第一個元素逐個跟后面的所有元素比較，如果比后面的元素大就進行交換，經過一輪比較，第一個元素被確定為最??；同樣的方法，下一輪以第二個元素跟剩下的所有元素進行比較確定下次小的元素；以此類推下面我們以圖形的形式體現對5個數進行選擇排序的過程：16425最小值62415264152641516425第一輪：第二輪：16425146251264512645次小值1246512456126451246512465第三輪：第四輪：從上圖可以發(fā)現對5個元素進行排序，總共經過了5-1

2、=4輪，而每一輪中比較的次數也不相同，第一輪2、3、4、5號元素參與跟1號元素的比較，共4次，第二輪3、4、5號元素參與跟2號元素的比較，共3次，以次類推，比較次數逐步減少。經過四輪的比較，利用逐步求最小值的方法將5個數從小到大排好序。對于這樣一個排序的過程，我們可以使用兩個循環(huán)分別控制比較的輪數和每一輪的次數。程序代碼：Private Sub Command1_Click() Dim n As Integer n = InputBox(請輸入數組元素的個數：) 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）冒泡法排序算法說明：相鄰的元素進行比較，如果前面的元素比后面的元素大，則將它們進行交換，具體思路：設在數組

4、a中存放n個元素，第一輪，將a(1)和a(2)進行比較，若a(1)a(2),則交換這兩個元素的值，然后繼續(xù)用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個數進行冒泡排序的過程：第一輪：62

5、415264152461524165最大值24156第二輪：24156241562145621456第三輪：第四輪：1245612456214561245612456程序代碼：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); 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、實戰(zhàn)練習1）填程序一算法說明：C盤根目錄下的數據文件data.txt中有兩組數據，第一組數據未排序，并以-1表示該組數據結束；第二組數據按從小到大順序排列。下面程序的功能是，單擊“讀入數據”按鈕，將文件中的兩組數據，分

7、別讀入到A、B數組中，單擊“插入排序”按鈕，則把A數組的元素按其大小依次插入到B數組的適當位置，使得B數組中元素仍為從小到大排列。完善程序，實現以上功能。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 學號 Name As String * 8 姓名 Average As Single 平均分End TypePrivate Sub Command1_Click() If n stud(