鄭強收集了某月部分品牌電腦在某城市的銷售量,并設(shè)計了一個Visual Basic排序程序。程序運行界面如圖所示,左邊列表框List1中顯示排序前數(shù)據(jù),單擊“排序”按鈕Command1,在右邊列表框List2中顯示按銷售量從高到低排序后的結(jié)果。程序中數(shù)組a和數(shù)組b分別存儲品牌名稱和對應(yīng)的銷售量。
程序代碼如下:
Const n As Integer=10'n為品牌數(shù)
Dim a(1To n) As String'數(shù)組a用于存儲品牌名稱
Dim b(1To n) As Integer'數(shù)組b用于存儲銷售量
Private Sub Command1_Click ( ?。?br />Dim i As Integer,j As Integer,c As Integer,t As String
For i=1To
①n-1
①n-1
For j=1To n-i
If
②b(j)<b(j+1)
②b(j)<b(j+1)
Then
c=b(j+1):b(j+1)=b(j):b(j)=c
t=a(j+1):a(j+1)=a(j):a(j)=t
End If
Next j
Next i
For i=1To n
List2.AddItem a(i)+““+Str(b(i))
Next i
End Sub
Private Sub Form_Load
( ?。?/div>
( )
'此過程用于對數(shù)組a和數(shù)組b進行賦初值,并顯示在List1中,代碼略
End Sub
(1)解決此問題采用的算法是
冒泡排序
冒泡排序
。(填:選擇排序/冒泡排序)
(2)在程序①和②橫線處填入適當(dāng)?shù)恼Z句或表達式,將程序補充完整:
程序中①橫線處應(yīng)填入
n-1
n-1
。
程序中②橫線處應(yīng)填入
b(j)<b(j+1)
b(j)<b(j+1)
。
【答案】①n-1;②b(j)<b(j+1);( ?。幻芭菖判?;n-1;b(j)<b(j+1)
【解答】
【點評】
聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書面同意,不得復(fù)制發(fā)布。
發(fā)布:2024/6/27 10:35:59組卷:0引用:1難度:0.1