vfp第12.13章

《vfp第12.13章》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第7章程序设计7.3多模块程序应用程序一般都是多模块程序，可包含多个程序模块。模块是可以命名的一个程序段，可指主程序、子程序、函数、过程。7.3.1子程序能够完成一定功能的可供其它程序使用（调用）的独立程序段称为子程序。它独立存在，但可以被多次调用，调用子程序的程序称为主程序。在应用系统开发中，把程序完成的主要功能都分配给各子程序去完成，这样主程序可以写得比较简捷，整个应用系统的维护方便，应用系统运行的效率也很高。1、子程序的调用格式：DO<程序文件名1>[with<参数表>][IN<程序文件名2>]说明：a.程序文件名1：指定要执行程序的名字。DO<程

2、序文件名1>直接执行或调用<程序文件名1>指定的程序。b.[WITH<参数表>]：指定传递到子程序的参数，在<参数表>中列出的参数可以是表达式、内存变量、常量、字段或用户自定义函数。c.当<程序文件名1>是子句IN<程序文件名2>中的一个过程时，DO命令调用该过程，请参阅[例7-26]。第7章程序设计7.3多模块程序7.3.1子程序2、子程序的返回RETURN[TOMASTER

3、TO<程序文件名>]说明：a.该语句放在一个程序的末尾。b.不带参数的RETURN语句的功能是将程序控制权返回到调用该子程序的主程序的下一条命令语句。c.RETURNTOMAST

4、ER：如果有多级程序调用，某一子程序的该语句将使程序控制权返回到最高一级调用程序。d.RETURNTO<程序文件名>：表示将控制权交给指定的程序。3、子程序的建立建立子程序的方法与以前我们建立程序的方法类似。但要注意两个问题，一是每个子程序必须单独使用一个文件名保存起来，二是主程序和子程序之间有关变量值的传递关系。子程序文件名的扩展名也是.PRG。ReturntomasterReturnsub1Returntosub1第7章程序设计7.3多模块程序7.3.1子程序[例7-21]利用主程序调用子程序的方法计算任意3个自然数的阶乘和，即求s=a!+b!+c!

5、建立步骤：先建立好求任一自然数阶乘的程序，如[例7-17]。由于这里是通过主程序调用子程序的方法求三个自然数阶乘之和，因此在子程序中所求出的每个自然数的阶乘就不用输出了；另外子程序计算所需的自然数是主程序通过变量传递到子程序的，因此，在子程序中输入自然数的语句也可以不要。所以，在本例中，作为求阶乘的子程序可以是如下的程序代码：factor=1FORx=nTO1STEP-1factor=factor*xENDFORRETURN注意，该子程序中的变量n的值需要由主程序传递。将该子程序保存文件名为：jc调用该子程序的主程序为：CLEARINPUT"a="toa

6、INPUT"b="tobINPUT"c="tocs=0&&定义存放阶乘的累加和的变量factor=1&&定义与子程序传递阶乘计算结果的变量n=a&&定义计算阶乘需要自然数的传递变量DOjcs=factorn=bDOjcs=s+factorn=cDOjcs=s+factor?ALLTRIM(STR(a,3))+“!+”+ALLTRIM(STR(b,3))+“!+”+；ALLTRIM(STR(c,3))+"!=",sRETURN第7章程序设计7.3多模块程序7.3.2自定义函数VisualFoxPro提供了许多系统函数，用户也可以自己定义函数（UserDef

7、inedFunction），简称UDF。UDF与内部函数一样，可以在程序、命令窗口或函数嵌套中使用。在VisualFoxPro中有两种形式的UDF：独立UDF和依附UDF。1、独立用户定义函数实际上独立用户定义函数就是带参数传递的子程序，差别仅仅是用户定义函数的最后一条RETURN语句后有表达式、以及调用的方式不同。用户定义函数用如下格式定义。格式：[PARAMETERS<参数表>][命令序列]RETURN[<表达式>]说明：a.[PARAMETERS<参数表>]：接受函数运行时传递过来的数据，如果函数不需要传递数据，该语句可省略。b.[命令序列]：用于

8、进行各种处理的命令组合。简单的函数也可以为空。c.RETURN<表达式>语句中<表达式>的值作为返回函数值，它决定了函数的类型。如缺省该语句，则返回函数值为.T.。d.函数名称就是保存时用的程序文件名。如果UDF的名称与已有的函数名相同，系统只承认已有函数，因此不能用已有的函数名来命名UDF。e.UDF的调用形式是<函数名>（[<参数表>]）。第7章程序设计7.3多模块程序7.3.2自定义函数1、独立用户定义函数[例7-23]：定义一个计算求立方数的函数。（1）创建函数求立方数函数。函数名为cube(即以cube.prg为文件名存盘)。PARAMETER

9、SvRETURNv*v*v下面程序中调用求立方函数cube.prg,求1到10的