将一个十进数转化为任意进制可以采用“除权取余法”。方法是：a 为十进制数，n 为转化的 进制，从 a 开始循环除以 n，记下余数，整数商作为新的 a 继续除以 n ，直到 a=0 为止。然后 倒序取余数即可。余数 k 如果为 10<=k<=15，用字母依次记作“ABCDEF”，比如 k=10，记作 A。该 程序界面如下图所示，在文本框 Text1 中输入一个任意十进制数，在文本框 Text2 中输入要转换 的进制，单击“开始转换”按钮后，对应的进制数在文本框 Text3 中显示。

（1）代码“Private Sub Command1_Click()”中的 Click 是_________。（单选，填字母：

A．对象名/

B．属性名/

C．事件名）

（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_click()
Dim a As Integer, n As Integer, k As Integer, b As String
Const m = "0123456789ABCDEF"
a = Val(Text1.Text)
①_________
Do While   ②_________
k = a Mod n   '求 a 的余数
a = a \ n
b =③__________ + b
Text3.Text = b
Loop
End Sub
（3）在实现程序功能后，在 Text1 中输入 “16”，在 Text2 中输入 “16”，Text3 显示的内容是____

窗体的标题属性是_______。

A．NAME

B．CAPTION

C．LEFT

D．TOP

在VB窗体中有一个对象，该对象的属性窗口如图所示，下列说法不正确的是(   )

A．Interval为属性名

B．1680为属性值

C．该对象的名称为Timer1

D．根据“Timer1 Timer”可判断窗体名为Timer

   某学校开设多样化选修课程,学生可以根据个人兴趣和特长选择选修课｡假设每门选修课的选课人数不超过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)程序中②划线处应填入____________________________｡

在程序代码中，“对象名.方法名”可以是一个完整的语句，但“对象名.属性名”不是一个完整的语句（）