小林編寫了一個統(tǒng)計高三16個班級選考技術人數(shù)占比的VB程序．運行界面如圖所示，窗體加載時，從數(shù)據(jù)庫中調(diào)用數(shù)據(jù)，統(tǒng)計各班選考技術的人數(shù)占比，并在列表框List1中顯示“班級”和“選技術占比”．單擊“排序”按鈕Command,數(shù)據(jù)按選技術占比降序排序，在List2中顯示排序結果．實現(xiàn)上述功能的VB程序如下，請回答下列問題：
（1）分析程序，可知調(diào)用的數(shù)據(jù)表的名稱為

xkqk

xkqk

．
（2）請在橫線處填入合適的代碼．①

2 to 16-i

2 to 16-i

、②

num（cinfo（i））=num（cinfo（i））+1

num（cinfo（i））=num（cinfo（i））+1

、③

num（i）＞0

num（i）＞0

Dim n As Integer,i As  Integer,j As Integer'變量n用于統(tǒng)計學生總數(shù)
Dim rate（l  To 16）As Integer,num（1 To 16）As Integer,class （1 To 16）As  Integer
Dim tech （1 To 50）As Integer,cinfo（1 To 5000）As lnteger,subj（1 To 5000）As String
Private　Sub　Command1_Click （　?。?br />Dim i As Integer,As Integer,s As Integer
For i=1 To 15
For j=

①2 to 15-（i-1）或者2 to 16-i

①2 to 15-（i-1）或者2 to 16-i

If rate（j）＞rate （j-1）Then
t=rate （j）：rate（j）=rate（j-1）：rate（j-1）：=t
s=class（j）：class（j）=class（j-1）：class（j-1）=s
End If
Next j
Next i
List2：AddItem''班級''+''''+''選技術占比''
For i=1 To 16
List2．AddItem ads（class（i），3）+''''+ads（rate（i），7）+''%''
Next i
End Sub
Private Sub Form_-Load（　　）
Dim conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
conn.ConnectionString=''Provider=Microsoft.ACE．OLEDB.12.0DATA Source=''&
App.Path&''\stuimfo.jye.ai''
conn.open
Set rs.ActiveConnection=conn
rs.open''SELECT*FROM xkqk''
此處代碼略，代碼實現(xiàn)將學生班級信息存儲到數(shù)組cinfo中，選考科目存儲到數(shù)組subj中
For i=1 To n

②num（cinfo（i））=num（cinfo（i））+1

②num（cinfo（i））=num（cinfo（i））+1

’將各班人數(shù)存儲到數(shù)組num中
Next i
For  i=1 To 16
class （i）=i
If

③num（i）＞0

③num（i）＞0

Then
If subj（j）=''技術''Then
tech（i）=tech（i）+1
End If
End If
Next  j
rate（i）=Round（tech（i）/num（i）*100，2）
’Round（　?。┓祷刂付ㄎ粩?shù)進行四舍五入的數(shù)值
List 1．AddItem ads（class（i），3）+''''+ads（rate（i），7）+''%''
Next i
’ads（　?。┱麛?shù)轉換長度固定的字符串
Function ads （x As Integer,n  As Integer）As String
代碼略
End Function.