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

實現上述功能的VB程序如下，請回答下列問題：
（1）如圖所示，學生總數為1500人，排名前1%的學生可賦分為100，則共有

17

17

名學生可賦分為100。
（2）分析數據，可知存放學生成績的數據表為

stu_cj

stu_cj

。
（3）請在橫線處填入合適的代碼。
Dim kh（1 To 1500）As String'存放學生考號
Dim a（1 To 1500）As Integer'存放學考成績
Dim b（1 To 1500）As Integer'存放加試成績
Dim pm（1 To 1500）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+″\cj.jye.ai″
conn.Open
Set rs.ActiveConnection=conn
rs.Open″select*from stu_cj″
List1．AddItem“考號″&″學考″&″加試″
n=0
Do While Not rs.EOF'到記錄集最后一條記錄后退出循環
n=n+1'計數
kh（n）=rs.Fields（″考號″）
a（n）=rs.Fields（″學考成績″）
b（n）=rs.Fields（″加試成績″）
List1．AddItem kh（n） &″″& a（n） &″″& b（n）
rs.MoveNext'移動到下一條記錄
Loop
rs.Close
conn.Close
Set rs=Nothing
Set conn=Nothing
End Sub
Private Sub Command1_Click （　　）
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″排名″&″考號″&″學考″&″加試“
For i=1 To n
List2．AddItem pm（i） &″″& kh（i） &″″& a（i） &″″& b（i）
Next
End Sub