某次考試的流程為先筆試再面試，筆試成績(jī)達(dá)到面試資格線的可以入圍參加面試。入圍面試 的資格線根據(jù)計(jì)劃錄取人數(shù)的 200%劃定，即如果考試最終錄取 x 人，則第 2*x 名選手的筆試分 數(shù)為面試資格的分?jǐn)?shù)線（該分若有同分者可一同參與面試）?，F(xiàn)在編寫 VB 程序功能如下：自動(dòng) 讀取數(shù)據(jù)庫(kù)中考生考號(hào)和筆試成績(jī)，依次存儲(chǔ)在數(shù)組 kh（i）、cj（i）中，并顯示在 List1 列表框中。單 擊“入圍劃線”按鈕 Command1，面試分?jǐn)?shù)線顯示在文本框 Text2 中，入圍面試最終人數(shù)顯示在 Text3 中，進(jìn)入面試的考生的考號(hào)和筆試成績(jī)顯示在 List2 列表框中，如果成績(jī)相同，則按考號(hào)由小到 大的順序顯示。程序界面如圖所示。

Dim kh（1to 500）As string,cj（1to 500）As Integer Dim n As Integer‘參加考試總?cè)藬?shù)
Private Sub Form_Load（　?。?br />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．a(chǎn)ccdb”conn.Open
set rs.activeconnection=conn rs.Open“select*FROM scoreinfo”
‘本過程其他代碼略 End Sub
Private Sub Command1_Click （　?。?br />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‘統(tǒng)計(jì)進(jìn)入面試人數(shù) 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=”面試人數(shù)超過總?cè)藬?shù)了”End If
End Sub
（1）讀取的數(shù)據(jù)表名為

scoreinfo

scoreinfo

。
（2）（單選）可以填在①處的代碼是

A

A

A．i+1To n   B．n To i+1C.1To n-i
（3）請(qǐng)?jiān)冖?、③橫線處填入適當(dāng)?shù)拇a。

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

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