某地學(xué)考等級劃分規(guī)則如下：
將考生原始成績從高到低劃分為A、B+、B、C+、C、D+、D、E共8個(gè)等級，各等級人數(shù)所占比例分別為3%、7%、16%、24%、24%、16%、7%、3%，如下表所示。
| 等級 | A | B+ | B | C+ | C | D+ | D | E |
| 比例 | 3% | 7% | 16% | 24% | 24% | 16% | 7% | 3% |
編寫一個(gè)VB程序計(jì)算學(xué)生某科目成績的等級，功能如下：從數(shù)據(jù)庫中讀入學(xué)生學(xué)號、姓名、班級和原始成績，并在列表框List1中顯示，單擊“等級劃分”按鈕Command1，在列表框List2中按原始成績從高到低顯示成績與等級。等級劃分時(shí)，先按原始成績從高到低排序（如原始成績相同，則按“班級”號從小到大排序），再根據(jù)人數(shù)比例計(jì)算切分位置確定等級。若切分位置有相同分?jǐn)?shù)學(xué)生，則歸為同一個(gè)等級。例如，某等級切分位置是第100位，但第101位學(xué)生的原始成績和第100位相同，則這兩名學(xué)生的賦分等級相同。程序運(yùn)行界面如圖所示。
實(shí)現(xiàn)上述功能的VB程序如下，請回答下列問題：
（1）下列屬于 VB 窗體文件的是
B
B
（單選，填字母）。A.dj.vbp
B.dj.frm
C.jd.exe
D.dj.vbw
（2）請?jiān)跈M線處填上合適的代碼。
Const max=1000
Dim n As Integer'存放學(xué)生人數(shù)
Dim xh（1 To max） As String'數(shù)組xh存放學(xué)生的學(xué)籍號
Dim xm（1 To max） As String'數(shù)組xm存放學(xué)生的姓名
Dim bj（1 To max） As Integer'數(shù)組bj存放學(xué)生的班級
Dim fs（0 To max） As Single'數(shù)組fs存儲學(xué)生的原始分?jǐn)?shù)
Dim ffdj（0 To max） As String'數(shù)組ffdj存儲學(xué)生的賦分等級
Private Sub Command1_Click
（ ）
（ ）
Dim p（1 To 8）As Single,dj（1 To 8）As String
Dim i As Integer,j As Integer,pos As Integer,last As Integer
Dim st As String,it As Integer,sit As Single
‘從數(shù)據(jù)庫中讀入學(xué)生學(xué)號、姓名、班級和原始成績，分別存入數(shù)組 xh、xm、bj 和 fz中，代碼略
p（1）=0.03：p（2）=0.07：p（3）=0.16：p（4）=0.24：p（5）=0.24：p（6）=0.16：p（7）=0.07：p（8）=0.03：dj（1）=“A“：dj（2）=“B+“：dj（3）=“B“：dj（4）=“C+“：dj（5）=“C“：dj（6）=“D+“：dj（7）=“D“：dj（8）=“E“
For i=2 To 8
①
p（i）=p（i）+p（i-1）
p（i）=p（i）+p（i-1）
'計(jì)算到該等級累計(jì)所占比例Next i
For i=1 To n-1
For j=1 To n-i
If fs（j）＜fs（j+1）and bj（j）＜b（j+1）Then
st=xh（j）：xh（j）=xh（j+1）：xh（j+1）=st
st=xm（j）：xm（j）=xm（j+1）：xm（j+1）=st
it=bj（j）：bj（j）=bj（j+1）：bj（j+1）=it
sit=fs（j）：fs（j）=fs（j+1）：fs（j+1）=sit
End If
Next j
Next i
pos=1
For i=1 To 8
last=②
Int（n*p（i）+0.5）
Int（n*p（i）+0.5）
'人數(shù)四舍五入取整Do While fs（last+1）=fs（last）
last=last+1'處理切分位置的同分?jǐn)?shù)學(xué)生
Loop
Do While ③
pos＜=last
pos＜=last
ffdj（pos）=dj（i）
pos=pos+1
Loop
Next i
For i=1 To n
List2.AddItem xh（i）+““+xm（i）+““+Str（bj（i））+““+Str（fs（i））+““+ffdj（i）
Next i
End Sub
【考點(diǎn)】應(yīng)用程序的試運(yùn)行和保存．
【答案】B；（ ）；p（i）=p（i）+p（i-1）；Int（n*p（i）+0.5）；pos＜=last
【解答】
【點(diǎn)評】
聲明：本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有，未經(jīng)書面同意，不得復(fù)制發(fā)布。
發(fā)布：2024/4/20 14:35:0組卷：0引用：1難度：0.3
相似題
-
1．大部分社交軟件都有好友推薦的功能，當(dāng)用戶 A 和用戶 B 的共同好友數(shù)量超過閾值 p 時(shí)，由系統(tǒng)向用戶 A 推薦用戶 B。
編寫 VB 程序，實(shí)現(xiàn)好友推薦功能。運(yùn)行程序，列表框 Listl 中顯示用戶 id 及好友列表，在文本框 Textl 中 輸入推薦目標(biāo)用戶 id,在文本框 Text2 中輸入閾值 p,點(diǎn)擊“推薦”按鈕，在列表框List2 中顯示用戶之間的關(guān)系，在標(biāo)簽 Label5 中顯示向目標(biāo)用戶推薦的好友列表。程序運(yùn)行界面如圖：
（1）根據(jù)如圖所示數(shù)據(jù)，若輸入用戶 id 為“3”，輸入閾值為“3”，則推薦好友為：
（2）實(shí)現(xiàn)上述功能的 VB 程序如下，請?jiān)跈M線處填入合適的代碼。
發(fā)布：2025/1/2 10:30:2組卷：0引用：1難度：0.3 -
2．小明用python語言中對大小為100*100像素的圖像“上.jpg”（如圖所示）進(jìn)行簡單處理，部分代碼如圖：
程序執(zhí)行后的圖像效果是（ ）發(fā)布：2024/12/20 9:30:2組卷：3引用：5難度：0.4 -
3．某學(xué)校開展了藝術(shù)節(jié)活動(dòng)，數(shù)組a中存儲了n個(gè)節(jié)目的編號和得分?jǐn)?shù)據(jù)，數(shù)組存儲結(jié)構(gòu)如圖所示：
小明使用選擇排序思想對上述n個(gè)節(jié)目按得分進(jìn)行降序排序（得分相同的按編號升序排列），并依據(jù)得分插入各個(gè)節(jié)目的排名信息，處理后數(shù)組a的存儲結(jié)構(gòu)如圖所示：
程序運(yùn)行時(shí)，單擊命令按鈕Command1后讀取數(shù)據(jù)到數(shù)組a中并顯示在列表框List1中，單擊命令按鈕Command2后將節(jié)目按照上述規(guī)則進(jìn)行排序，并將排名結(jié)果顯示在列表框List2中。
實(shí)現(xiàn)上述功能的VB程序如下，請回答下列問題：
（1）已知窗體名稱為Forml,要使程序加載時(shí)，窗體標(biāo)題自動(dòng)顯示為“第15題程序”，則可在（單選，填字母：A.Form_Click（ ）/B.Form_Load（ ）/C.Forml_Click （ ）/D.Forml_Load （ ））事件過程 中添加代碼：Forml.Caption=“第15題程序”。
（2）請?jiān)跈M線處填入合適的代碼。
（3）加框處代碼有誤，請改正。
發(fā)布：2025/1/2 10:30:2組卷：0引用：1難度：0.3