【简答题】下列程序的输出结果是( )。Dim x As IntegerPrivate Sub Command4_Click()Dim y As Integerx = 1y = 10Call fun(y, x)MsgBox "y = " & yEnd SubSub fun(ByRef y As Integer, ByVal z As Integer)y = y + zz = y - zEnd SubA. y...
【简答题】下面程序的运行结果是( )。Private Sub Command1_Click()x = 1Call power(x)Print "x="; x;End SubSub power(ByRef y As Integer)y = y + 1Print "y="; yEnd SubA. y=2 x=1 B. y=2 x=2 C. x=1 y=1 D. x=1 y=2