写出下列程序的输出结果
Private Sub Command1_Click()
For i =" 1" To 4
If i Mod 3 <> 0 Then s =" s" + (-1) ^ (i + 1) * 1 / i
Next i
MsgBox s*100
End sub
该程序的运行结果是（   ）  

A．-25

B．-75

C．15

D．25

下面程序的功能是：计算表达式1×2×3×……×10的值，并在文本框Text1中输出表达式的值。为了实现这一功能，则程序中划线处的语句应更正为
（1）  
（2）  
（3）  
Private Sub Command1_Click()
Dim I As Integer, t As Long
t = 0 （1）
For i =" 1" To 10
t =" t" + i（2）
Next i
Text1.caption =" Str(" t )  （3）
End Sub

以下算法中，需要通过多重循环一一列举出解决问题的所有可能解，并在逐一列举的过程中，检验每个可能解是否是问题的真正解；而需要从实际问题中归纳出数学表达式，就此求出解；这两个算法分别是（ ）

A．穷举法、公式法	B．循环法、递归法
C．查找法、函数法	D．枚举法、解析法

过程直接或间接的调用自己，这种调用被称为（____________）调用。

   （加试题）货物搬运

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