（加试题）王老师在使用 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)

第1次，将1张正方形纸片沿垂直和水平中线对折后撕开，变成4张纸片，第2次，从4张纸片中取其中1张纸片也照上面方法撕开，变成7张纸片，一直这样下去。描述计算撕了n次后纸片总数s的算法部分流程图如下图所示：

空白矩形框中应该填入的是 (   )

A．s←s+2

B．s←s+3

C．s←s+j

D．s←s*3

以下语句运行后变量c的值是（ ）
a=”2009”
b=”2008”
c=Val(a)+Val(b)

A．2009+2008

B．4017

C．”20092008”

D．20092008

以下流程图的功能是：求1*3*5*7……*97*99的值，为完成该功能，空白处应填写的内容是（ ）。

A．i>49

B．i>=49

C．i>=99

D．i>99

下面程序的功能是：找出10以内的奇数中能被3整除的正整数，并将它们累加起来。为了实现这一目标，请完善下列程序：
x=0
For i=1 to 10 step ____
If _______________________ then x=x+i
Next i