（加试题）王老师在使用 VB 程序要实现 n! 的功能。
Private Sub Command1_Click()
Dim p As Integer
Dim sum As Long
　p = Val(Text1.Text)
　sum = fx(p)
　Text2.Text = CStr(sum)
End Sub
Function fx(x As Integer) As Long
　If x = 1 Then
　　  fx = 1
　Else
　　  fx =____________________
　End If
End Function
要该程序实现此功能，横线处的代码为（　　）

A．x(x)*(x-1)

B．fx(x)*x

C．fx(x-1)*x

D．fx(x-1)*(x-1)

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

下列程序执行后，整型变量n的值为（   ）。
n=0
for i="1" to 100
if i mod 4="0" then
n="n+1"
end if
next i

A．5050

B．25

C．26

D．33

   （加试题）货物搬运

平地上有两叠货物需要搬运到别处，期中一叠有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）在程序画线①处应填入________________________；
在程序画线②处应填入________________________；
在程序画线③处应填入________________________。

某VB程序段如下：
Function f (n As Integer) As Long
If n = 1 Then
f = 5
Else
f= 2*f(n-1) – 3
End If
End Function
Private Sub Command1_click()
Dim n As Integer
n = Val (Text1.Text)
Text2. Text = Str(f(n))
End Sub.
该程序段运行后，在文本框Text1中输入5，单击命令按钮Command1后，文本框Text2中显示的是（ ）

A．18

B．35

C．63

D．123