6打開考生文件夾下的sj5.vbp，在名稱為Form1的窗體上建立兩個命令按鈕，名稱分別為Command1和Command2，命令按鈕上分別顯示"輸入"和"結果"(如圖47-7所示)。程序運行時單擊"輸入"按鈕，輸入6個數放入數組a中，單擊"結果"則把數組a中的數值按照降序排列。請在有"?"號的地方填正確內容，然后刪除"?"及代碼前的所有注釋符(即'號)但不能修改其他部分。

　　圖47-7

　　注意：存盤時不得改變文件名和文件夾。

　　參考解析：

　　本題重點考查"冒泡法"數據排序方法。"冒泡法"是一種重要的數據排序算法，其思想是按順序讓一個數列中的每一個數都與其之后的所有的數逐一進行比較，如果該數小于其后面的數，則把這兩個位置的數進行交換。依此類推，即可實現所有數的降序排列。

　　根據題意，將兩個命令按鈕添加到窗體中，名稱分別為Command1和Command2、Caption屬性分別為"輸入"和"結果"。雙擊Command1進入代碼窗口，編寫如下代碼：

　　Dim a(6) As Integer

　　Dim str As String

　　Dim tmp As String

　　Dim i As Integer

　　Private Sub Command1_Click()

　　str = "排序前："

　　For i = 1 To 6

　　a(i) = Val(InputBox("請輸入：")) '輸入6個數到數組中

　　tmp = a(i)

　　str = str + tmp + " " '將數組中的數放到字符串中

　　Next i

　　Print str '在窗口中顯示數組

　　End Sub

　　Private Sub Command2_Click()

　　str = "排序后："

　　For i = 1 To 6 '降序排列

　　temp = a(i)

　　For j = 1 To i

　　If a(j) <= temp Then '讀取的數據比原位置的數據小則偏移

　　For k = i To j + 1 Step -1

　　a(k) = a(k - 1) '數據向后偏移一個

　　Next k

　　a(j) = temp

　　Exit For

　　End If

　　Next j

　　Next i

　　For i = 1 To 6

　　tmp = a(i) '將排序后的數組放入字符串中

　　str = str + tmp + " "

　　Next i

　　Print str '在窗口中顯示排序后的結果

　　End Sub

　　單擊按鈕運行程序，并按要求保存。

　　相關推薦：

　　2015年計算機二級考試《VB》考前練習題匯總

　　2015年計算機二級考試《VB》考前預測試卷匯總

　　2015計算機二級考試《VB》模擬練習題及解析匯總