窗体上有名称为Command1的命令按钮。事件过程及2个函数过程如下：
Private Sub Command1_Click()
Dim x As Integer,y As Integer,z
x=5
y=8
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
运行程序，并单击命令按钮，则窗体上显示的2个值依次是 (7) 和 (8) 。