9.鄭強收集了某月部分品牌電腦在某城市的銷售量,并設計了一個Visual Basic排序程序。程序運行界面如圖所示,左邊列表框List1中顯示排序前數(shù)據(jù),單擊“排序”按鈕Command1,在右邊列表框List2中顯示按銷售量從高到低排序后的結果。程序中數(shù)組a和數(shù)組b分別存儲品牌名稱和對應的銷售量。
程序代碼如下:
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
For j=1To n-i
If
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
'此過程用于對數(shù)組a和數(shù)組b進行賦初值,并顯示在List1中,代碼略
End Sub
(1)解決此問題采用的算法是
。(填:選擇排序/冒泡排序)
(2)在程序①和②橫線處填入適當?shù)恼Z句或表達式,將程序補充完整:
程序中①橫線處應填入
。
程序中②橫線處應填入
。