模拟一个简单计算器，输入两个数和一个运算符（加、减、乘、除），进行算术运算，并输出运算结果。程序界面如图所示，在文本框Text1输入第一个数a，在文本框Text2输入第二个数b，在文本框Text3输入运算符ch，在文本框Text4中输出结果。

当输入的运算符不是加、减、乘、除四种运算符时，则输出“运算符不正确”；当进行除法运算时，如果除数为0，提示输出“除数不能为零”。
（1）若想要在程序启动时清空文本框Text4中显示的内容，需要在Form_Load()中添加________（单选，选填字母：

A．Text4.Caption=""

B．Text4.Text=""

C．Text4.Clear）语句。

（2）相应的Visual Basic程序如下，在①、②、③划线处，填入合适的语句或表达式，把程序补充完整。
Private Sub Command1_Click（）
Dim a As Single, b As Single, ch As String
a = Val(Text1.Text)
b = Val(Text2.Text)

 ①______

    If ch = "+" Then
Text4.Text = Str(a + b)
ElseIf ch = "*" Then
Text4.Text = Str(a * b)
ElseIf ch = "-" Then
Text4.Text = Str(a - b)
ElseIf ch = "/" Then
If ②__________Then Text4.Text = Str(a / b) Else Text4.Text = "除数不能为零"
Else

③____

    End If
End Sub

有如下Visual Basic程序段：
a="2"
b=5
c=4
If a>b or c<b Then m="a-b" Else m=b-c
该程序段运行后,变量m的值为_______。

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

某算法流程图如图所示，该算法实现的功能为（）

A．交换x,y两数的值

B．求x,y两数最大值

C．求x,y两数最小值

D．以上都不对

（加试题）有如下VB程序段：
Private Sub Command1_Click()
Dim a(0 To 9) As Integer
Dim t as Long
t = Val(Text1.Text)
Do While t <> 0
a(t Mod 10) = a(t Mod 10) + 1
t = t \ 10
Loop
For i = 0 To 9
If a(i) <> 0 Then x = x + a(i)
Next i
End Sub
若在文本框 Text1 中输入 3141592，则程序执行后，变量 x 的值为( )

A．1

B．2

C．5

D．7