16．某地選考賦分規(guī)則如下：
●劃分賦分等級(jí)：將考生每門(mén)選考科目的原始成績(jī)從高到低劃分為A、B+、B、C+、C、D+、D、E共8個(gè)等級(jí)，各等級(jí)人數(shù)所占比例分別為3%、7%、16%、24%、24%、16%、7%、3%，如下表所示。
| 等級(jí) |
A |
B+ |
B |
C+ |
C |
D+ |
D |
E |
| 比例 |
3% |
7% |
16% |
24% |
24% |
16% |
7% |
3% |
●轉(zhuǎn)換賦分成績(jī)：將A至E等級(jí)內(nèi)的考生原始成績(jī)，依照等比例轉(zhuǎn)換法則，分別轉(zhuǎn)換到91-100、81-90、71-80、61-70、51-60、41-50、31-40、21-30八個(gè)分?jǐn)?shù)區(qū)間，得到考生的賦分成績(jī)，如圖a所示。
轉(zhuǎn)換公式如下：t=t2+（s-s2）*（t1-t2）/（s1-s2），其中t表示轉(zhuǎn)化后的賦分成績(jī)，t1表示該檔最高轉(zhuǎn)化分，t2表示該檔最低轉(zhuǎn)化分，s表示原始分，s1表示該檔最高原始分，s2表示該檔最低原始分。
比如選擇物理的學(xué)生有20000人，小明物理卷面分90分，排名為1800名，則他在物理學(xué)科中的比例是9%。按照賦分等級(jí)表可知他所處等級(jí)為B+。若原始分4%-10%區(qū)間的最高分為94，最低分為88，B+區(qū)間分?jǐn)?shù)為81-90分。小明轉(zhuǎn)化后的賦分成績(jī)?yōu)?1+（90-88）*（90-81）/（94-88）=84分。
編寫(xiě)一個(gè)VB程序計(jì)算某校學(xué)生某科目成績(jī)的賦分，功能如下：從數(shù)據(jù)庫(kù)中讀入學(xué)生學(xué)號(hào)、姓名、班級(jí)和原始成績(jī)，并在列表框List 1中顯示，單擊“賦分”按鈕Comnand1，在列表框List2中按原始成績(jī)從高到低顯示賦分等級(jí)和賦分成績(jī)。賦分時(shí)，先按原始成績(jī)從高到低排序，再根據(jù)人數(shù)比例計(jì)算切分位置，最后對(duì)落入同一等級(jí)的學(xué)生進(jìn)行賦分。若切分位置有相同分?jǐn)?shù)學(xué)生，則歸為同一個(gè)等級(jí)。例如，某等級(jí)切分位置是第100位，但第101位學(xué)生的原始成績(jī)和第100位相同，則這兩名學(xué)生的賦分等級(jí)相同。程序運(yùn)行界面如圖b所示。
實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)回答下列問(wèn)題：
（1）分析程序，可知存放學(xué)生成績(jī)的數(shù)據(jù)表為
。
（2）請(qǐng)?jiān)跈M線處填上合適的代碼。
Const max=1000
Dim n As Integer’存放學(xué)生人數(shù)
Dim xh（1 To max） As String,xm（1 To max） As String
Dim bj（1 To max） As Integer’fs（0 To max） As Single
Dim ffcj（1 To max） As Integer’數(shù)組ffdj存儲(chǔ)學(xué)生的賦分等級(jí)
Dim ffdj（0 To max） As String’數(shù)組ffcj存儲(chǔ)學(xué)生的賦分成績(jī)
Private Sub Form_Load
Dim i As Integer,km As String
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString=“provider=microsoft.ace.jye.ai.12.0；data source=“+App.Path+“\student.jye.ai”
conn.Open
Set rs.ActiveConnection=conn
rs.Open“select*from stu_info“
’本過(guò)程其它代碼從數(shù)據(jù)庫(kù)中讀入學(xué)生學(xué)號(hào)、姓名、班級(jí)和原始成績(jī)存儲(chǔ)到數(shù)組xh、xm、bj和fs中，并在List1中顯示。學(xué)生數(shù)存儲(chǔ)在變量n中。
Loop
End Sub
Private Sub Command1_Click
Dim q（1 To max） As Integer’p（1 To 8）As Single,dj（1 To 8）As String
Dim i As Integer,j As Integer,t As Integer,pos As Integer,last As Integer
Dim t1 As Integer,t2 As Integer,s1 As Single,s2 As Single
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）=
’計(jì)算到該等級(jí)累計(jì)所占比例
Next i
Fori=1Ton
q（i）=i
Next i
For i=1 Ton-1
For j=n To i+1 Step-1
If fs（q（j））＞fs（q（j-1）） Then
t=q（j）：q（j）=q（j-1）：q（j-1）=t
End If
Next j
Next i
pos=1
t1=100：t2=91
For i=1 To 8
last=Int（n*p（i）+0.5）
Do While
last=last+1’處理切分位置的同分?jǐn)?shù)學(xué)生
Loop
s1=fs（q（pos））：s2=fs（q（last））
Do While pos＜=last
ffcj（q（pos））=t2+（fs（q（pos））-s2）/（s1-s2）*（t1-t2）
pos=pos+1
Loop
t1=t1-10：t2=t2-10
Next i
For i=1 Ton
List2.AddItem xh（q（i））+xm（q（i））+Str（bj（q（i）））+dj（ffdj（q（i）））+Str（ffcj（q（i）））
Next i
End Sub
