某學校開設多樣化選修課程，學生可以根據(jù)個人興趣和特長選擇選修課．假設每門選修課的選課人數(shù)不超過40，學生選課的相關信息存放在數(shù)據(jù)庫文件“student.jye.ai”的data表中，選課查詢程序運行時界面如圖所示．
程序功能：在文本框Text1中輸入課程號，單擊“查詢”按鈕Command1，在列表框List1中顯示選修本課程的名學生信息．如果沒有找到，在列表框中顯示“該課程當前無人報名”．按此要求將程序補充完整．
 
 Private Sub command1_click （　?。?br />Dim xh（1 to 40），xm（1 to 40）As String'學號和姓名的數(shù)組
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；Data Source=“+App.Path+“\student.jye.ai“'打開到數(shù)據(jù)庫的鏈接
 conn.Open
strSQL=“select xh,xm from data where'課程=&（Text1．Text） &'“'設置查詢的SQL語句
 Set rs.ActiveConnection=conn'設置rs的ActiveConnection屬性，指定與其關聯(lián)的數(shù)據(jù)庫鏈接
  rs.Open strSQL'打開記錄集，將從表student中讀取的結果集保存到記錄集rs中
  List1．Clear
num=0
Do while not rs.EOF①
      xh（num）=rs.Fields（“xh“）
      xm（num）=rs.Fields（“xm“）
  rs.MoveNext
loop
rs.Close
  conn.close
set rs=nothing
set conn=nothing
For  i=1 to num
②
Next i
if num=0 then list1．additem（“該課程當前無人報名“）
End Sub
（1）改程序打開數(shù)據(jù)庫鏈接的數(shù)據(jù)庫名是

student.jye.ai

student.jye.ai

（2）程序中①橫線處應填入

num=num+1

num=num+1

（3）程序中②橫線處應填入

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

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

．