有如下一个函数过程:
Function Fun(a As Integer)
Static c
b=0:b=b+1:c=c+1
Fun=a+b+c
End Function
在窗体上添加一个命令按钮,事件过程如下:
Private Sub Command1_Click()
Dim a As Integer
a=2
For i=1 To 3
Print Fun(a);
Next
End Sub
运行该程序,单击命令按钮,输出结果是
A．4 4 4
B．4 5 6
C．6 7 8
D．4 7 9
如搜索结果不匹配，请 联系老师 获取答案
更多“有如下一个函数过程: Function Fun（a As I…”相关的问题
第1题
有如下一个函数过程： Function Fun(a As Integer) Static c b=0：b=b+1：c=c+1 Fun=a+b+c End Function 在窗体上添加一个命令按钮，事件过程如下： Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 3 Print Fun(a)； Next End Sub 运行该程序，单击命令按钮，输出结果是
A．4 4 4
B．4 5 6
C．6 7 8
D．4 7 9
第2题
有如下一个函数过程： Function Fun(a As Integer) Static C b=0:b=b+1:c=c+1 Fun=a+b+c End Function 在窗体上添加一个命令按钮，事件过程如下： Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 3 Print Fun(a)； Next End Sub 运行该程序，单击命令按钮，输出结果是
A．4 4 4
B．4 5 6
C．6 7 8
D．4 7 9
第4题
有如下一个Sub过程： Sub mlt(ParamArray numbers()) n=1 For Each x In numbers n=n*x Next x Print n End Sub 在一个事件过程中如下调用该Sub过程： Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer a=1 b=2 c=3 d=4 mlt a,b,c,d End Sub 该程序的运行结果为()。
A．12
B．24
C．36
D．48
第5题
有如下一个Sub过程： Sub mlt (ParamArray numbers()) n=1 For Each x In numbers n=n * x Next x Print n End Sub在一个事件过程中如下调用该Sub过程： Private Sub Coinmand1_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer a=1 b=2 c=3 d=4 mlt a，b，c，d End Sub 则运行该程序，结果为______。
A．12
B．24
C．36
D．48
为了保护您的账号安全，请在“赏学吧”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
微信搜一搜
赏学吧
微信搜一搜
赏学吧
.jpg)
运行该程序，单击命令按钮，输出结果是______。
