set udfparms to value|reference 命令不起作用解决办法_VFP

set udfparms to value|reference 命令不起作用
为什么程序
x=10
y=100

SET UDFPARMS TO reference
DO sub WITH x,y
?x
?y

PROCEDURE sub
PARAMETERS a,b
a=a+9
b=b+9
return
ENDPROC

与程序

x=10
y=100

SET UDFPARMS TO reference
DO sub WITH x,y
?x
?y

PROCEDURE sub
PARAMETERS a,b
a=a+9
b=b+9
return
ENDPROC

得到的结果都是
19
109

应该是有区别的呀！

------解决方案--------------------------------------------------------

VB code

Clearx=10Y=100Set Udfparms To Valuesub(x,Y)?x?Yx=10Y=100Set Udfparms To Referencesub(x,Y)?x?YProcedure sub    Parameters a,b    a=a+9    b=b+9    ReturnEndproc
------解决方案--------------------------------------------------------
用函数的方式是可以的。
*---------------------------------------------
x=10
y=100

SET UDFPARMS TO reference  
=sub(x,y)
?x
?y

function sub
PARAMETERS a,b
a=a+9
b=b+9
return
ENDfunc

set udfparms to value|reference 命令 不起作用解决办法

set udfparms to value|reference 命令不起作用解决办法