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

　　圖47-7

　　注意：存盤(pán)時(shí)不得改變文件名和文件夾。

　　參考解析：

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

　　根據(jù)題意，將兩個(gè)命令按鈕添加到窗體中，名稱分別為Command1和Command2、Caption屬性分別為"輸入"和"結(jié)果"。雙擊Command1進(jìn)入代碼窗口，編寫(xiě)如下代碼：

　　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("請(qǐng)輸入：")) '輸入6個(gè)數(shù)到數(shù)組中

　　tmp = a(i)

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

　　Next i

　　Print str '在窗口中顯示數(shù)組

　　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 '讀取的數(shù)據(jù)比原位置的數(shù)據(jù)小則偏移

　　For k = i To j + 1 Step -1

　　a(k) = a(k - 1) '數(shù)據(jù)向后偏移一個(gè)

　　Next k

　　a(j) = temp

　　Exit For

　　End If

　　Next j

　　Next i

　　For i = 1 To 6

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

　　str = str + tmp + " "

　　Next i

　　Print str '在窗口中顯示排序后的結(jié)果

　　End Sub

　　單擊按鈕運(yùn)行程序，并按要求保存。

　　相關(guān)推薦：

　　2015年計(jì)算機(jī)二級(jí)考試《VB》考前練習(xí)題匯總

　　2015年計(jì)算機(jī)二級(jí)考試《VB》考前預(yù)測(cè)試卷匯總

　　2015計(jì)算機(jī)二級(jí)考試《VB》模擬練習(xí)題及解析匯總