下面VB程序段运行后，文本框Text1和Label1显示的内容分别是（  ）
Private Sub Command1_Click()
Dim y As Long
Text1.Text = ""
y = f(3)
Label1.Caption = Str(y)
End Sub
Function f(n As Integer) As Long
Text1.Text = Text1.Text + Str(n)
If n <= 1 Then
f = 1
Else
f = f(n - 1) + 2
End If
End Function

A．3 2 1 和  5	B．1 2 3 和  5
C．5 和  3 2 1	D．6 和  3 2 1

（加试题）猴子选大王的问题:N 只猴子选大王，选举办法如下：从头到尾 1、2、3 报数，凡报 3 的退 出，余下的从尾到头 1、2、3 报数，还是报 3 的退出，依此类推；当剩下只有两只猴子时，不再报数，取 当前报数报 1 的为王。如五只猴子报数，则第一轮顺序为第 12345，第 3 只出列，第二轮顺序为 5421，第 2只出列；第三轮顺序为 145，第 5 只出列，这时第 1 只猴子报数为 1，则第 1 只猴子为猴王。若想当猴王， 请问最初占据什么位置？在 Text1 文本框中输入参选大王的猴子总数量，单击“猴王的位置”，在 Label2 标 签上显猴王最初的位置。VB程序运行界面如下：

实现上述功能的 VB程序如下：
（1）如果只有 10 只猴子参加本次选大王，则猴王最初的位置为：________
（2）实现上述功能的 VB程序如下，请在划线处填入合适代码。
Private Sub Command1Click()
Dim n, x, m, s As Integer   '假设参与的猴子数量不超过 5000
Dim a(1 To 5000) As Integer  '用数组 a 存储每只猴子的报数，值为 3 时视同出列
Dim t, y As Boolean    't 用于循环，y 为 true 时表示报数顺序是从头到尾，y 为 false 时报数顺序 是从尾到头
n = Val(Text1.Text)
x = 1  'x 为每次猴子的位置
m = 1  'm 为报数的 1、2、3
y = True
t = True
Do While t
'该位置的猴子是否已经出列
If a(x) <> 3 Then '没有出列的,则报数
a(x) = m
①________ '1,2,3 之后重新开始
If m > 3 Then m = 1
Else '每次有猴子报 3 出列之后，检查是否已经只有两只猴子没有出列
s = 0
For i = 1 To n
If ②________   Then s = s + 1
Next i
If s < 3 Then Exit Do
End If
If y = True Then x = x + 1 Else x = x - 1
'检查报数是在递增,还是递减,y 为 true 时递增
'报到最后一次猴子后
If x > n Then y = False: m = 1: x = n
'报到第一次猴子后
If x = 0 Then y = True: m = 1:
Loop
'输出猴王的位置
For i = 1 To n
③_________
If a(i) = 1 Then Label2.Caption = "猴王的位置为第" + Str(i) + " 只"
Next i
End Sub

有如下Visual Basic程序段：
s=0
n=1
for i="4" to 1 step -1
n=n*i
s=s+a
next i
问：该程序段运行后，
（1）共循环___________次。
（2）变量s的值是___________。

有如下VB程序：
Private Sub Command1_Click()
Dim a(5) As Integer
Randomize
For i = 1 To 5
a(i) = 2 * Int(Rnd * 3) + 1
Next i
For i = 1 To 5
r = 2 * Int(Rnd * 3) + 1
If a(r) Mod 2 = 1 Then a(r) = a(r) + 1
Next i
End Sub
该程序段运行后，a(1)~a(5)各元素的值不可能的是（   ）

A．2，5，6，1，4	B．4，1，2，3，4
C．5， 6，3，2，6	D．6，5，2，1，2

当输入21，输出结果是 。
Dim x as long
x=inputbox(“输入x的值”)
if x mod 10="1" then
if x mod 8="3" then
x=x-12
end if
else
x=x-7
end if
print x