下面Main过程运行之后，则变量J的值为
Private Sub MainSub( )
Dim J As Integer
J=5
Call GetData(J)
End Sub
Private Sub GetData(ByRef f As Integer)
f=f$2+Sgn(-1)
End Sub