在Visual Basic中，若a=4，b=3，c=10，则执行完下列语句后，变量c的值为(    )
If a+b>c Then
c=a+1
Else
c=b-1
End If

A．2

B．10

C．5

D．4

将字符串X从第2个字符截取到最后并显示。

下列关系或逻辑表达式的结果为“True”的是

A．2*2< 2+2	B．"123"+45<178
C．Not(6<>11)	D．（5 > 0) And (4 < 3)

   某学校开设多样化选修课程,学生可以根据个人兴趣和特长选择选修课｡假设每门选修课的选课人数不超过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.AC

A．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)程序中②划线处应填入____________________________｡

在计算平均重量x时，结果中产生了8位小数，若要对x保留一位小数，并对第二位小数四舍五入，则下列表达式中正确的是（ ）。

A．Int（x + 0.5）

B．Int（x * 100 + 0.5）/ 100

C．Int（x * 10）/___1___

D．Int（x * 10 + 0.5）/ 10