Do SUBJC with 5, S && 调用子程序，并传递参数5，S ? S &&120 5的阶乘值
注意：默认情况下，DO ... WITH 语句以引用传递方式向过程传递变量和数组。当一个值在被调用过程中更改时，新值传递回调用程序中相关的变量或数组。 (3)在命令窗口中执行主程序JCMAIN.PRG，观察执行情况。 do JCMAIN.PRG &&执行主程序 3.带参数的过程文件调用
(1)建立过程文件SP1.PRG，功能是求x的阶乘，代码如下： Procedure JC &&在过程文件中定义一个名为JC的过程 Parameters x , y && 定义形式参数 N=1 Y=1
Do while N<=x
Y=Y*N N=N+1
Enddo
Return &&返回主程序
注：多个过程可以放在一个过程文件中，用过程名来区分。实际上，过程和子程序是一回事，只不过把多个子程序保存在一个PRG文件中，在PRG文件中每个子程序（过程）用Procedure 语句单独定义罢了，而把这个PRG文件成为过程文件。 (2)建立主程序SPMAIN.PRG，代码如下： Set procedure to sp1 &&打开过程文件SP1.PRG S=0
Do JC with 5，S &&调用过程文件中的JC过程 ? S
Set procedure to &&关闭过程文件
(3)在命令窗口中输入DO SPMAIN来执行主程序SPMAIN.PRG，观察执行情况。 4.自定义求圆的面积的函数，程序文件名为：MYFUN.PRG，代码如下： input \请输入半径\
MJ=area(R) &&调用自定义函数AREA，返回值保存到MJ中。
? \半径为\的圆面积为\ &&输出圆的面积
****下面的代码是自定义函数AREA****
FUNCTION AREA &&定义函数名为AREA Parameters X &&定义形式参数
S=pi()*X*X &&计算面积
RETURN S &&返回S的值
注：上述例子，自定义的函数代码与主程序在一个程序文件中；当然也可以把自定义的函数代码放到过程/子程序文件中，用时要先打开过程文件，即可调用。
5.变量的作用域
全局变量：用PUBLIC命令定义，作用范围为所有的程序，直到用RELEASE命令将其释放掉。
私有变量：用PRIVATE命令定义，作用范围为定义它的本级和各级子程序，一旦本级程序结束，私有变量即被释放掉。
局部变量：用LOCAL命令定义，作用范围为定义它的程序，不能被上级程序和下级子程序所调用，一旦定义它的程序执行结束，局部变量即被释放掉。 (1)分析下面的主程序的执行结果。
运行结果为：13
注：图中1，2，3，4为程序执行的流程顺序。
(2)分析下面的主程序的执行结果。
运行结果为：12 注：
①图中1，2，3为程序流程顺序。
②程序中未加说明的变量是私有变量（private），其作用范围是本级程序及其各级子程序，命令窗口中定义的变量是全局变量。 (3)分析下面的主程序的执行结果
运行结果为：X= 4 Y= 5 Z=9 (4)分析下面的主程序的执行结果
运行结果为：X= 1 Y= 2 Z=9
注意：private命令可将上级程序中创建的与私有变量同名的变量隐藏起来，可以在当前程序中操作这些私有变量，而不影响被隐藏的变量的值。一旦包含 private 命令的程序执行完毕，所有被隐藏起来的内存变量就恢复原值，可继续使用。
相关推荐：
loading