Dim y As Integer
Private Sub form_click()
Dim x As Integer
x = 1
y = 2
Call AA(y + 1)
z = BB(x)
Print x, y, z
End Sub
Public Sub AA(ByVal z As Integer)
y = z + x
z = x + y
End Sub
Public Function BB(ByRef y As Integer)
y = y + 1
BB = x + y
End Function
程序运行后,单击窗体，在窗体上显示的值是（ ）。
A、2 2 2
B、2 3 2
C、3 2 3
D、2 3 3
|
