冒泡排序真題

1、16.【加試題】n個(gè)數(shù)據(jù)的冒泡排序需要經(jīng)過n-1遍加工，每一遍加工自下而上比較相鄰兩 個(gè)數(shù)據(jù)，把較小者交換到上面。小劉發(fā)現(xiàn)：當(dāng)某一遍加工過程中沒有數(shù)據(jù)交換，說明數(shù)據(jù) 已經(jīng)有序，無需進(jìn)一步加工。為此，小劉對(duì)算法進(jìn)行優(yōu)化，編寫了一個(gè) VB 程序，功能如 下：運(yùn)行程序時(shí)，在列表框Listl中顯示排序前數(shù)據(jù)，單擊“排序”按鈕Commaiidl,在列 表框List2中顯示這些數(shù)據(jù)按升序排序后的結(jié)果，在標(biāo)簽Label3中顯示排序過程的加工遍 數(shù)。運(yùn)行效果如第16題圖所示。實(shí)現(xiàn)上述功能的 VB 代碼如下，但加框處代碼有錯(cuò)，請(qǐng)改正。Dim a(l To 8) As IntegerDim n As Intege

2、rPrivate Sub Form_Load()n=8，排序前數(shù)據(jù)存儲(chǔ)在數(shù)組a中，并在列表框Listl中顯示代碼略End SubPrivate Sub Commandl_Click()Dim flag As Boolean flag值為True表示一遍加工中發(fā)生過交換i = 1flag = TrueDo While i = n - 1 Or flag = True( 1)flag = FalseFor j = n To i + 1 Step -1If a(j) 6End SubPrivate Sub Zommand1_Zlick()Dim i As Integer, j As Integer,

3、 k As Integer Dim pos As IntegerDim s As Strings = Text1.Text pos = Val(Text1.Text)For i = 1 To n - 1For j = n To i + 1 Step -1If a(j) a(j - 1) Thenk = a(j)a(j - 1) = a(j)a(j) = k如果pos位置的數(shù)據(jù)參與交換，則更新pos值，記錄pos變化位置If pos = j Thenpos = j - 1s = s + f + Str (pos)Elsepos = js = s + f + Str(pos)End IfEnd I

4、fNext jNext iLabel1.Caption = 位置變化情況： + sFor i = 1 To nList2.AddItem Str(a(i)Next iEnd Sub鬥排序數(shù)組元素?cái)?shù)組元素的含義排序前數(shù)據(jù)17 12 17 10 16 15 10 17 916a(1)|排序 存儲(chǔ)班級(jí)數(shù)na(2)鬥排序數(shù)組元素?cái)?shù)組元素的含義排序前數(shù)據(jù)17 12 17 10 16 15 10 17 916a(1)|排序 存儲(chǔ)班級(jí)數(shù)na(2)從a(2)到a( 第1、2、n+1)依次存儲(chǔ) 第n個(gè)班級(jí)人數(shù)排序后數(shù)據(jù)9 10 12 15 16 17 實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼 有錯(cuò)，請(qǐng)改正。Co

5、nst n 二 10Dim a(1 To n) As Integer Private Sub Command1_Click()a(n+1)a(n+2) 從a(n+2)依次存儲(chǔ)第1班每 個(gè)學(xué)生的單科成績(jī)、第2班 每個(gè)學(xué)生的單科成績(jī)、第n 班每個(gè)學(xué)生的單科成績(jī)Dim i As Integer, j As Integer, t AsIntegerDim bottom As Integer獲取排序前數(shù)據(jù)依次存儲(chǔ)在數(shù)組a中，并在文本框Text1中顯示。代碼略 bottom = ni = 1Do While i = bottom - 1For j 二 bottom To,i + 1 Step -1If a(j) a(i) Thent = a(j): a(j) = a(j - 1): a(j - 1) = tElgelf a(j) = a(j - 1) Then 相鄰兩個(gè)數(shù)據(jù)相等，進(jìn)行剔除處理 a(b otto m)=a(j) bottom = bottom - 1End IfNext ji = i +