患者，女性，36岁。阑尾炎切除术后3d肠蠕动仍未恢复，为减轻腹胀，最简单、有效的措施是

A．鼓励下床活动
B．胃肠减压
C．腹部热敷
D．肛管排气
E．腹部环形按摩

在窗体上画1个命令按钮，名称为Command1，然后编写如下程序：
Dim Flag As Boolean
Private Sub Command1_Click()
　　Dim intNum As Integer
　　intNum=InputBox("请输入：")
　　If Flag Then
　　　Printf(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．无任何输出