现要求编写VB程序实现如下功能：在文本框Text1中输入正整数n（n为奇数），单击“生成”按钮后，在文本框Text2中会显示一个有规律的对称数字串，形成为“1 3 ...  n-2  n  n-2 ...3  1”。例如n=9时，显示的数字串为“1 3 5 7 9 7 5 3 1”。
 
（1）应用程序界面设计时，为添加按钮，就使用如左图所示的“控件工具箱”中_______（填写数字标号）；为将按钮上的字设置为“生成”，应在对应的属性窗口中______属性值修改为“生成”，根据代码可知，命令按钮“生成”的对象名是________。
（2）实现上述功能的VB程序如下。请在划线处填入合适的代码。
Private Sub Cmd1_Click()
Dim n As Integer,i As Integer,s As string
________________________
S=“”
For i=1 To n
If i<=n\2+1 Then

Else
S=s+ _______________
End if
Next i
Text2.Text=s
End Sub
(3)当n=9时，在实现程序功能的情况下，如果将程序中加框处的代码换成“s=str(2*i-1)+s”,单击“生成”按钮，其输出结果为___________________。

在Visual Basic的代码窗口中，语句List1.Clear中的Clear是（　　）

A．属性值

B．属性名

C．对象名

D．方法

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

设计一个算法，计算导弹射程之间的最大距离差。具体程序功能如下：在文本框中输入各枚导弹的射程（单位：千公里），数据之间用逗号分割，以-1结尾。单击按钮，在标签框输出结果。例如在Text1中输入“15，9，1，2，3，8，7，-1”，单击“计算”按钮，输出结果为“14”。实现该算法的VB程序如下，界面如图所示，回答下列问题：

（1）为实现该程序，在窗体中至少需要使用_______类不同的控件对象（填数字）。
（2）算法具体代码对应如下，请在横线处填入合适的语句代码，使程序完整。
Private Sub Command1_Click()
Dim a(100) As Integer
Dim max As Integer: Dim min As Integer
Dim c As Integer: Dim i As Integer: Dim j As Integer: Dim Total As Integer
Dim s As String
s = Text1.Text
i = 1 : begin = 1 : c = 0
Do While i <= Len(s)

k = Mid(s, i, 1)

If k = , Then

t = ①_________

c = c + 1
a(c) = Val(t)
begin =②__________
End If
i = i + 1
Loop
   ' 加框语句
min = a(1)
For i = 1 To c
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
Next i
Text2.Text = max - min
End Sub
（3）若删除程序中加框处语句，还是相同的输入数据，则计算出的最大差值为：_________。

小明编写了一个输出十进制与二进制数对应表的VB程序。程序运行时，单击“输出”按钮Command1后，在列表框List1中输出运行结果如第16题图所示。实现上述功能的VB代码如下，但加框处代码有错，请改正。

Dim b(4) As Integer   '数组b按位存储二进制数Private Sub pprint(m As Integer)  '本过程打印输出一行十进制数m和对应的二进制数'代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer
List1.Clear
List1.AddItem "十进制数 二进制数"
For i =" 1" To 4
b(i) = 0
Next i
For i =" 0" To 15
Call pprint(i) '打印输出一行
j =   1 '(1)
b(j) =" b(j)" + 1
Do While  b(j) =" 0" '(2)
b(j) = 0
j =" j" - 1
b(j) =" b(j)" + 1  
Loop
Next i
End Sub