某地學(xué)考等級(jí)劃分規(guī)則如下：
將考生原始成績(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%

比如參加技術(shù)學(xué)考有20000人，小明卷面分90分，排名為1800名，則他在技術(shù)學(xué)科中的所處比例是9%。A占3%，B+占7%，因此B+所處的累積比例為4%-%10，可知他所處等級(jí)為B+。
編寫(xiě)一個(gè)VB程序計(jì)算學(xué)生某科目成績(jī)的等級(jí)，功能如下：從數(shù)據(jù)庫(kù)中讀入學(xué)生學(xué)號(hào)、姓名、班級(jí)和原始成績(jī)，并在列表框List1中顯示，單擊“等級(jí)劃分”按鈕Command1，在列表框List2中按原始成績(jī)從高到低顯示成績(jī)與等級(jí)。等級(jí)劃分時(shí)，先按原始成績(jī)從高到低排序（如原始成績(jī)相同，則按“班級(jí)”號(hào)從小到大排序），再根據(jù)人數(shù)比例計(jì)算切分位置確定等級(jí)。若切分位置有相同分?jǐn)?shù)學(xué)生，則歸為同一個(gè)等級(jí)。例如，某等級(jí)切分位置是第100位，但第101位學(xué)生的原始成績(jī)和第100位相同，則這兩名學(xué)生的賦分等級(jí)相同。程序運(yùn)行界面如圖所示。

實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)回答下列問(wèn)題：
（1）下列屬于 VB 窗體文件的是

B

B

（單選，填字母）。
A.dj.vbp
B.dj.frm
C.jd.exe
D.dj.vbw
（2）請(qǐng)?jiān)跈M線處填上合適的代碼。
Const max=1000
Dim n As Integer'存放學(xué)生人數(shù)
Dim xh（1 To max） As String'數(shù)組xh存放學(xué)生的學(xué)籍號(hào)
Dim xm（1 To max） As String'數(shù)組xm存放學(xué)生的姓名
Dim bj（1 To max） As Integer'數(shù)組bj存放學(xué)生的班級(jí)
Dim fs（0 To max） As Single'數(shù)組fs存儲(chǔ)學(xué)生的原始分?jǐn)?shù)
Dim ffdj（0 To max） As String'數(shù)組ffdj存儲(chǔ)學(xué)生的賦分等級(jí)
Private Sub Command1_Click

（　　）

（　?。?/div>
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ù)庫(kù)中讀入學(xué)生學(xué)號(hào)、姓名、班級(jí)和原始成績(jī)，分別存入數(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í)累計(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