第5章 结构化程序[精选].pptVIP

8.3.1 定义过程或过程文件 在Visual FoxPro 中，模块可以是命令文件， 也可以是过程。过程定义的语法格式如下： 一般过程： PROCDURE 过程名 命令序列 RETURN [ENDPROC] 函数过程： FUNCTION 过程名 PARAMETERS 参数表 命令序列 RETURN 表达式 ENDFUNC 过程可以放置在程序文件代码的后面，也可以保存在称为过程文件的单独文件里。(.PRG) 过程文件里只包含过程，这些过程能被任何其他程序所调用。但在调用过程文件中的过程之前首先要打开过程文件。 打开与关闭过程文件： 打开：SET PROCEDURE TO 过程文件名 关闭：SET PROC TO 或 CLOSE PROC 过程文件结构： PROCEDURE 过程名1 [命令序列1] RETURN PROCEDURE 过程名2 [命令序列2] RETURN …… PROCEDURE 过程名n [命令序列n] RETURN 8.3.2 调用过程或过程文件 m! 例：求组合数：Cmn= n! (m-n)! *** 组合数1.prg *** input ‘m=‘ to m input ‘n=‘ to n t=1 k=m do jc c=t k=n do jc c=c/t k=m-n do jc ?”c=”,c/t return proc jc t=1 for i=1 to k t=t*i endfor return 问题：分别在主程序和过程 中的 t=1 是否可以省略？ m! 例：求组合数：Cmn= n!(m-n)! ** 组合数2.prg ** inpu “m=?” to m inpu “n=?” to n c=jc(m)/jc(n)/jc(m-n) 直接调用函数过程 ?c func jc 定义函数过程 para k　　　　　　　　　　定义形式参数 t=1 for i=k to 1 step -1 t=t*i endfor retu t 返回函数值t 主程序 例：求出1000以内所有这样的数：该数回文（即：左右对称），它的平方也回文。 运行结果： 1 1 1 2 1 2 2 4 8 4 1 0 1 1 0 2 0 1 1 1 1 1 2 3 2 1 1 2 1 1 4 6 4 1 2 0 2 4 0 8 0 4 2 1 2 4 4 9 4 4 例：分析程序的运行结果： *** main.prg *** wait ‘请输入选择（1-3）：’ to xz set proc to gcwj do case case xz=‘1’ do sub1 ? ‘111111’ case xz=‘2’ do sub2 ? ‘222222’ case xz=‘3’ do sub3 ? ‘333333’ endcase ? ‘******’ set proc to retu *** gcwj.prg *** proc sub1 ? ‘------’ retu proc sub2 do sub1 ? ‘$$$$$$’ retu proc sub3 do sub4 ? ‘######’ retu proc sub4 ? ‘++++++’ retu[