鄭強收集了某月部分品牌電腦在某城市的銷售量,并設計了一個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 ①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 ( )( )
'此過程用于對數(shù)組a和數(shù)組b進行賦初值,并顯示在List1中,代碼略
End Sub
(1)解決此問題采用的算法是 冒泡排序冒泡排序。(填:選擇排序/冒泡排序)
(2)在程序①和②橫線處填入適當?shù)恼Z句或表達式,將程序補充完整:
程序中①橫線處應填入 n-1n-1。
程序中②橫線處應填入 b(j)<b(j+1)b(j)<b(j+1)。
【考點】編輯事件處理過程的代碼.
【答案】①n-1;②b(j)<b(j+1);( );冒泡排序;n-1;b(j)<b(j+1)
【解答】
【點評】
聲明:本試題解析著作權屬菁優(yōu)網(wǎng)所有,未經(jīng)書面同意,不得復制發(fā)布。
發(fā)布:2024/6/27 10:35:59組卷:0引用:1難度:0.1
相似題
-
1.學校舉辦了“語文作文現(xiàn)場賽”,參賽同學成績存儲在文本文件“gra.jye.ai”中,如左圖所示(每一行記錄一位同學的姓名和成績,以“:”分隔)。陳老師利用Python程序對作文成績進行處理,統(tǒng)計出各個分數(shù)等級的人數(shù),并輸出結果。程序運行界面如右圖所示。
實現(xiàn)上述功能的Python程序如下,請在劃線處填入合適的代碼。發(fā)布:2024/12/17 2:0:1組卷:6引用:2難度:0.3 -
2.有如下Python程序段:
執(zhí)行該程序段,輸入字符串“abcdefg”,則輸出的結果是( )A.a(chǎn)cegbdf B.a(chǎn)cegfdb C.gecafdb D.ecafdb 發(fā)布:2024/12/20 6:30:1組卷:2引用:3難度:0.4 -
3.試題描述的內容:
一個單窗體VB程序的運行界面如圖所示。下列說法正確的是( ?。?br />(1)窗體內有1個按鈕
(2)窗體內有2個文本框
(3)窗體內有3個標簽
(4)該窗體的標題(Caption)屬性值是“加法計算器”A.(1)(2) B.(2)(3) C.(1)(4) D.(3)(4) 發(fā)布:2024/12/20 20:0:2組卷:1引用:1難度:0.6
把好題分享給你的好友吧~~