某电建集团公司承接了2×1000MW发电机组建设工程，其中主体工程由该集团公司承建，其他辅

有如下函数: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

设有如下程序代码： Private Function Fc(ByVal n As Integer) As Integer Fc = n * Fj(5) End Function Private Function Fj(ByVal n As Integer) As Integer Fj = n + 3 End Function Private Sub Command1_Click() Dim a As Integer a = 3 Form1.Print Fc(a) End Sub 程序时单击命令按钮，在窗体上输出的结果为（）。

A、3

B、24

C、5

D、15

在窗体上有1个名称为Commandl的命令按钮，并有如下事件过程和函数过程：

Private Sub Commandl 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+l

Next

m=s

End Function

运行程序，单击命令按钮Commandl后的输出结果为

(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】。

设有以下函数过程

Private Function Fun(a()As Integer，b As String)As Integer

Ehd Function

若已有变量声明：

Dim x(5)As Integer，n As Integer，ch As String

则下面正确的过程凋用语句是

A．x(0)=Fun(x，“ch”)

B．n=Fun(n，ch)

C．Call Fun x，“ch”

D．n=Fun(x(5)，ch)

设有以下函数过程

Private Function Fun(a()As Integer，b As String)As Integer

Ehd Function

若已有变量声明：

Dim x(5)As Integer，n As Integer，ch As String

则下面正确的过程凋用语句是

A．x(0)=Fun(x，“ch”)

B．n=Fun(n，ch)

C．Call Fun x，“ch”

D．n=Fun(x(5)，ch)

设有以下函数过程

Private Function Fun(a（）As Integer，b As String)As Integer

…

End Function

若已有变量声明：

Dim x(5)As Integer，n As Integer，ch As String

则下面正确的过程调用语句是（）。

A.x(O)=Fun(x．"ch")

B.n=Fun(n．ch)

C.CallFun X，"ch"

D.n=Fun(x(5)，ch)

设有一个命令按钮Command1的事件过程以及一个函数过程，程序如下：

Private Sub Command1_Click()

Static x as integer

X=f(x+5)

Cls

Print x

End Sub

Private function f(x as integer)as integer

F=x+x

End function

连续单击命令按钮3次，第3次单击命令按钮后，窗体上显示的计算结果是

A)10

B)30

C)60

D)70

A. Private Public Funct（a）As Integer

B. Static Function Funct（a）

C. Private Function Funct（a As Single）

D. Function Funct（a As Integer）As Integer

（23）设有以下函数过程

Private Function Fun(a() As Integer, b As String) As Integer

...

End Function

若已有变量声明：

Dim x(5）As Integer, n As Integer, ch As String

则下面正确的过程调用语句是

A）x(o)＝Fun(x, "ch")

B）n＝Fun(n, ch

C）Call Fun x, "ch"

D）n＝Fun(x(5), ch)