在窗体上画1个命令按钮,名称为Command1,然后编写如下程序:
D.im Flag As Boolean
Private Sub Command1_Click()
D.im intNum As Integer
intNum=InputBox("请输入:")
If Flag Then
Print f(intNum)
E.nd If
E.nd Sub
F.unction f(X As Integer)As Integer
If X<10 Then
Y=X
E.lse
Y=X+10
E.nd If
f=Y
E.nd Function
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
F.lag=True
E.nd Sub
运行程序,首先单击窗体,然后单击命令按钮,在输入对话框中输入5,则程序的输出结果为( )。
A.0
B.5
C.15
D.无任何输出