个位数字是6，且能被3整除的3位数共有多少个？下面程序用于解决这一问题，在划线处填入合适的语句或表达式，设共有n个这样的数，Visual Basic程序如下：
Sub Command1_Click()
Dim i As Integer, n As Integer
m = 106
n = __________
Do While m <= 996
If _______________________ Then n =" n" + 1
m=m+10
Loop
Text1.Text = Str(n) zxxk
End Sub

在窗体上画一个命令按钮Command1，然后编写如下代码：
Private Sub Command1_Click()
Dim arr1(10)，arr2(10) As Integer
n＝3
For i＝1 To 5
arr1(n)＝i
arr2(i)＝2*arr1(n)＋1
Next i
Print arr1(n)，arr2(n)；
End Sub
程序运行后，单击命令按钮，输出结果是________。
解析 本题考查的是循环结构。i的初值为1，终值为5，步长为1。

i	arr1(n)	arr2(i)
1	arr1(3)＝1	arr2(1)＝2*1＋1
2	arr1(3)＝2	arr2(2)＝2*2＋1
3	arr1(3)＝3	arr2(i)＝2*3＋1
4	arr1(3)＝4	arr2(i)＝2*4＋1
5	arr1(3)＝5	arr2(i)＝2*5＋1
6	/

循环执行结束后n为3，执行最后一次循环arr1(3)＝5；arr2(3)＝7。

某校教务处安排选考科目考场办法是这样的：依据上次的考试名次由小到大把考生安排到各考场（考场号从 1 开始编号），每个考场 35 人，7 行 5 列，S 形排列｡为方便教务人员快速将每次考试每科考场座位表打印出来，技术组老师利用VB 编写了一个程序，相关信息､程序界面及代码如下，为实现上述功能，请回答以下问题：
（1）根据程序代码可以知道，安排考场的原始数据来自_______________数据库的_______________数据表｡
（2）完善①②③处程序代码｡

Dim xm (1 To 1000) As String, dayinkm (1 To 1000) As String
Dim zuhe(1 To 1000) As String,mc(0 To 1000) As Integer, n As Integer
Private Sub Command1_Click()
Dim conn As New ADODB. Connection  'conn 是数据库链接对象
Dim rs As New ADODB. Recordset   'rs 是数据记录集对象
conn. Open "Provider=Microsoft. Jet. OLEDB. 4. 0;Data Source=" & App. Path & "\xk. accdb" & ";"
Jet OLEDB:Database Password=""
strSQL = "SELECT∗FROM 2019xk"
' 考号､姓名信息存放在 xm 数组;7 选 3 选课组合存放 zuhe 数组;名次存放 mc 数组,代码略
Label3. Caption = "共有" + Str(n) + "人" 
' 学生总人数存放变量 n 中
End Sub
' 下面代码是:先按名次升序排序,再筛选要打印的学科到数组 xinkm
Private Sub Command2_Click()
Dim xk(1 To 7) As Integer,t As String
For i =①_________
t1 = mc(i): t2 = xm(i): t3 = zuhe(i): j = i- 1
Do While t1 < mc(j)
mc(j + 1) = mc(j): xm(j + 1) = xm(j): zuhe (j + 1) = zuhe(j)
j = j - 1
Loop
mc(j + 1) = t1: xm(j + 1) = t2: zuhe(j + 1) = t3
Next i
'将排序后的数据输出到列表框 list1 中,代码略km = "物理化学生物政治历史地理技术":dykm =
Text1. Text
For i = 1 To 7
If②__________Then kmh = i: Exit For
Next i
k = 1
For i = 1 To n
For j = 1 To 3
If dykm = Mid(zuhe(i), 2 ∗ (j - 1) + 1,2) Then
xk(kmh) = xk(kmh) + 1
dayinkm(k) = xm(i)
k = k + 1
End If
Next j
Next i
Label2. Caption = "选考" + dykm + "学科共有" +Str(xk(kmh)) + "人"
End Sub
'将数组 dayinkm 中的数据按考场 S 形输出
Private Sub Command3_Click()
Dim kc As Integer
Dim p As Integer, q As Integer
Dim i As Integer, num As Integer, ks As Inte⁃
ger
List2. Clear
List2. AddItem "讲台"
List2. AddItem "----------"
p = 7: q = 5: kc = Val(Text2. Text)
ks = q ∗ p ∗ (kc - 1)
For i = 1 To p
ks = ks + 1
s = " " + xinkm(ks)
For j = 1 To q - 1
If j Mod 2 = 1 Then
③_________
Else
num = ks + p ∗ j
End If
If num > n Then
s = s + "  "
Else
s = s + "  " + xinkm(num)
End If
Next j
List2. AddItem s
List2. AddItem "----------"
Next i
End Sub

把学生成绩由高到低排序后，按姓名在前、成绩在后的顺序依次存储在数组a中。例如（“张三”“97” “李四”“92” “王五”“87”，……）。设计一个VB程序，利用对分查找思想实现在数组a中查找成绩为Key的学生姓名。程序段如下：
i=1:j=n  'n代表学生的数量
Key=Val(Text1.Text)
Do While i<=j
m=
If Val(a(m))>Key Then i=m\2+1 Else j=m\2-1
Loop
List1.Clear
j=j+1
Do While i<=n

If Val(a(2*j))=Key Then List1.AddItem a(2*j-1)+""十a(2*j)

Else exit do

j=j+1

Loop
上述程序中方框处可能的语句是（   ）

A．(i+j)\2

B．(i+h)/2

C．((i+j)12)*2

D．((i+j)\2)/2

现要求编写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”,单击“生成”按钮，其输出结果为___________________。