题目内容
（请给出正确答案）
如下事件过程： Function Feed(x) If x ＜10 Then Feed=X Else Feed=10+x End If End Function Private Sub Command1_Click() x=Val(Input Box(" "，0)) pay=Feed(x) Print pay End Sub 运行时在输入框内输入变量x的值为15，输出结果为
A．0
B．15
C．25
D．30
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“如下事件过程： Function Feed（x) If x ＜10 Then Feed=X Else Feed=10+x End I”相关的问题
在窗体上有一个命令按钮Command1，通用过程fun和命令按钮的事件过程如下：
Private Function fun(ByVal m As Integer)
Ifm Mod2=0 Then
fun=2
Else
fun=1
End If
End Function
Private Sub Command1_Click()
Dim i As Integer,s As Integer
s=0
For i=1 To 5
s=s+fun(i)
Next
Prints
End Sub
程序运行后，单击命令按钮，则窗体上输出()。
A．6
B．7
C．8
D．9
有如下事件过程： Function UNC (ByVal x As Integer，ByVal y As Integer) As Integer Do While y＜＞0 sic=x/y x=y y=sic Loop UNC=x End Function 以下是该函数的调用过程，该程序的运行结果是 PriVate Sub COmmand1_Click() Dim a As Integer Dim b As Integer a=12 b=2 x=UNC (a，B)Print x End Sub
A．0
B．6
C．2
D．80
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Call sub1(-15.1,2.54) End Sub Public Function sub1(a As Integer,ByVa1 b As String) As Integer a＝Val(B)sub1=a Print sub1 End Function 程序运行后，单击命令按钮，在窗体上输出的是
A．3
B．2
C．-15
D．提示出错
如下事件过程：
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
窗体中有命令按钮Command1，事件过程如下：
Public Function f(x As Integer)As Integer
Dim y As Integer
x=20
y=2
f=x*Y
End Function
Private Sub Command 1_Click()
Dim y As Integer
static x As Integer
x=10
y=5
y=f(x)
Debug.Print x；y
End Sub
运行程序，单击命令按钮，则立即窗口中显示的内容是()。
A．10 5
B．10 40
C．20 5
D．20 40
窗体上命令按钮Commandl的事件过程如下：
Private Sub Command1_Click()
Dim total As Integer
total=s(1)+s(2)
Print total
End Sub
Private Function s(m As Integer)As Integer
Static x As Integer
For i=1 To m
x=x+1
Next i
s=x
End Function
运行程序，第3次单击命令按钮Command1时，输出结果为【 】。
有如下函数:Private Function firstfunc(x As Integer, y As Integer) As Integer Dim n As Integer Do While n ＜= 4 x=x +y n=-+1 Loop firstfunc = x End Function调用该函数的事件过程如下:Private Sub Command1_lick() Dim x As Integer Dim y As Integer Dim n As Integer Dim z As Integer x=1 y=1 For n = 1 To 3 z = firstfunc(x, y) Next n Print z End Sub该事件过程的执行结果是 ______。
A．1
B．3
C．16
D．9
在窗体上有一个命令按钮Command1，通用过程fun和命令按钮的事件过程如下： Private Function fun(ByVal m As Integer) If m Mod 2 = 0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Cliek() Dim i As Integer, s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，则窗体上输出()。
A．6
B．7
C．8
D．9
在窗体上有一个命令按钮Commandl，通用过程fun和命令按钮的事件过程如下： Private Function fun(By m As Integer) If m Mod 2=0 Then fun=2 Else Fun=1 Else If End Funcion Private Sub Commandl_Click() Dim i Integer,s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，则窗体上输出A.6 B.7 C.8 D.9
(6）在窗体上有1个名称为Command 1的命令按钮，并有如下事件过程和函数过程：
Private Sub Command 1_Click()
Dim p As Integer
p＝m(1）＋m(2)＋m(3）
Print p
End Sub
Private Function m(n As Integer) As Integer
Static s As Integer
For k＝1 To n
s＝s＋1
Next
m=s
End Function
运行程序，单击命令按钮Command 1的输出结果为【6】。
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
