下面程序:Private Sub Form_Click()Dim x,y,z As Integerx=5y=7z=0Call P1(x,y,z)Print St

下面程序：

Private Sub Form_Click()

Dim x，y，z As Integer

x＝5

y＝7

z＝0

Call P1(x，y，z)

Print Str(z)

End Sub

Sub P1(ByVal a As Integer, ByVal b As Integer, c As integer)

c＝a＋b

End Sub

运行后的输出结果为

A．0

B．12

C．Str(z)

D．显示错误信息

B解析：在本题中，用Call过程名的方法调用过程P1。在P1中，将参数C的值改为12。因为参数C是按地址传送(默认为按地址传送，即ByRef)，故z的值变为12了，所以输出值为12。