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

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

17

17

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

stu_cj

stu_cj

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