某次考试的流程为先笔试再面试，笔试成绩达到面试资格线的可以入围参加面试。入围面试 的资格线根据计划录取人数的 200%划定，即如果考试最终录取 x 人，则第 2*x 名选手的笔试分 数为面试资格的分数线（该分若有同分者可一同参与面试）。现在编写 VB 程序功能如下：自动 读取数据库中考生考号和笔试成绩，依次存储在数组 kh（i）、cj（i）中，并显示在 List1 列表框中。单 击“入围划线”按钮 Command1，面试分数线显示在文本框 Text2 中，入围面试最终人数显示在 Text3 中，进入面试的考生的考号和笔试成绩显示在 List2 列表框中，如果成绩相同，则按考号由小到 大的顺序显示。程序界面如图所示。

Dim kh（1to 500）As string,cj（1to 500）As Integer Dim n As Integer‘参加考试总人数
Private Sub Form_Load（　　）
Dim conn as new ADODB．connection：Dim rs As New ADODB．Recordset conn.ConnectionString=“Provider=Microsoft.ACE．OLEDB.12.0；Data Source=”
+App.Path+”\BSCJ．accdb”conn.Open
set rs.activeconnection=conn rs.Open“select*FROM scoreinfo”
‘本过程其他代码略 End Sub
Private Sub Command1_Click （　　）
Dim m As Integer,i As Integer,j As Integer Dim t1As Integer,t2As String,flag As Boolean For i=1To n-1‘排序
For j=

①

①

If
 cj（i）＜cj（j） Then
t1=cj（i）：cj（i）=cj（j）：cj（j）=t1t2=kh（i）：kh（i）=kh（j）：kh（j）=t2
Elseif cj（i）=cj（j） And kh（i）＞kh（j） Then t2=kh（i）：kh（i）=kh（j）：kh（j）=t2
End If Next j
Next i
m=

②

②

If m＜=n Then‘统计进入面试人数 i=m
flag=False
Do While

③

③

If cj（i）=cj（i+1）Then
i=i+1Else
flag=True End If
Loop
Text2．text=Str（cj（m）） Text3．text=Str（i）
For j=1To i
List2．AddItem kh（j）+“”+Str（cj（i）） Next j
Else
Text2．Text=”面试人数超过总人数了”End If
End Sub
（1）读取的数据表名为

scoreinfo

scoreinfo

。
（2）（单选）可以填在①处的代码是

A

A

A．i+1To n   B．n To i+1C.1To n-i
（3）请在②、③横线处填入适当的代码。

2*Val（Text1．text） i＜n and flag=False

2*Val（Text1．text） i＜n and flag=False