為了統(tǒng)計學校七選三組合的優(yōu)秀率，從數(shù)據(jù)庫中讀取各個七選三組合的學生信息，每個考生的數(shù)據(jù)包含全校序列號，姓名，選課組合（為7位二進制數(shù)，按“物化生政史地技”排列），高考總分。算法規(guī)則是：先按照選課組合排列；然后，同一組合的學生，按高考總分進行降序排列；最后，從Textl中讀入百分比rate,在list2中輸出各種組合總分前rate%的平均分。按上述要求，編寫了一個VB程序，功能如下：單擊“導入數(shù)據(jù)”按鈕command1，在list1中顯示原始數(shù)據(jù)，單擊“計算個選課前%平均分”按鈕command2，在list2中顯示各組合前rate%的平均分。
（1）若程序運行后數(shù)組元素c（7）值為80，則c（9）的值為8080.
Dimxh（1To500）AsInteger’xm（1To500）AsString,score（1To500）AsInteger
Dimxk（1To500）AsInteger'xk數(shù)組存儲學生七選三組合的十進制值
DimnumAsInteger'學生總人數(shù)
PrivateSubCommand1_Click （ ?。?br />'連接數(shù)據(jù)庫，從數(shù)據(jù)庫中讀取原始數(shù)據(jù)存入各數(shù)組并顯示到LIST1列表框中；
EndSubFunctionD2S（ByValnAsInteger）AsString
'函數(shù)功能為把七選三組合的十進制值轉換為中文選科
EndFunction
PrivateSubCommand2_Click （ ）
DimrateAsInteger,iAsInteger,jAsInteger,kAsInteger,posasinteger
Dimxkc（0To127）AsInteger'各組合選科學生數(shù)統(tǒng)計
Dimc（0To127）AsInteger,sortxh（1To500）AsInteger
rate=Val（Text1.Text）
Fori=1Tonum
xkc（xk（i））=xkc（xk（i））+1xkc（xk（i））=xkc（xk（i））+1
Nexti
Fori=1To127
c（i）=xkc（i）+c（i-1）
Nexti
Fori=1Tonum
k=xk（i）
sortxh（c（k））=isortxh（c（k））=i
c（k）=c（k）-1
Nexti
pos=1
Fori=0To127
sum=0
Ifxkc（i）＞0Then
Forj=pos to pos+int（xkc（i）*rate/l00）-1pos to pos+int（xkc（i）*rate/l00）-1
Fork=pos+xkc（i）-1Toj+1Step-1
Ifscore（sortxh（k））＞score（sortxh（k-1））Then
t=sortxh（k）：sortxh（k）=sortxh（k-1）：sortxh（k-1）=t
EndIf
Nextk
sum=sum+score（sortxh（j））
Nextj
List2.AddItemD2S（i）+Str（Int（sum/Int（xkc（i）*rate/100）））
EndIf
pos=pos+xkc（i）
Nexti
EndSub
【考點】應用程序的試運行和保存．
【答案】80；xkc（xk（i））=xkc（xk（i））+1；sortxh（c（k））=i；pos to pos+int（xkc（i）*rate/l00）-1
【解答】
【點評】
聲明：本試題解析著作權屬菁優(yōu)網(wǎng)所有，未經(jīng)書面同意，不得復制發(fā)布。
發(fā)布：2024/4/20 14:35:0組卷：2引用：1難度：0.2
相似題
-
1．大部分社交軟件都有好友推薦的功能，當用戶 A 和用戶 B 的共同好友數(shù)量超過閾值 p 時，由系統(tǒng)向用戶 A 推薦用戶 B。
編寫 VB 程序，實現(xiàn)好友推薦功能。運行程序，列表框 Listl 中顯示用戶 id 及好友列表，在文本框 Textl 中 輸入推薦目標用戶 id,在文本框 Text2 中輸入閾值 p,點擊“推薦”按鈕，在列表框List2 中顯示用戶之間的關系，在標簽 Label5 中顯示向目標用戶推薦的好友列表。程序運行界面如圖：
（1）根據(jù)如圖所示數(shù)據(jù)，若輸入用戶 id 為“3”，輸入閾值為“3”，則推薦好友為：
（2）實現(xiàn)上述功能的 VB 程序如下，請在橫線處填入合適的代碼。
發(fā)布：2025/1/2 10:30:2組卷：0引用：1難度：0.3 -
2．某學校開展了藝術節(jié)活動，數(shù)組a中存儲了n個節(jié)目的編號和得分數(shù)據(jù)，數(shù)組存儲結構如圖所示：
小明使用選擇排序思想對上述n個節(jié)目按得分進行降序排序（得分相同的按編號升序排列），并依據(jù)得分插入各個節(jié)目的排名信息，處理后數(shù)組a的存儲結構如圖所示：
程序運行時，單擊命令按鈕Command1后讀取數(shù)據(jù)到數(shù)組a中并顯示在列表框List1中，單擊命令按鈕Command2后將節(jié)目按照上述規(guī)則進行排序，并將排名結果顯示在列表框List2中。
實現(xiàn)上述功能的VB程序如下，請回答下列問題：
（1）已知窗體名稱為Forml,要使程序加載時，窗體標題自動顯示為“第15題程序”，則可在（單選，填字母：A.Form_Click（ ?。?B.Form_Load（ ?。?C.Forml_Click （ ）/D.Forml_Load （ ?。┦录^程 中添加代碼：Forml.Caption=“第15題程序”。
（2）請在橫線處填入合適的代碼。
（3）加框處代碼有誤，請改正。
發(fā)布：2025/1/2 10:30:2組卷：0引用：1難度：0.3 -
3．小明用python語言中對大小為100*100像素的圖像“上.jpg”（如圖所示）進行簡單處理，部分代碼如圖：
程序執(zhí)行后的圖像效果是（ ）發(fā)布：2024/12/20 9:30:2組卷：3引用：5難度：0.4