问题
单项选择题
在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：
Dim Flag As Boolean
Private Sub Command1_Click()
Dim intNum As Integer
intNum=InputBox("请输入:")
If Flag Then
Print f(intNum)
End If
End Sub
Function f(X As Integer) As Integer
If X＜10 Then
Y=X
Else
Y=X+10
End If
f=Y
End Function
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Flag=True
End Sub
运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为
A．0
B．5
C．15
D．无任何输出
答案
参考答案：B
解析： 单击窗体，引发窗体的MouseUp事件，Flag的值变为True。单击命令按钮时，接收输入5，由于Flag为True，执行Print f(intNum)语句，f()函数内执行第一个分支将X赋值给Y，并且函数的返回值为Y，所以输出的值是5。