在窗体上画 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,则程序的输 出结果为______。