问题
单项选择题
在窗体上画1个命令按钮，名称为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
解析：
[评析] 单击窗体在释放鼠标时，将会触发Form_MouseUp事件，将Flag值置True，从而允许输出。在Command1的Click事件中，通过输入框输入5，并在窗体上输出f(5)，函数f的作用是，如果自变量x＜10，则直接返回 x，否则返回x＋10。故本题应输出5。