以下程序，单击按钮 Command1后，其结果是（    ）
Private Sub Command1_Click()

Dim a As Integer, b As Integer

a = 5: b = 3

Print work(a, b)

End Sub
Function work(x As Integer, y As Integer) As Integer

If (x < y) Then

work = 0

Exit Function

End If

If (y = 0) Then

work = 1

Exit Function

End If

work = work(x - 1, y - 1) + work(x - 1, y)

End Function

A．8

B．9

C．10

D．11

模拟一个简单计算器，输入两个数和一个运算符（加、减、乘、除），进行算术运算，并输出运算结果。程序界面如图所示，在文本框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

若依次输入2、5、-4、0、6、9、-2，以下流程图描述的算法执行结果为（   ）。

A．-6

B．3

C．16

D．28

阅读如下Visual Basic程序，
Function f(n As Integer, r As Integer) as integer
If n <> 0 Then
f =" n" \ r
End If
End Function
Private Sub Command1_Click()
Print f(10, 8)
End Sub
程序的运行结果是（   ）

A．8

B．10

C．2

D．1

为求s=2+4+8+16+32的和，流程图不能实现，需作一处适当更改。请选出你认为错误的标号并做更改。标号   处更改为    。