一垒跑垒员在腾空球返垒时，可以踏白色或橙色垒包

窗体上有名称为Command1的命令按钮。事件过程及两个函数过程如下：
Private Sub Command1_Click()
Dim x As Integer, y As Integer, z
x=3:y=5:z=fy(y)
Print fx(fx(x)),y
End Sub
Function fx(ByVal a As Integer)
a=a+a:fx=a
End Function
Function fy(ByRef a As Integer)
a=a+a:fy=a
End Function
运行程序，并单击命令按钮，则窗体上显示的两个值依次是 (12) 和 (13) 。