從 2022 年 1 月起，浙江省的選考成績將采用新的一分一賦的賦分制，賦分等級與比例如圖 1 所示。
| 等級 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 |
| 等級賦分 | 100-97 | 96-94 | 93-91 | 90-88 | 97-85 | 84-82 | 81-79 | 78-76 | 75-73 | 72-70 |
| 人數(shù)比例（%） | 3 | 3 | 4 | 5 | 6 | 7 | 7 | 7 | 7 | 7 |
| 等級 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 |
| 等級賦分 | 69-67 | 66-64 | 63-61 | 60-58 | 57-55 | 54-52 | 51-49 | 48-46 | 45-43 | 42-40 |
| 人數(shù)比例（%） | 7 | 7 | 7 | 6 | 5 | 4 | 3 | 2 | 1 | 1 |
第一步，將卷面得分按人數(shù)比例劃分為 20 個賦分區(qū)間，得出每個區(qū)間卷面得分的上限、下限。（說明：每個賦分等級人數(shù)=總?cè)藬?shù)×每個賦分等級比例（結(jié)果四舍五入取整）；當(dāng)卷面得分相同但人數(shù)超出該等級人數(shù)時，則減少下一檔的人數(shù)。）
第二步，對每個區(qū)間的卷面得分進行等比例轉(zhuǎn)換成賦分，公式為：s2-s=t2-t,其中，s2、s1 為
s-s1t-t1
卷面得分區(qū)間的上限和下限，s 為待轉(zhuǎn)換卷面得分；t2、t1 為賦分區(qū)間的上限和下限，t 為卷面得分等比例轉(zhuǎn)換后的賦分。
第三步，將轉(zhuǎn)換后的賦分 t 取整（小數(shù)部分四舍五入）。
編寫 VB 程序，實現(xiàn)成績賦分功能：在列表框 List1 中顯示某市所有學(xué)生的考號，原始成績（無 0 分，降序排列）和名次（同分同名），單擊“成績賦分”按鈕 Command1 后，賦分成績按從高到低的順序顯示在列表框 List2 中。程序界面如圖所示。
（1）若賦分區(qū)間為 87-85，其對應(yīng)的卷面得分區(qū)間在 84-81，某考生的卷面得分為 83，則通過比例公式轉(zhuǎn)換，該考生的等級賦分為
86
86
分。（2）實現(xiàn)上述功能的 VB 程序如下，請在橫線處填入合適的代碼。
Const n=18000'總?cè)藬?shù)Dim kh（1 To n）As String'學(xué)生考號Dim cj（1 To n）As Single'原始成績Dim cj2（1 To n）As Integer'賦分成績
Dim mc（1 To n）As Integer'原始成績的排名 Dim pro（1 To 20）As Single'每個等級的人數(shù)比例
Dim t（1 To 40）As Integer'每個等級賦分區(qū)間的上限和下限D(zhuǎn)im s（1 To 40）As Single'每個等級卷面得分的上限和下限D(zhuǎn)im num（1 To 20）As Integer
Private Sub Form_Load （ ?。?從數(shù)據(jù)庫中讀取數(shù)據(jù)，將考號、原始成績分別存儲在數(shù)組 kh 和數(shù)組 cj 中
'將每個等級的比例存入數(shù)組 pro 中
'將每個賦分區(qū)間的上限、下限存入數(shù)組 t 中（如 t（1）、t（2）分別存儲等級 1 的賦分上限 100，下限 97），
'將數(shù)組 cj 降序排列，計算出名次存入數(shù)組 mc 中，并顯示在 List1 中，代碼略
End Sub
Private Sub Command1_Click （ ?。?br />Dim flag As Boolean,k As Integer,i As Integer num（1）=Int（pro（1）*n+0.5）
For i=2 To 20
num（i）=①
num（i-1）+Int（pro（i）*n+0.5）
num（i-1）+Int（pro（i）*n+0.5）
Next i num（20）=n
k=1：flag=True：i=1
Do While i＜=n'劃定每個等級相應(yīng)的卷面得分的上限和下限 If mc（i）＜num（k）Then
If flag Then s（2*k-1）=cj（i）flag=False
i=i+1
ElseIf②
mc（i）=num（k）
mc（i）=num（k）
Then s（2*k）=cj（i）flag=True i=i+1
Else
③
s（2*k）=cj（i-1）
s（2*k）=cj（i-1）
flag=True k=k+1End If Loop
If s（2*k）=0 Then s（2*k）=cj（n）
'根據(jù)比例轉(zhuǎn)換公式計算每個考生的賦分結(jié)果，存入數(shù)組 cj2 中，代碼略。
For i=1 To n
List2.AddItem kh（i）+““+Str（cj（i））+““+Str（cj2（i））Next i
End Sub
【考點】應(yīng)用程序的試運行和保存．
【答案】86；num（i-1）+Int（pro（i）*n+0.5）；mc（i）=num（k）；s（2*k）=cj（i-1）
【解答】
【點評】
聲明：本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有，未經(jīng)書面同意，不得復(fù)制發(fā)布。
發(fā)布：2024/6/27 10:35:59組卷：1引用：1難度：0.2
相似題
-
1．大部分社交軟件都有好友推薦的功能，當(dāng)用戶 A 和用戶 B 的共同好友數(shù)量超過閾值 p 時，由系統(tǒng)向用戶 A 推薦用戶 B。
編寫 VB 程序，實現(xiàn)好友推薦功能。運行程序，列表框 Listl 中顯示用戶 id 及好友列表，在文本框 Textl 中 輸入推薦目標(biāo)用戶 id,在文本框 Text2 中輸入閾值 p,點擊“推薦”按鈕，在列表框List2 中顯示用戶之間的關(guān)系，在標(biāo)簽 Label5 中顯示向目標(biāo)用戶推薦的好友列表。程序運行界面如圖：
（1）根據(jù)如圖所示數(shù)據(jù)，若輸入用戶 id 為“3”，輸入閾值為“3”，則推薦好友為：
（2）實現(xiàn)上述功能的 VB 程序如下，請在橫線處填入合適的代碼。
發(fā)布：2025/1/2 10:30:2組卷：0引用：1難度：0.3 -
2．某學(xué)校開展了藝術(shù)節(jié)活動，數(shù)組a中存儲了n個節(jié)目的編號和得分數(shù)據(jù)，數(shù)組存儲結(jié)構(gòu)如圖所示：
小明使用選擇排序思想對上述n個節(jié)目按得分進行降序排序（得分相同的按編號升序排列），并依據(jù)得分插入各個節(jié)目的排名信息，處理后數(shù)組a的存儲結(jié)構(gòu)如圖所示：
程序運行時，單擊命令按鈕Command1后讀取數(shù)據(jù)到數(shù)組a中并顯示在列表框List1中，單擊命令按鈕Command2后將節(jié)目按照上述規(guī)則進行排序，并將排名結(jié)果顯示在列表框List2中。
實現(xiàn)上述功能的VB程序如下，請回答下列問題：
（1）已知窗體名稱為Forml,要使程序加載時，窗體標(biāo)題自動顯示為“第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í)行后的圖像效果是（ ?。?/h2>發(fā)布：2024/12/20 9:30:2組卷：3引用：5難度：0.4
把好題分享給你的好友吧~~