16．某地選考賦分規(guī)則如下：
●劃分賦分等級：將考生每門選考科目的原始成績從高到低劃分為A、B+、B、C+、C、D+、D、E共8個等級，各等級人數(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% |
●轉(zhuǎn)換賦分成績：將A至E等級內(nèi)的考生原始成績，依照等比例轉(zhuǎn)換法則，分別轉(zhuǎn)換到91-100、81-90、71-80、61-70、51-60、41-50、31-40、21-30八個分數(shù)區(qū)間，得到考生的賦分成績，如圖a所示。
轉(zhuǎn)換公式如下：t=t2+（s-s2）*（t1-t2）/（s1-s2），其中t表示轉(zhuǎn)化后的賦分成績，t1表示該檔最高轉(zhuǎn)化分，t2表示該檔最低轉(zhuǎn)化分，s表示原始分，s1表示該檔最高原始分，s2表示該檔最低原始分。
比如選擇物理的學生有20000人，小明物理卷面分90分，排名為1800名，則他在物理學科中的比例是9%。按照賦分等級表可知他所處等級為B+。若原始分4%-10%區(qū)間的最高分為94，最低分為88，B+區(qū)間分數(shù)為81-90分。小明轉(zhuǎn)化后的賦分成績?yōu)?1+（90-88）*（90-81）/（94-88）=84分。
編寫一個VB程序計算某校學生某科目成績的賦分，功能如下：從數(shù)據(jù)庫中讀入學生學號、姓名、班級和原始成績，并在列表框List 1中顯示，單擊“賦分”按鈕Comnand1，在列表框List2中按原始成績從高到低顯示賦分等級和賦分成績。賦分時，先按原始成績從高到低排序，再根據(jù)人數(shù)比例計算切分位置，最后對落入同一等級的學生進行賦分。若切分位置有相同分數(shù)學生，則歸為同一個等級。例如，某等級切分位置是第100位，但第101位學生的原始成績和第100位相同，則這兩名學生的賦分等級相同。程序運行界面如圖b所示。
實現(xiàn)上述功能的VB程序如下，請回答下列問題：
（1）分析程序，可知存放學生成績的數(shù)據(jù)表為
。
（2）請在橫線處填上合適的代碼。
Const max=1000
Dim n As Integer’存放學生人數(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存儲學生的賦分等級
Dim ffdj（0 To max） As String’數(shù)組ffcj存儲學生的賦分成績
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“
’本過程其它代碼從數(shù)據(jù)庫中讀入學生學號、姓名、班級和原始成績存儲到數(shù)組xh、xm、bj和fs中，并在List1中顯示。學生數(shù)存儲在變量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）=
’計算到該等級累計所占比例
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’處理切分位置的同分數(shù)學生
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
