小王準(zhǔn)備編寫一個(gè)依據(jù)技術(shù)學(xué)考、加試成績(jī)進(jìn)行賦分的VB程序，需對(duì)成績(jī)進(jìn)行預(yù)處理。預(yù)處理算法的基本思想：先從數(shù)據(jù)庫(kù)中讀取考生的考號(hào)、學(xué)考、加試成績(jī)，然后進(jìn)行排序，排序規(guī)則是按學(xué)考+加試的總分降序，若總分相同按加試成績(jī)降序排列。再根據(jù)排序結(jié)果給出名次，同分同名，學(xué)考、加試成績(jī)相同，則名次相同。
程序運(yùn)行時(shí)，學(xué)生數(shù)據(jù)顯示在列表框List1中，單擊“計(jì)算”按鈕Command1，計(jì)算結(jié)果顯示在列表框List2中，程序運(yùn)行界面如圖所示。

實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)回答下列問題：
（1）如圖所示，學(xué)生總數(shù)為1500人，排名前1%的學(xué)生可賦分為100，則共有

17

17

名學(xué)生可賦分為100。
（2）分析數(shù)據(jù)，可知存放學(xué)生成績(jī)的數(shù)據(jù)表為

stu_cj

stu_cj

。
（3）請(qǐng)?jiān)跈M線處填入合適的代碼。
Dim kh（1 To 1500）As String'存放學(xué)生考號(hào)
Dim a（1 To 1500）As Integer'存放學(xué)考成績(jī)
Dim b（1 To 1500）As Integer'存放加試成績(jī)
Dim pm（1 To 1500）As Integer'存放排名
Dim n As Integer'存放總?cè)藬?shù)
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+″\cj.accdb″
conn.Open
Set rs.ActiveConnection=conn
rs.Open″select*from stu_cj″
List1．AddItem“考號(hào)″&″學(xué)考″&″加試″
n=0
Do While Not rs.EOF'到記錄集最后一條記錄后退出循環(huán)
n=n+1'計(jì)數(shù)
kh（n）=rs.Fields（″考號(hào)″）
a（n）=rs.Fields（″學(xué)考成績(jī)″）
b（n）=rs.Fields（″加試成績(jī)″）
List1．AddItem kh（n） &″″& a（n） &″″& b（n）
rs.MoveNext'移動(dòng)到下一條記錄
Loop
rs.Close
conn.Close
Set rs=Nothing
Set conn=Nothing
End Sub
Private Sub Command1_Click （　?。?br />Dim i As Integer,j As Integer,t As Integer,k As String
For i=1 To n-1
For j=n To i+1 Step-1
If a（j）+b（j）＞a（j-1）+b（j-1）Or ①

a（j）+b（j）=a（j-1）+b（j-1）Andb（j）＞b（j-1）

a（j）+b（j）=a（j-1）+b（j-1）Andb（j）＞b（j-1）

Then
t=a（j）：a（j）=a（j-1）：a（j-1）=t
t=b（j）：b（j）=b（j-1）：b（j-1）=t
k=kh（j）：kh（j）=kh（j-1）：kh（j-1）=k
End If
Next
Next
pm（1）=1
For i=2 To n
If a（i）=a（i-1）And b（i）=b（i-1）Then
②

pm（i）=pm（i-1）

pm（i）=pm（i-1）

Else
pm（i）=i
End If
Next
List2．Clear
List2．AddItem″排名″&″考號(hào)″&″學(xué)考″&″加試“
For i=1 To n
List2．AddItem pm（i） &″″& kh（i） &″″& a（i） &″″& b（i）
Next
End Sub