多模块程序精品课件

1、多模块程序第1页，共41页，2022年，5月20日，14点7分，星期二复习提问DO WHILE-ENDDO循环LOOP及EXIT命令的使用FORENDFOR循环SCANENDSCAN循环第2页，共41页，2022年，5月20日，14点7分，星期二第十一讲：程序设计（三）重点掌握模块的定义和调用介绍带参数的过程调用重点介绍变量的作用域第3页，共41页，2022年，5月20日，14点7分，星期二一.模块的定义和调用模块是一个相对独立的程序段,它可被其他模块所调用,也可调用其他模块模块可是命令文件,也可是过程第4页，共41页，2022年，5月20日，14点7分，星期二一.模块的定义和调用程序设计时，

2、常常有些运算或处理程序是相同的可以将重复出现的或能单独使用的程序写成可供其他程序调用的独立程序段称为子程序，在VFP中也称为过程过程与主程序同样的方法建立 、运行同样的文件形式存放在磁盘上有相同的扩展名(.PRG)惟一不同的是，一个过程中至少应有一条返回语句第5页，共41页，2022年，5月20日，14点7分，星期二一.模块的定义和调用1.过程定义格式 PROCEDURE RETURE表达式 ENDPROC说明1) 过程名是以字母开头的字符串(包含字母、数字及下划线)，最多可达8个字符第6页，共41页，2022年，5月20日，14点7分，星期二一.模块的定义和调用2)若缺省ENDPROC,过程

3、结束于下一条PROCEDURE或文件结尾处3)执行到RETURN命令时,转回到调用程序返回表达式的值.缺省RETURN,自动执行一条隐含的RETURN,若不带表达式,返回.T.4)过程可放置在程序文件代码的后面,也可保存在称为过程文件的单独文件里.第7页，共41页，2022年，5月20日，14点7分，星期二一.模块的定义和调用 过程文件只包含过程,这些过程能被任何其他程序所调用,可以容纳128个过程5)调用过程文件中过程之前要先打开过程文件打开过程文件命令:SET PROCEDURE TO 过程文件名表功能:打开过程文件名表所指定的过程文件说明：调用过程文件仍使用DO语句第8页，共41页，20

4、22年，5月20日，14点7分，星期二一.模块的定义和调用6)SET PROCEDURE TO 命令,关闭所有打开的过程文件2.过程(模块)调用 DO WITH ,实参2,.下册132页例6.6第9页，共41页，2022年，5月20日，14点7分，星期二二.带参数的过程调用 允许在调用命令和被调用过程中设置数量相同，类型一致的参数，按其排列顺序一一对应调用命令将一系列参数的 值传送给被调用程序中的对应参数被调用程序运行结束时，再将相应参数的值(可能已被改变)返回这种方法可用带参数传递语句来实现第10页，共41页，2022年，5月20日，14点7分，星期二二.带参数的过程调用语句格式： DO 文

5、件名 WITH 实参表语句功能：带参数调用一般过程和过程文件中的过程及应用程序第11页，共41页，2022年，5月20日，14点7分，星期二 说明：参数可以是常量、变量和表达式被调用的程序中第一个可执行的语句必须是参数语句，参数语句有以下格式：语句格式： PARAMETERS 形参表语句功能：接受调用命令中相应参数的值，并在调用结束后返回对应参数的计算值第12页，共41页，2022年，5月20日，14点7分，星期二 说明：参数表必须与调用命令中的参数相匹配。形参数目不能少于实参的数目,若形参多于实参,则多余的形参取初值.f.参数语句与带参数调用语句必须配合使用，成对出现若实参为常量或表达式,将

6、值赋给形参为按值传递若实参为变量,在模块中对形参的改变,也对实参变量值进行改变,称为按引用传递下册141页方法二第13页，共41页，2022年，5月20日，14点7分，星期二三.变量作用域在VFP中，内存变量可分为公共变量、私有变量、局部变量三类1、公共变量 在任何模块中都可使用的变量称为公共变量1)公共变量要先建立后使用 PUBLIC 功能:建公共变量,赋初值为.F.第14页，共41页，2022年，5月20日，14点7分，星期二变量作用域2)公共变量一旦建立一直有效,只有执行QUIT等命令后,才被释放3)在命令窗口中直接使用的变量也为公共变量第15页，共41页，2022年，5月20日，14点

7、7分，星期二变量作用域2.私有变量在程序中直接使用的变量为私有变量1)作用域是建立它的模块及其下属的各层模块2)一旦建立它的模块程序运行结束,这些私有变量将自动清除第16页，共41页，2022年，5月20日，14点7分，星期二变量作用域3.局部变量只能在建立它的模块中使用建立局部变量的命令: LOCAL 功能:建立局部变量,赋初值为.F.1)建立它的模块程序运行结束时,局部变量自动释放2)LOCAL不能缩写第17页，共41页，2022年，5月20日，14点7分，星期二变量作用域4.隐藏主程序中存在的变量 PRIVATE 隐藏指定的在上层模块中可能已存在的内存变量,使得这些变量在当前模块程序中暂

8、时无效,一旦返回上层模块时,被隐藏的内存变量就自动恢复有效性,并保持原有的取值下册137页例6.6 134页例6.12第18页，共41页，2022年，5月20日，14点7分，星期二小结：重点掌握模块的定义和调用介绍带参数的过程调用重点介绍变量的作用域第19页，共41页，2022年，5月20日，14点7分，星期二练习：建立表操作1.建立一个表ZGDA.DBF，表的内容可以自己定义（备注型字段的内容如何查阅、修改）第20页，共41页，2022年，5月20日，14点7分，星期二4.将ZGDA.DBF表先添加一个“工资”字段，然后进行如下操作：(1)显示工资小于140元的姓名、工资两个字段的内容(2)

9、显示性别为“男”的全部记录的内容(3)显示性别为“女”的姓名、职称与工资的内容(4)显示全部姓“刘”的记录内容(5)显示职称是“讲师”且年龄为40岁以下的记录(6)显示年龄在50岁以下，工资在650元以上记录的内容第21页，共41页，2022年，5月20日，14点7分，星期二1.将ZGDADBF表拷贝生成一个新表Z1DBF并进行下面的修改操作：(1)用EDIT命令只修改第四号记录“王秋燕”，将职称由“讲师”改为“副教授”，工资由6 00.00元改为800.00元，显示修改后表的内容(2)用CHANGE命令将工资小于800元的增加200元，显示修改后表的内容。(3)用BROWSE命令只显示姓名、

10、职称和工资三个字段，并作一些修改，显示修改后表的内容第22页，共41页，2022年，5月20日，14点7分，星期二用REPLACE命令进行如下操作：1)将所有的记录年龄增加一岁；2)将所有的讲师工资增加100元；3)将所有的“讲师”改成“副教授”；4)将所有的“助教”改成“讲师”；第23页，共41页，2022年，5月20日，14点7分，星期二2.用ZGDADBF表进行拷贝操作：(1)用COPY FILE命令，将ZGDADBF表拷贝生成新的表A1DBF，显示新表的内容；(2)用COPY TO命令，将ZGDADBF表拷贝生成新的表A2DBF，显示新表的内容；(3)将ZGDADBF表拷贝生成新的表A

11、3DBF，A3DBF的结构由姓名、性别、年龄、 职称四个字段组成，显示新表的内容；(4)将ZGDADBF表职称是讲师的记录拷贝出来生成新的表A4DBF，A4DBF的结构 由姓名、年龄、职称和工作时间四个字段组成，显示新表的内容；(5)将ZGDADBF表年龄大于40岁的记录拷贝出来，生成新的表A5DBF，显示新 表的内容。第24页，共41页，2022年，5月20日，14点7分，星期二3.用DELETE命令和PACK命令删除(1)真正删除第1号和第7号记录，真正删除第3号至第6号记录；(2)将第2号记录打删除标记，然后再恢复，真正删除Z1DBF表的全部记录。第25页，共41页，2022年，5月20

12、日，14点7分，星期二重新组织表1.有一个表W1.DBF内容如下，请分别按工资降序排列，按职称升序排序。2.将W1.DBF表分别按姓名、按性别进行索引。3.用FIND、SEEK命令查找李志和秋天两个记录，并显示其内容。4.用LOCATE和CONTINUE命令查找所有职称是讲师的记录。第26页，共41页，2022年，5月20日，14点7分，星期二5. 建立索引文件：(1)按姓名建立索引文件；(2)按工资建立索引文件；(3)按工作时间建立索引文件；(4)按职称和工资建立索引文件。第27页，共41页，2022年，5月20日，14点7分，星期二6.查询操作：(1)用LOCATE命令查询“李艳”的有关数

13、据；(2)用LOCATE和CONTINUE命令查询年龄45岁的全部记录。第28页，共41页，2022年，5月20日，14点7分，星期二6.4 统计命令1.有一个学生成绩表CJ.DBF，其内容如下，进行统计平均年龄、每科成绩的总分与平均分等操作：第29页，共41页，2022年，5月20日，14点7分，星期二2. 进行下列统计操作：(1)统计女职工的平均工资，男职工的平均年龄；(2)分别统计男、女职工的人数；(3)统计年龄大于40岁的人数；(4)统计职称是讲师的人数；(5)统计1972年之前参加工作的人数。第30页，共41页，2022年，5月20日，14点7分，星期二6.5 程序设计写出运算结果:

14、(1)S=0 P=1 DO WHILE P=100 S=S+P P=P+1 ENDDO ? S=,S CANCEL S=5050第31页，共41页，2022年，5月20日，14点7分，星期二(2) 5!的值 SET TALK OFF T=1 N=1 DO WHILE N=5 T=T*N N=N+1 ENDDO ? T=,T CANCEL T=120第32页，共41页，2022年，5月20日，14点7分，星期二(3)求S=1!+2!+3!+5!的值。 SET TALK OFF S=0 T=1 N=1 DO WHILE N=5 T=T*N S=S+T N=N+1 ENDDO ? S=,S CANC

15、EL S=153第33页，共41页，2022年，5月20日，14点7分，星期二(4)写出程序的运行结果 SET TALK OFF I=1 DO WHILE I=3 J=5 DO WHILE J=7 ? I,J J=J+1 ENDDO I=I+1 ENDDO CANCEL第34页，共41页，2022年，5月20日，14点7分，星期二(5)写出程序的运行结果 FOR I=10 TO 1 STEP -2 ? I=,I NEXT ? I=,I RETURN第35页，共41页，2022年，5月20日，14点7分，星期二2.编一个程序求0100之间(S=2+4+6+100)的偶数之和S=0 FOR I=0

16、 TO 100 STEP 2S=S+IENDFOR ? S RETU第36页，共41页，2022年，5月20日，14点7分，星期二3.编写计算下列两个表达式值 S=1+2+3+ +30 Y=1+12+13+ +130STORE 0 TO S,TFOR I=1 TO 30S=S+I T=T+1/I ENDFOR ? S,T RETU第37页，共41页，2022年，5月20日，14点7分，星期二4.编一个程序(S=1+(1+2)+(1+2+3)+(1+2+3+4+100）S=0T=0FOR I=1 TO 100T=T+IS=S+TENDFOR ? S RETU第38页，共41页，2022年，5月20日，14点7分，星期二5. 选修的学分收费。学分在12分以下的收费4000元，若超过12学分，则超过部分每学分加收200元编一个程序计算收费，输入学号I及学分U，输