如下程序段运行后，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

下列VB程序中，f是一个递归函数：
Private Sub Command1_Click()
Dim y As Integer
y = Val(Text1.Text)
Label1.Caption = Str(f(y))
End Sub
Function f(n As Integer) As Integer
If (n =" 1)" Or (n =" 2)" Then
f = 1
Else
f =" f(n" - 1) + f(n - 2)
End If
End Function
程序运行时，在文本框中输入8，单击命令按钮Command1后，Label1中显示的内容是：（）

A．5

B．8

C．13

D．21

辗转相除法，又名欧几里德算法（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

有如下VB程序段
X=0
For i =" 1" to 8 step 2
X=x+i
Next i
该程序段执行后，变量x的值是（   ）

A．9

B．16

C．25

D．36

   （加试题）货物搬运

平地上有两叠货物需要搬运到别处，期中一叠有a个货物，另一叠有b个货物(0<a≤5,0<b≤5）。每次只能从其中一叠搬走位于最上方的货物。小明编写了一个VB程序，用于计算搬运货物的方案数。小明请教了数学老师，得知方案数

运行界面如图所示：

随后，小明编写了如下程序段：
Private Sub calculate_Click()
Dim a As Integer
Dim b As Integer
Dim c As Long
a = Val(Text1.Text)
b = Val(Text2.Text)
c =fa(a, a + b)
_____①______
End Sub
Function fa(m As Integer, n As Integer) As Long
_____②_____
End Function
Function jc(x As Integer) As Long
If x = 1 Then
jc = 1
Else
jc = x * __ ___③__ ___
End If
End Function
（1）程序段Function jc部分主要采用了_______________算法；
（2）在程序画线①处应填入________________________；
在程序画线②处应填入________________________；
在程序画线③处应填入________________________。