某地學考等級劃分規(guī)則如下：
將考生原始成績從高到低劃分為A、B+、B、C+、C、D+、D、E共8個等級，各等級人數所占比例分別為3%、7%、16%、24%、24%、16%、7%、3%，如下表所示。

等級	A	B+	B	C+	C	D+	D	E
比例	3%	7%	16%	24%	24%	16%	7%	3%

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

實現上述功能的VB程序如下，請回答下列問題：
（1）下列屬于 VB 窗體文件的是

B

B

（單選，填字母）。
A.dj.vbp
B.dj.frm
C.jd.exe
D.dj.vbw
（2）請在橫線處填上合適的代碼。
Const max=1000
Dim n As Integer'存放學生人數
Dim xh（1 To max） As String'數組xh存放學生的學籍號
Dim xm（1 To max） As String'數組xm存放學生的姓名
Dim bj（1 To max） As Integer'數組bj存放學生的班級
Dim fs（0 To max） As Single'數組fs存儲學生的原始分數
Dim ffdj（0 To max） As String'數組ffdj存儲學生的賦分等級
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
‘從數據庫中讀入學生學號、姓名、班級和原始成績，分別存入數組 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）

'計算到該等級累計所占比例
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）

'人數四舍五入取整
Do While fs（last+1）=fs（last）
last=last+1'處理切分位置的同分數學生
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