下面程序执行的结果是（  ）
Private Sub Form_Load()
A="123":B="456"
C=Val(A)+Val(B)
Print C\100
End Sub

A．123

B．3

C．5

D．579

小张设计了一个“加减运算练习”VB程序。界面如下图所示。单击“出题”Command1按钮显示两个运算数和运算符号，并计数。在文本框Text1中输入计算结果后单击“判断”按钮Command2，如果计算结果正确，则得分加10分，直至完成10题测试。VB程序如下，但加下划线处代码有错，请改正。

Dim n,s As Integer    'n为试题计数器,s为得分
Dim a, b As Integer  'a，b 为两个运算数
Dim c As String 'c为运算符："+ "表示加法，"-"表示减法
Private Sub Form_Load()
n = 0:
s = 0
End Sub
Private Sub Command1_Click()   ‘出题按钮
Randomize
n =" n" + 1
If n < 11 Then
Label1.Caption = "No：" + Str(n)
a =" Int(Rnd" * 100)  'a，b为运算数，且要求a不小于b
b =" Int(Rnd" * 100)
If   a > b   Then t =" a:" a =" b:" b = t '(1)
If  Rnd > 0.5  Then c = "+" Else  b = "-" '(2)
Label5.Caption =" Str(a)" + c + Str(b) + "="
Text1.Text = ""
Else
Command1.Caption = "完成测试"
End If
End Sub
Private Sub Command2_Click()   ‘判断按钮
If c = "+" Then
If  a + b =" Val(Text1.Text)" Then  s =" s" + 10
Else
If  a + b =" Val(Text1.Text)" Then  s =" s" + 10    '(3)
End If
Label3.Caption = "得分:" + Str(s)
End Sub

某算法的部分流程图如图所示，执行这部分流程，输入n的值为5，则输出值依次为

A．4，16

B．4，5

C．5，16

D．5，5

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

代数式 的VB表达式为（   ）。

A．（2*a）/c+d

B．2a/(c+d)

C．2*a/(c+d)

D．（2a）/（c+d）