题目

某学校开设多样化选修课程，学生可以根据个人兴趣和特长选择选修课｡假设每门选修课的选课人数不超过40，学生选课的相关信息存放在数据库文件“student.accdb”的data 表中，选课查询程序运行时界面如图所示｡ 程序功能:在文本框Text1中输入课程号,单击“查询”按钮Command1，在列表框List1中显示选修本课程的学生信息｡如果没人选修该课程显示“该课程当前无人报名”｡ 按此要求将程序补充完整｡ Private Sub command1_click() Dim xh(1 to 40),xm(1 to 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+“ \      ①           ”                 ‘打开到数据库的链接 conn.Open strSQL=”select xh,xm from     ②     where    ‘课程&(Text1.Text)&’” ‘设置查询的SQL 语句 Set rs.ActiveConnection =conn   ‘设置rs的ActiveConnection属性,指定与其关联的数据库链接  rs.Open strSQL    ‘打开记录集，将从表student中读取的结果集保存到记录集rs中  List1.Clear  num=0  Do while not rs.EOF  num=num+1   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 list1.additem xh(i)+””+xm(i) Next i     if num=0 then list1.additem(“该课程当前无人报名”) End Sub （1） 程序中①划线处应填入｡ （2） 程序中②划线处应填入｡ 答案： 【1】student.accdb 【1】data

查看本题答案和解析