设有如下的子过程： Public Sub p1（ByRef x%, ByVal y%) x = 3 * x y = y + 1 End Sub Sub Comman

有如下过程：

Sub SS(ByVal X，ByRef Y，Z)

X=X + 1

Y=Y + 1

Z=Z + 1

End Sub

执行该过程的事件过程如下：

Private Sub Command1_Click()

A = 1

B = 2

C = 3

Call SS(A，B，C) Print A；B；C

End Sub

则该程序的执行结果是【 】。

下列过程定义语句中，形参个数为不确定数量的过程是

A．Private Sub Pro3(x As Double,y As Single)

B．Private Sub Pro3(Arr(3),Option x,Option y)

C．Private Sub Pro3(ByRef x,By Val y,Arr())

D．Private Sub Pro3(ParamArray Arr())

下列过程定义语句中，形参个数为不确定数量的过程是

A．Private Sub Pro3(x As Double，y As Single)

B．Private Sub Pro3(Arr(3)，Option x，Option y)

C．Private Sub Pro3(ByRef x，ByVal y，Arr())

D．Private Sub Pro3(ParamArray Arr())

下列过程定义语句中，形参个数为不确定数量的过程是( )。

A．Private Sub Pr03(XAsDouble，y As Single)

B．Private Sub Pr03(Arr(3)；Optionx，Optiony)

C．Private Sub Pr03(ByRefx，ByValy，Art())

D．Private Sub Pr03(Param Array Arr())

下列过程定义语句中，形参个数为不确定数量的过程是（ ）。

A．Private Sub Pro3（x As Double,y As Single）

B．Private Sub Pro3（Arr（3）,Option x,Option y）

C．Private Sub Pro3（ByRef x,ByVal y,Arr（ ））

D．Private Sub Pro3（ParamArray Arr（ ））

（11）运行下列程序，窗体中的显示结果是：x= 【11】 。

Option Compare Database

Dim x As Integer

Private Sub Form_Load()

x=3

End Sub

Private Sub Command11_Click()

Static a As Integer

Dim b As Integer

b=x^2

fun1 x,b

fun1 x,b

MsgBox "x="&x

End Sub

Sub fun1(ByRef y As Integer,ByVal z As Integer）

y=y+z

z=y-z

End Sub

窗体上有名称为Commandl的命令按钮。事件过程及2个雨数过程如下：

Private Sub Commandl_Click()

Dim X As Integer，Y As Integer，z

x=3

Y=5

z=fy(Y)

Print fx(fx(x))，y

End Sub

Function fx(ByVal a As Integer)

a=a+a

fx=a

End Function

Function fy(ByRef a As Integer)

a=a+a

fy=a

End nlnction

运行程序，并单击命令按钮，则窗体上显示的2个值依次是【 】和【 】。

运行下列程序，窗体中的显示结果是：x= 。

Option Compare Database

Dim x As Integer

Private Sub Form_Load（）

x=3

End Sub

Private Sub Commandll_ Click()

Static a As Integer

Dim b As Integer

b=x^2

funl x，b

funl x，b

MsgBox〝x=〞&x

End Sub

Sub funl（ByRef y As Integer，ByVal z As nteger）

y=y+z

z=y-z

End Sub

（ 8 ）窗体上有名称为 Command1 的命令按钮。事件过程及 2 个函数过程如下：

Private Sub Command1_Click()

Dim x As Integer,y As Integer,z

x=3

y=5

z=fy(y)

print fx(fx(x)),y

End Sub

Function fx(ByBal a As Integer)

a=a+a

fx=a

End Function

Function fy(ByRef a As Integer)

a=a+a

fy=a

End Function

运行程序，并单击命令按钮，则窗体上显示的 2 个值依次是 【 12 】 和 【 13 】 。

运行下列程序，窗体中的显示结果是：（ ）。 OptionCompare Database Dim X AsInteger PrivateSub Form_Load x=3 EndSubPrivate Sub Commandll_click Static aAs Integer Dim b AsInteger b=x^2 funl x，b funl x．b MsgBox”x=‘’&x End Sub Subfunl(ByRef Y As Integer，ByVal z AS Integer) y=y+z z=y-z End Sub

A.x=3

B.x=2

C.x=21

D.x=12