有如下过程Sub Area（ByVal a As single，ByRef s As Single） s=a*aend sub执行下面程序段后，变量s的值为（）Dim a！，s！a=5s=15Call Area（a，s）。

有如下过程：

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.Sub proc(x%,Byval y%)

B.Sub proc(ByVal x%,Byval y%)

C.Sub proc(x%,y%)

D.Sub proc(Byval x%,y%)

A.Sub proc(x%,Byval y%)

B.Sub proc(ByVal x%,Byval y%)

C.Sub proc(x%,y%)

D.Sub proc(Byval x%,y%)

A.Sub f1(ByVal n%, ByVal m%)

B.Sub f1(ByRef n%, ByVal m%)

C.Sub f1(ByRef n%, ByRef m%)

D.Sub f1(ByVal n%, ByRef m%)

A.Sub f1(ByVal n%, ByVal m%)

B.Sub f1(ByRef n%, ByVal m%)

C.Sub f1(ByRef n%, ByRef m%)

D.Sub f1(ByVal n%, ByRef m%)

A.Sub f(ByVal n%,ByVal m%)

B.Sub f(n%, m%)

C.Sub f(n%,ByVal m%)

D.Sub f(ByVal n%,m%)

A.Sub f1(n%,ByVal m%)

B.Sub f2(ByVal n%,ByVal m%)

C.Sub f1(ByVal n%,m%)

D.Sub f1(n%,m%)

A.Sub S1(ByVal n%)

B.Sub S1(ByRef n%) As Integer

C.Sub S1%(ByVal n As Integer)

D.Function S1(ByVal n%) As Integer

A.Sub mySub(ByRef n%) As Integer

B.Sub mySub%(ByVal n As Integer)

C.Dim mySub as Sub(n%)

D.Sub mySub(ByVal n%)