有如下過程：

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