题目

某学校开设多样化选修课程，学生可以根据个人兴趣和特长选择选修课。假设每门选修课的选课人数不超过40，学生选课的相关信息存放在数据库文件“student.accdb”的data表中，选课查询程序运行时界面如第16题图所示。 程序功能：在文本框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;Data Source=" + App.Path + "\student.accdb"     '打开到数据库的链接  conn.Open strSQL ="select xh,xm from data where '课程=&(Text1.Text) & '" '设置查询的SQL语句  Set rs.ActiveConnection = conn      '设置rs的ActiveConnection属性，指定与其关联的数据库链接   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） 程序中①划线处应填入。 （2） 程序中②划线处应填入。 答案： 【1】num=num+1 【1】list1.additem xh(i)+ ""+ xm(i)

查看本题答案和解析