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

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