在窗体上画一个名称为Coramandl的命令按钮,然后编写如下程序; Dim SW As Boolean Function func(X As Integer)As IntegerIf X<20 Then Y=XElse Y=20+XEnd Iffunc=Y End Function Private Sub Form_MouseDown(Button As Integer,Shift As Integer, X As Single, Y As Single)Dim a As BooleanSW=False End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer, X As Single, Y As Single)SW=True End Sub Private Sub Command1_Click()Dim intNum As IntegerintNum=InputBox("")If SW Then Print flmc(intNum)End If End Sub 程序运行后,单击命令按钮,将显示一个输入对话框,如果在对话框中输入25,则程序的执行结果为
A.输出0
B.输出2
C.输出45
D.无任何输出