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

xkqk

xkqk

．
（2）請(qǐng)?jiān)跈M線處填入合適的代碼．①

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)計(jì)學(xué)生總數(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''班級(jí)''+''''+''選技術(shù)占比''
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''
此處代碼略，代碼實(shí)現(xiàn)將學(xué)生班級(jí)信息存儲(chǔ)到數(shù)組cinfo中，選考科目存儲(chǔ)到數(shù)組subj中
For i=1 To n

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

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

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

③num（i）＞0

③num（i）＞0

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