已知斐波那契数列前8项是1,1,2,3,5,8,13,21,设计如下VB程序求其第n 项的值:
Dim a(1 to 1000)as long,n as integer
n=Val(Text1.Text)
a(1)= 1:a(2)= 1
For i=3 to n
a(i)= a(i-1)+a(i-2)
Next i
Label1.Caption=“斐波那契的第”&Str(n)&“是”&a(n)
该程序用到了下列哪一个算法(  )

A．枚举算法

B．递归算法

C．排序算法

D．查找算法

如下程序段运行后，k的值是   
Dim d(1 to 5)  As Integer
k=0
For i="1" to 5
d( i )=i
If d( i )>k Then k="d(" i )
Next i
Print k

辗转相除法，又名欧几里德算法（Euclidean algorithm），是求两个正整数最大公约数的算法。它是已知最古老的算法之一，其可追溯至3000年前。用辗转相除法来得一个分数的约分后的最简形式的算法如下：

第一步：设两数为a、b，且令a>b；
第二步：a÷b，令r为所得余数，若r=0，算法结束，b 即为最大公约数；若r>0则a←b，b←r，并返回第二步；
第三步：即为约分后的最简形式。
编写VB程序，程序运行界面如第6题图1所示，请根据算法将下列程序补充完整。
Private Sub Command1_Click()
Dim a As Integer, b As Integer, r As Integer 'a、b为分子和分母，r为最大公约数
a = Val(Text1.Text)
b = Val(Text2.Text)
If b =" 0" Then c = MsgBox("分母不能为0"): Exit Sub
'如果分母为0，则提示“分母不能为0”并退出该过程
r = ① （3分）
Text3.Text =" Str(a" / r)
Text4.Text =" Str(b" / r)
End Sub
Function gys(ByVal m As Integer, ByVal n As Integer) As Integer
'gys函数用于求最大公约数
Dim s As Integer
If m < n Then
t =" m:" m =" n:" n = t
End If
Do While n <> 0
s =" m" Mod n
m = n
n = s
Loop
② （3分）
End Function

求输入的两个自然数的最大公约数。如输入48和36则输出最大公约数为12，为其中的空白处选择合适的选项（    ）。

A．输出 a

B．输出 b

C．输出 r

D．输出 a / b

某VB程序使用了递归函数，代码如下：
Private Sub Command1_Click()
N= val(Text1.Text)

Text2.Text = f(n)

 End Sub
Function f(x As Integer) As String
Dim t as integer

If x = 1 Then  t = 1  Else  t = val(f(x - 1)) + 2

f=str(t)

 End Function
在文本框Text1中输入3，运行程序并点击按钮Command1后，文本框Text2中显示的内容是（   ）

A．1

B．5

C．135

D．531