某学校开设多样化选修课程，学生可以根据个人兴趣和特长选择选修课．假设每门选修课的选课人数不超过40，学生选课的相关信息存放在数据库文件“student.jye.ai”的data表中，选课查询程序运行时界面如图所示．
程序功能：在文本框Text1中输入课程号，单击“查询”按钮Command1，在列表框List1中显示选修本课程的各学生信息．如果没有找到，在列表框中显示“该课程当前无人报名”．按此要求将程序补充完整．
Private Sub Command1_Click （　　）
Dim xh（1to 40），xm（1to 40）As String'学号和姓名的数组
Dim i,num as integer
Dim conn As New ADODB．Connection,rs As New ADODB．
Recordset
Dim strSQL As String
conn.ConnectionString=“Provider=Microsoft.ACE．OLEDB.12.0；DataSource=”+App.Path+“\student.jye.ai”'打开到数据库的链接
conn.Open
strSQL=“select xh,xm from data where课程=‘&（Text1．Text）&’”'设置查询的SQL语句
Set rs.ActiveConnection=conn'设置rs的ActiveConnection属性，指定与其关联的数据库链接
rs.OpenstrSQL'打开记录集，将从表data中读取的结果集保存到记录集rs中
List1．Clear
num=0
DO while not rs.EOF

num=num+1

num=num+1

xh（num）=rs.Fields（“xh”）
xm（hum）=rs.Fields（“xm”）
rs.MoveNext
loop
rs.Close
conn.close
set rs=nothing
set conn=nothing
For i=1to num

List1．additem （xh（i））+“”+xm（i）

List1．additem （xh（i））+“”+xm（i）

Next i
if num=0then
List1．additem（“该课程当前无人报名”）
End Sub
（1）程序中①横线处应填入

num=num+1

num=num+1

．
（2）程序中②横线处应填入

List1．additem （xh（i）+“”+xm（i））

List1．additem （xh（i）+“”+xm（i））

．