如下事件过程： FunctionFeed（x） Ifx&lt;10Then Feed=x Else Feed=10＋x EndIf EndFuncti

如下事件过程：

Function Feed（x）

If x < 10 Then

Feed=x

Else

Feed=10 + x

End If

End Function

Private Sub Command1_Click（）

x=Val（InputBox（"", , 0））

pay=Feed（x）

Print pay

End Sub

运行时在输入框内输入变量x的值为15，输出结果为（）。

A．0

B．15

C．25

D．30

请帮忙给出正确答案和分析，谢谢！

参考答案

您可能感兴趣的试题

在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click（)x=InputBox（"请输入一个整

答案解析
在窗体上画一个命令按钮，然后编写如下事件过程： PrivateSubCommand1_Click（） x=0 DoUnt

答案解析
有如下事件过程： SubABD（x%,y%,z%） z%=x%＋y% EndSub PrivateSubCommand1_Click（） a%=30

答案解析
在窗体上绘制一个文本框然后编写如下事件过程:Private Sub Form_Click()x=InputBox(请输入一个

答案解析
假定有如下的命令按钮(名称为Command1)事件过程: PrivateSubCommand1_Click() x=InputB

答案解析
在窗体上画一个命令按钮然后编写如下事件过程:Private Sub Command1_Click()x=0Do Until x=-1 a

答案解析

如下事件过程： FunctionFeed（x） Ifx&amp;lt;10Then Feed=x Else Feed=10＋x EndIf EndFuncti