某校每年都舉辦校園十佳歌手比賽,小明用VB編寫了一個(gè)計(jì)分用的程序用于統(tǒng)計(jì)處理比賽成績,運(yùn)行界面如圖所示。
在輸入?yún)^(qū)域輸入選手編號和每位評委給該選手的打分后,單擊“計(jì)算平均得分”按鈕Command1,得到當(dāng)前選手的最終得分,并顯示在列表框List1中。所有選手的成績輸入完畢后,單擊“排名”按鈕Command2,在列表框List2中顯示按編號順序排列的選手得分及名次(若得分一樣,排名相同),再在列表框List3中顯示按名次順序排列的前十位選手的編號及得分。
實(shí)現(xiàn)上述功能的VB程序如下,代碼加框處有錯(cuò),請改正。
Const rs=20'參賽總?cè)藬?shù)為20
Dim num(1 To rs)As Integer'存放選手編號
Dim se(1 To rs)As Double'存放選手得分
Dim rk(1 To rs)As Integer'存放選手名次
Private Sub Command1_Click( )
'計(jì)算每位選手的平均得分并顯示到列表框List1中,代碼略
End Sub
Private Sub Command2_Click( ?。?br />Dim i As Integer,j As Integer,me As Integer
List2.Clear:List3.Clear
For i=1 To rs
mc=0
'①
If sc(i)<sc(j) Then mc=mc+1
Next j
'②
Nxet i
For i=1 To rs
List2.AddItem num(i)&“號選手“&““&Format(Str(sc(i)),“00.00“)&““&rk(i)
Nxet i
'在列表框List3中按名次順序顯示選手信息,代碼略
End Sub
加框①處的代碼應(yīng)改為:for j=1 to rsfor j=1 to rs;加框②處的代碼應(yīng)改為:rk(i)=mc+1rk(i)=mc+1。
【考點(diǎn)】編輯事件處理過程的代碼.
【答案】for j=1 to rs;rk(i)=mc+1
【解答】
【點(diǎn)評】
聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書面同意,不得復(fù)制發(fā)布。
發(fā)布:2024/6/27 10:35:59組卷:2引用:1難度:0.5
相似題
-
1.學(xué)校舉辦了“語文作文現(xiàn)場賽”,參賽同學(xué)成績存儲在文本文件“gra.jye.ai”中,如左圖所示(每一行記錄一位同學(xué)的姓名和成績,以“:”分隔)。陳老師利用Python程序?qū)ψ魑某煽冞M(jìn)行處理,統(tǒng)計(jì)出各個(gè)分?jǐn)?shù)等級的人數(shù),并輸出結(jié)果。程序運(yùn)行界面如右圖所示。
實(shí)現(xiàn)上述功能的Python程序如下,請?jiān)趧澗€處填入合適的代碼。發(fā)布:2024/12/17 2:0:1組卷:6引用:2難度:0.3 -
2.有如下Python程序段:
執(zhí)行該程序段,輸入字符串“abcdefg”,則輸出的結(jié)果是( )發(fā)布:2024/12/20 6:30:1組卷:2引用:3難度:0.4 -
3.試題描述的內(nèi)容:
一個(gè)單窗體VB程序的運(yùn)行界面如圖所示。下列說法正確的是( )
(1)窗體內(nèi)有1個(gè)按鈕
(2)窗體內(nèi)有2個(gè)文本框
(3)窗體內(nèi)有3個(gè)標(biāo)簽
(4)該窗體的標(biāo)題(Caption)屬性值是“加法計(jì)算器”發(fā)布:2024/12/20 20:0:2組卷:1引用:1難度:0.6
把好題分享給你的好友吧~~