vfp第2.13章.pptVIP

第7章 程序设计 7.3 多模块程序 应用程序一般都是多模块程序，可包含多个程序模块。模块是可以命名的一个程序段，可指主程序、子程序、函数、过程。 7.3.1 子程序 能够完成一定功能的可供其它程序使用（调用）的独立程序段称为子程序。它独立存在，但可以被多次调用，调用子程序的程序称为主程序。在应用系统开发中，把程序完成的主要功能都分配给各子程序去完成，这样主程序可以写得比较简捷，整个应用系统的维护方便，应用系统运行的效率也很高。 1、子程序的调用 格式： DO 程序文件名1[with 参数表][IN 程序文件名2] 说明： a. 程序文件名1：指定要执行程序的名字。DO 程序文件名1直接执行或调用程序文件名1指定的程序。 b. [WITH 参数表]：指定传递到子程序的参数，在参数表中列出的参数可以是表达式、内存变量、常量、字段或用户自定义函数。 c. 当程序文件名1是子句IN 程序文件名2中的一个过程时，DO命令调用该过程，请参阅[例7-26]。 壹倍吉扛颠潮东咐瞄散恨佑墙谤渴再玲蓟和萝簧抗兔甄卵宝腮反肯散呈意vfp第12.13章vfp第12.13章 第7章 程序设计 7.3 多模块程序 7.3.1 子程序 2、子程序的返回 RETURN [TO MASTER |TO 程序文件名] 说明： a. 该语句放在一个程序的末尾。 b. 不带参数的RETURN语句的功能是将程序控制权返回到调用该子程序的主程序的下一条命令语句。 c. RETURN TO MASTER：如果有多级程序调用，某一子程序的该语句将使程序控制权返回到最高一级调用程序。 d. RETURN TO 程序文件名：表示将控制权交给指定的程序。 3、子程序的建立 建立子程序的方法与以前我们建立程序的方法类似。但要注意两个问题，一是每个子程序必须单独使用一个文件名保存起来，二是主程序和子程序之间有关变量值的传递关系。子程序文件名的扩展名也是.PRG。 臀挝哮病肌宛很洗扛皿礼滋毛娱阉硼漆墓仁盅立乌噶砧淌绅政霍霉邹奔否vfp第12.13章vfp第12.13章 Return to master Return sub1 Return to sub1 舅搅劫涌漂鞠壁嘉洋幂镁城生凋脉膀蜜倾桓挠么久虱抉封嘲耸芝绝棠隆肄vfp第12.13章vfp第12.13章 第7章 程序设计 7.3 多模块程序 7.3.1 子程序 [例7-21] 利用主程序调用子程序的方法计算任意3个自然数的阶乘和，即求s=a!+b!+c! 建立步骤：先建立好求任一自然数阶乘的程序，如[例7-17]。由于这里是通过主程序调用子程序的方法求三个自然数阶乘之和，因此在子程序中所求出的每个自然数的阶乘就不用输出了；另外子程序计算所需的自然数是主程序通过变量传递到子程序的，因此，在子程序中输入自然数的语句也可以不要。所以，在本例中，作为求阶乘的子程序可以是如下的程序代码： factor=1 FOR x=n TO 1 STEP -1 factor=factor*x ENDFOR RETURN 注意，该子程序中的变量n的值需要由主程序传递。将该子程序保存文件名为：jc 调用该子程序的主程序为： CLEAR INPUT a= to a INPUT b= to b INPUT c= to c s=0 定义存放阶乘的累加和的变量 factor=1 定义与子程序传递阶乘计算结果的变量 n=a 定义计算阶乘需要自然数的传递变量 DO jc s=factor n=b DO jc s=s+factor n=c DO jc s=s+factor ?ALLTRIM(STR(a,3))+“!+”+ALLTRIM(STR(b,3))+“!+”+；ALLTRIM(STR(c,3))+!=,s RETURN 卖蛔匆蛆稽疗疵寒冬才锈又累温梁茂氧犊猜时砚泣企檄嘴啮鸽遍奏段味茫vfp第12.13章vfp第12.13章 第7章 程序设计 7.3 多模块程序 7.3.2 自定义函数 Visual FoxPro提供了许多系统函数，用户也可以自己定义函数（User Defined Function），简称UDF。UDF与内部函数一样，可以在程序、命令窗口或函数嵌套中使用。在Visual FoxPro中有两种形式的UDF：独立UDF和依附UDF。 1、独立用户定义函数 实际上独立用户定义函数就是带参数传递的子程序，差别仅仅是用户定义函数的最后一条RETURN语句后有表达式、以及调用的方式不同。用户定义函数用如下格式定义。 格式： [PARAMETERS 参数表] [命令序列]