16.某次考試的流程為先筆試再面試,筆試成績(jī)達(dá)到面試資格線的可以入圍參加面試。入圍面試 的資格線根據(jù)計(jì)劃錄取人數(shù)的 200%劃定,即如果考試最終錄取 x 人,則第 2*x 名選手的筆試分 數(shù)為面試資格的分?jǐn)?shù)線(該分若有同分者可一同參與面試)?,F(xiàn)在編寫 VB 程序功能如下:自動(dòng) 讀取數(shù)據(jù)庫中考生考號(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ù)表名為
。
(2)(單選)可以填在①處的代碼是
A.i+1To n B.n To i+1C.1To n-i
(3)請(qǐng)?jiān)冖?、③橫線處填入適當(dāng)?shù)拇a。