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