某省舉辦大型活動,面向省內(nèi)城市招募有志愿者服務(wù)工作經(jīng)歷的志愿者,每個志愿者的報名數(shù)據(jù)包含城市序號、姓名(字母縮寫)和參加志愿者服務(wù)的次數(shù)?,F(xiàn)需要整理報名數(shù)據(jù),要求是:先按城市序號從小到大排列;然后,同一城市的志愿者按參加志愿服務(wù)的次數(shù)從多到少排列。
按上述要求,編寫一個VB程序,功能如下:在列表框List1中顯示整理前的數(shù)據(jù),單擊“整理”按鈕Command1,整理結(jié)果顯示在列表框List2中,程序運行界面如圖所示。
(1)將數(shù)組元素q(1)到q(200)分為10段,如果每段恰好包含20個元素,采用選擇排序算法分別對每段中的元素進行排序,整個排序過程中,數(shù)組元素之間的比較次數(shù)是BB(單選,填字母:A.200×199/2次/B.10×20×19/2次/C.20×10×9/2次)。
(2)請在橫線處填入合適的代碼。
Const n=200'報名總?cè)藬?shù)
Const nc=10'城市數(shù)
Dim city(1 To n)As Integer,pname(1 To n)As String,times(1 To n)As Integer
Dim b(1 To nc)As Integer'存儲每個城市的報名人數(shù)
Dim c(1 To nc)As Integer
Dim q(1 To n)as Integer
Private Sub Form_Load( ?。?br />'本過程讀取城市序號、姓名和參加次數(shù)的數(shù)據(jù)分別存儲在數(shù)組city、pname和times中,
'并在List1中顯示,代碼略
End Sub
Private Sub Command1_Click( ?。?br /> Dim i As Integer,j As Integer,k As Integer,t As Integer,pos As Integer
For i=1 To nc
b(i)=0
Next i
For i=1 Ton
①①
b(k)=b(k)+1
Next i
k=1
For i=1 To nc
c(i)=k
k=k+b(i)
Next i
For i=1 To n
k=city(i)
②②
c(k)=c(k)+1
Next i
pos=1
For i=1 To nc'對各城市報名數(shù)據(jù)按參加志愿服務(wù)的次數(shù)進行排序
For j=pos To pos+b(i)-2
k=fp(j,pos+b(i)-1)
t=q(k):q(k)=q(j):q(j)=t
Next j
pos=pos+b(i)
Next i
For i=1 To n
List2.AddItem““&city(q(i))&““&pname(q(i))&““×(q(i))
Next i
End Sub
Function fp(head As Integer,tail As Integer)As Integer
Dim i As Integer,k As Integer
k=head
For i=③③
If times(q(i))>times(q(k))Then k=i
Next i
fp=k
End Function
【考點】編輯事件處理過程的代碼.
【答案】B;①;②;③
【解答】
【點評】
聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書面同意,不得復(fù)制發(fā)布。
發(fā)布:2024/6/27 10:35:59組卷:7引用:1難度:0.3
相似題
-
1.學(xué)校舉辦了“語文作文現(xiàn)場賽”,參賽同學(xué)成績存儲在文本文件“gra.jye.ai”中,如左圖所示(每一行記錄一位同學(xué)的姓名和成績,以“:”分隔)。陳老師利用Python程序?qū)ψ魑某煽冞M行處理,統(tǒng)計出各個分?jǐn)?shù)等級的人數(shù),并輸出結(jié)果。程序運行界面如右圖所示。
實現(xiàn)上述功能的Python程序如下,請在劃線處填入合適的代碼。發(fā)布:2024/12/17 2:0:1組卷:6引用:2難度:0.3 -
2.有如下Python程序段:
執(zhí)行該程序段,輸入字符串“abcdefg”,則輸出的結(jié)果是( ?。?/h2>發(fā)布:2024/12/20 6:30:1組卷:2引用:3難度:0.4 -
3.試題描述的內(nèi)容:
一個單窗體VB程序的運行界面如圖所示。下列說法正確的是( ?。?br />(1)窗體內(nèi)有1個按鈕
(2)窗體內(nèi)有2個文本框
(3)窗體內(nèi)有3個標(biāo)簽
(4)該窗體的標(biāo)題(Caption)屬性值是“加法計算器”發(fā)布:2024/12/20 20:0:2組卷:1引用:1難度:0.6
把好題分享給你的好友吧~~