小林编写了一个统计高三16个班级选考技术人数占比的VB程序．运行界面如图所示，窗体加载时，从数据库中调用数据，统计各班选考技术的人数占比，并在列表框List1中显示“班级”和“选技术占比”．单击“排序”按钮Command,数据按选技术占比降序排序，在List2中显示排序结果．实现上述功能的VB程序如下，请回答下列问题：
（1）分析程序，可知调用的数据表的名称为

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用于统计学生总数
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 （　　）
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''
此处代码略，代码实现将学生班级信息存储到数组cinfo中，选考科目存储到数组subj中
For i=1 To n

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

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

’将各班人数存储到数组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（　　）返回指定位数进行四舍五入的数值
List 1．AddItem ads（class（i），3）+''''+ads（rate（i），7）+''%''
Next i
’ads（　　）整数转换长度固定的字符串
Function ads （x As Integer,n  As Integer）As String
代码略
End Function.