程序设计实例(专升本)课件.ppt

1、VFPVFP程序设计实例程序设计实例2009年专升本辅导年专升本辅导第一页，编辑于星期五：十四点 二十一分。1、第二页，编辑于星期五：十四点 二十一分。1INPUT命令命令格式格式:INPUT TO 功能功能:显示提示信息显示提示信息,暂停程序运行暂停程序运行,等待用户从键盘输入等待用户从键盘输入除除备注型备注型、屏幕型屏幕型以外的任何类型数据以外的任何类型数据,以回车键结束输以回车键结束输入。入。字符型数据必须用定界符括起来字符型数据必须用定界符括起来;逻辑型数据必须用逻辑型数据必须用圆点定界符括起来圆点定界符括起来;日期型数据按日期型数据按 CTOD()格式或格式或YYYY-MM-DD格式

2、格式;数值型数据不需要任何数值型数据不需要任何定界符。定界符。二、二、VFPVFP交互式的输入语句交互式的输入语句 第三页，编辑于星期五：十四点 二十一分。1INPUT命令命令例：例：INPUT命令使用示例命令使用示例 INPUT 请输入姓名请输入姓名:TO aa 请输入姓名请输入姓名:“夏天夏天”或或 夏天夏天 或或 夏天夏天 INPUT 请输入出生日期请输入出生日期:TO bb 请输入出生日期请输入出生日期:CTOD(09/12/85)或：或：1985/09/12 INPUT 请输入成绩请输入成绩:TO cc 请输入成绩请输入成绩:92.5 INPUT 是否代培是否代培:TO dd 是否代

3、培是否代培:.F.第四页，编辑于星期五：十四点 二十一分。2ACCEPT命令命令格式格式:ACCEPT TO 功能功能:显示提示信息显示提示信息,暂停程序运行暂停程序运行,等待用户从键盘输入等待用户从键盘输入字字符串符串给给。例例6.3 键盘输入表文件名。键盘输入表文件名。ACCEPT 请输入数据表文件名请输入数据表文件名:TO FILEN USE&FILEN LIST运行后运行后：请输入数据表文件名：请输入数据表文件名:学生学生 程序执行时，屏幕上显示提示信息程序执行时，屏幕上显示提示信息“请输入数据表文件名请输入数据表文件名:”，当用户输入表文件名如：，当用户输入表文件名如：学生，程序继续

4、执行并打开学生，程序继续执行并打开“学生学生”表，并以列表的形式显示表文件的全部记录及字段内容。表，并以列表的形式显示表文件的全部记录及字段内容。第五页，编辑于星期五：十四点 二十一分。3WAIT命令命令 格式格式:WAIT TO WINDOW AT，NOWAIT CLEAR/NOCLEAR TIMEOUT 功能功能:使正在运行的程序暂停使正在运行的程序暂停,直到用户从键盘输入任直到用户从键盘输入任意字符或单击鼠标时，继续程序的执行。意字符或单击鼠标时，继续程序的执行。例 6.2 WAIT命令使用示例 WAIT 请选择 06:TO K WINDOW TIMEOUT 10 请选择 06:当用户按

5、键选择或等待时间超过10秒，提示窗口关闭，继续往下执行程序 第六页，编辑于星期五：十四点 二十一分。顺序结构顺序结构：按语句排列顺序执行：按语句排列顺序执行分支结构分支结构：根据条件执行不同的：根据条件执行不同的 程序分支程序分支 循环结构循环结构：重复执行一段代码：重复执行一段代码第七页，编辑于星期五：十四点 二十一分。1 1、顺序结构、顺序结构 语句语句1语句语句2语句语句3open database D:学生管理学生管理学生管理学生管理use 学生学生accept 请输入学生姓名请输入学生姓名:to namelocate for 姓名姓名=namedisplayuse按语句排列顺序执行，

6、是三种结构中最基本、最按语句排列顺序执行，是三种结构中最基本、最简单的结构。简单的结构。例例1：用姓名查询学生信息！：用姓名查询学生信息！第八页，编辑于星期五：十四点 二十一分。条件成立？条件成立？语句块语句块1是是语句块语句块2否否2 2、分支结构、分支结构根据条件执行不同的程序分支，计算机进行逻辑判断的基本结构。根据条件执行不同的程序分支，计算机进行逻辑判断的基本结构。计算机具有逻辑判断的能计算机具有逻辑判断的能力，能根据给定的条件成立与力，能根据给定的条件成立与否而决定程序转向不同的方向，否而决定程序转向不同的方向，这些不同的转向就构成了分支这些不同的转向就构成了分支结构。结构。分支结构

7、中总包含有逻辑分支结构中总包含有逻辑表达式，分支结构体现的是计表达式，分支结构体现的是计算机的逻辑判断能力。算机的逻辑判断能力。常用的分支结构有常用的分支结构有简单分简单分支支、选择分支选择分支和和结构分支结构分支等。等。第九页，编辑于星期五：十四点 二十一分。一、简单分支语句一、简单分支语句(IFENDIF)语句格式：语句格式：IF ENDIF语句语句序列序列Endif的后一条语句的后一条语句 if的前一条语句的前一条语句 逻辑表达式的值逻辑表达式的值.T.F.第十页，编辑于星期五：十四点 二十一分。例例:查询某一学生成绩是否在查询某一学生成绩是否在60分以上。分以上。ACCEPT ACCE

8、PT 学号学号:TO XH:TO XHUSE USE 成绩成绩 LOCATE FOR LOCATE FOR 学号学号=XH =XH CJ=CJ=成绩低于成绩低于 60 60 分分 IFIF 成绩成绩=60 =60 CJ=CJ=成绩成绩 60 60 分以上分以上 ENDIFENDIF?CJ?CJ USEUSE第十一页，编辑于星期五：十四点 二十一分。语句格式：语句格式：IF ELSE ENDIF语句序列语句序列1Endif的后一条语句的后一条语句 if的前一条语句的前一条语句 逻辑表达式的值逻辑表达式的值.T.F.语句序列语句序列2二、选择分支语句二、选择分支语句(IFELSEENDIF)第十二

9、页，编辑于星期五：十四点 二十一分。例：用选择分支语句例：用选择分支语句,重新编写上例程序。重新编写上例程序。ACCEPT “学号学号:”TO XHUSE 成绩成绩 LOCATE FOR 学号学号=XH IF 成绩成绩=60?成绩成绩 60 分以上分以上 ELSE?成绩低于成绩低于 60 分分 ENDIF USE二、选择分支语句二、选择分支语句(IFELSEENDIF)第十三页，编辑于星期五：十四点 二十一分。三、分支语句嵌套三、分支语句嵌套 在解决许多复杂问题时在解决许多复杂问题时,需要将多个需要将多个分支语句相互结合起来使用分支语句相互结合起来使用,形成了分形成了分支语句的支语句的嵌套嵌套

10、形式。形式。在分支语句中在分支语句中 IF 必须和必须和 ENDIF 配对。系统在执行分支语句配对。系统在执行分支语句时时,由由 IF 语句的最内层开始语句的最内层开始,逐层逐层将将 IF 和和 ENDIF 配对。所以在多层配对。所以在多层分支嵌套时尤应注意配对关系分支嵌套时尤应注意配对关系,以免以免配对错误引起逻辑错误。配对错误引起逻辑错误。INPUT TO XINPUT TO YINPUT TO ZIF X=Y IF X=Z MAX=X ELSE MAX=Z ENDIFELSE IF Y=Z MAX=Y ELSE MAX=Z ENDIFENDIF?MAX例例4:求求 X、Y、Z 三个数中的

11、最大值三个数中的最大值INPUT TO XINPUT TO YINPUT TO Z?Max(x,y,z)第十四页，编辑于星期五：十四点 二十一分。语句格式：语句格式：DO CASE CASE CASE CASE OTHERWISE ENDCASE逻辑表达式逻辑表达式1逻辑表达式逻辑表达式2语句序列语句序列1语句序列语句序列2逻辑表达式逻辑表达式N语句序列语句序列N语句序列语句序列N+1.是是是是是是是是否否否否否否否否四、结构分支语句四、结构分支语句第十五页，编辑于星期五：十四点 二十一分。结构分支语句根据结构分支语句根据 N 个条件表达式的逻辑值个条件表达式的逻辑值,选择执行选择执行 N+1

12、 个语句行序列中的一个。个语句行序列中的一个。执行执行 DO CASE-ENDCASE 语句时语句时,首先逐个检查每个首先逐个检查每个 CASE 项中的条件表达式项中的条件表达式,当某个条件表达式的值为当某个条件表达式的值为“真真”时时,就执行这一就执行这一 CASE 项下的语句行序列项下的语句行序列,然后结束整个然后结束整个 DO CASE-ENDCASE 语句语句,去执行去执行 ENDCASE 后面的语句。若后面的语句。若所有的所有的CASE 项下的条件表达式都为项下的条件表达式都为“假假”时时,则执行则执行 OTHERWISE 项下的语句行序列项下的语句行序列,然后去执行然后去执行 EN

13、DCASE后面后面的语句。的语句。注意注意：在整个在整个 DO CASE-ENDCASE 语句中语句中,每次最多只有一个语句行序列被每次最多只有一个语句行序列被执行执行。在多个。在多个 CASE 项的条件表达式都为真时项的条件表达式都为真时,系统只能执行位置在最前面的系统只能执行位置在最前面的 CASE 项下的那个语句行序列。项下的那个语句行序列。在处理多分支的问题时在处理多分支的问题时,最好使用结构分支语句最好使用结构分支语句,使程序结构层次清晰、简明，减少编使程序结构层次清晰、简明，减少编写的错误写的错误,增加程序的可读性。增加程序的可读性。四、结构分支语句四、结构分支语句第十六页，编辑于

14、星期五：十四点 二十一分。计算分段函数的值：计算分段函数的值：)8(27)85(35)53(1)30(5201)(xxxxxxxxxxxfCLEAINPUT “输入输入X值值:“TO xDO CASE CASE X0 F=X-1 CASE X3 F=2*X+5 CASE X5 F=X+1 CASE X8 F=5*X-3 OTHERWISE F=7*X+2ENDCASE?”F(“,X,”(=“,FRETURN第十七页，编辑于星期五：十四点 二十一分。在处理实际问题的过程中在处理实际问题的过程中,往往需要重复某些相同的步骤往往需要重复某些相同的步骤,即对即对一段程序进行重复的操作。实现重复操作的程

15、序一段程序进行重复的操作。实现重复操作的程序,称为循环结构程序。称为循环结构程序。循环结构同分支结构一样循环结构同分支结构一样,是程序设计中不可缺少的语句。是程序设计中不可缺少的语句。条件满足？条件满足？是是循环体循环体否否循环体循环体条件满足？条件满足？是是否否根据条件或计数要求重复执行一段代码。根据条件或计数要求重复执行一段代码。3 3、循环结构、循环结构第十八页，编辑于星期五：十四点 二十一分。语句格式：语句格式：FOR=TO STEP NEXT语句功能：语句功能：重复执行重复执行，直到，直到的值的值大于大于执行执行次数次数=Int(循环终止值循环终止值-循环起始值循环起始值)/步长）步

16、长）+1 一、计数循环一、计数循环 FOR NEXT语句语句第十九页，编辑于星期五：十四点 二十一分。例例5:计算计算 1+2+3+100 的和。的和。S=0FOR I=1 TO 100 S=S+INEXT?1+2+3+100=,S一、计数循环一、计数循环 FOR NEXT语句实例语句实例第二十页，编辑于星期五：十四点 二十一分。例例 计算各阶乘之和计算各阶乘之和 S=1!+2!+3!+100!。首先，计算首先，计算n!的程序代码为：的程序代码为：T=1FOR I=1 TO N T=T*IENDFOR*此程序代码段中，循环体重复执行此程序代码段中，循环体重复执行N次，次，I的值依次取的值依次取

17、1、2、N，T的值依次的值依次为为1！、！、2！、！、N!。&计算各阶乘之和的程序代码为：计算各阶乘之和的程序代码为：S=0T=1FOR I=1 TO 100 T=T*I S=S+TENDFOR？”!+2!+3!+100!”,S一、计数循环一、计数循环 FOR NEXT语句实例语句实例:第二十一页，编辑于星期五：十四点 二十一分。计算各阶乘之和的程序代码之二计算各阶乘之和的程序代码之二(方法二方法二)：S=0 FOR n=1 TO 100 T=1 FOR m=1 TO n t=t*m ENDFOR S=s+t ENDFOR？”!+2!+3!+100!”,S第二十二页，编辑于星期五：十四点 二十

18、一分。格式：格式：DO WHILE LOOP EXIT ENDDO二、条件循环二、条件循环DO WHILE ENDDO语句语句功能功能:重复判断重复判断的逻辑值的逻辑值,当其值为当其值为“真真”时时,反复执行反复执行 DO WHILE 与与EDNDO 之间的语句之间的语句;当其值为当其值为“假假”时时,退出退出循环并执行循环并执行 ENDDO 后面后面的语句。的语句。第二十三页，编辑于星期五：十四点 二十一分。逻辑表达式的值逻辑表达式的值=？循循环环体体LOOPEXITENDDOENDDO后面的语句后面的语句.T.F.执行过程执行过程:(1)当程序执行到当程序执行到 DO WHILE 时时,计

19、算条件表达式的值。计算条件表达式的值。(2)若条件表达式的值为若条件表达式的值为“假假”,结束循环结束循环,执行执行ENDDO后后面语句。面语句。(3)若条件表达式的值为若条件表达式的值为真真,执执行行 DO WHILE 后面的语句。后面的语句。(4)遇到遇到LOOP或或ENDDO时时,返回返回DOWHILE,重复执行重复执行(1)-(3)。(5)遇到遇到EXIT时时,结束循环结束循环,转到转到ENDDO后面的语句去执行。后面的语句去执行。二、条件循环二、条件循环DO WHILE ENDDO语句语句第二十四页，编辑于星期五：十四点 二十一分。例例6：计算计算1+2+3+100S=0N=1DO

20、WHILE N=100S=S+NN=N+1ENDDO?1+2+3+.+100=,S 例例7:显示学生表中所有男生的记录。显示学生表中所有男生的记录。USE 学生学生DO WHILE.NOT.EOF()IF 性别性别=男男 DISPLAY WAIT ENDIF SKIPENDDOUSE二、条件循环二、条件循环DO WHILE ENDDO语句实例语句实例第二十五页，编辑于星期五：十四点 二十一分。语句格式：语句格式：SCAN FOR|WHILE ENDSCAN语句功能：语句功能：对当前数据表中指定范围内符合条件的记录，执行对当前数据表中指定范围内符合条件的记录，执行。：指定作用范围，：指定作用范围

21、，缺省指数据表内的所缺省指数据表内的所有记录有记录。FOR：只有符合条件的记录才进行操作：只有符合条件的记录才进行操作WHILE：当遇到第一个不符合条件的记录时终止：当遇到第一个不符合条件的记录时终止三、条件循环三、条件循环SCAN ENDSCAN语句语句第二十六页，编辑于星期五：十四点 二十一分。例例8：显示：显示“学生学生”表表中所有男生中所有男生的记录的记录。USE 学生学生 SCAN FOR 性别性别=“男男”DISPLAY ENDSCAN三、条件循环语句（三、条件循环语句（SCAN ENDSCAN）实例）实例例：显示例：显示“成绩成绩”表中所有成绩在表中所有成绩在60以上的记录。以上

22、的记录。USE 成绩成绩 SCAN FOR 成绩成绩=60DISPLAY ENDSCAN第二十七页，编辑于星期五：十四点 二十一分。如果在一个循环程序如果在一个循环程序的循环体内又包含着另一的循环体内又包含着另一些循环些循环,就构成多重循环就构成多重循环,或称循环嵌套。循环嵌套或称循环嵌套。循环嵌套的层次不限的层次不限,但内层循环但内层循环必须完全嵌套在外层循环必须完全嵌套在外层循环之中。用多重循环处理复之中。用多重循环处理复杂问题杂问题,逻辑性强逻辑性强,结构结构简单。简单。右边给出循环嵌套右边给出循环嵌套的一般结构示意图的一般结构示意图:四、多重循环四、多重循环(循环嵌套循环嵌套)DO W

23、HILE DO WHILE DO WHILE ENDDO ENDDO ENDDO 第二十八页，编辑于星期五：十四点 二十一分。下面的循环嵌套是正确的下面的循环嵌套是正确的:注意：循环不能交叉！注意：循环不能交叉！注意：下面的循环嵌套交叉，是错误的:第二十九页，编辑于星期五：十四点 二十一分。例例9：显示九九乘法表。：显示九九乘法表。N=1DO WHILE N=9 M=1 DO WHILE MM?N ENDIFENDFORRETURN 判断一个数判断一个数n是否为素是否为素数的方法是：用数的方法是：用3到到(n-1)的各个整数依次去除的各个整数依次去除n，如果除不尽，如果除不尽，n就是素就是素数

24、。如果讲究效率数。如果讲究效率,只只需除到需除到INT(SQRT(n)即可即可。素数素数:除了除了1和它本身外不和它本身外不能被任何一个整数所能被任何一个整数所整除的自然数整除的自然数第三十二页，编辑于星期五：十四点 二十一分。第三十三页，编辑于星期五：十四点 二十一分。1、从键盘输入10个数，然后找出其中之一最大值和最小值。2、党费收取是按工资收入标准确定，假设基本工资500元以下，按1%缴；基本工资在500-1200元，按1.5%缴；基本工资在1200-1800元，按1.8%缴；基本工资在1800-2400元，按2.0%缴；基本工资在2400元及其以上，按2.5%缴。编写程序实现自动计算缴

25、费金额。第三十四页，编辑于星期五：十四点 二十一分。程序设计时常常有些运算和处理程程序设计时常常有些运算和处理程序是相同的序是相同的,只是每次可能以不同的参只是每次可能以不同的参数参与程序运行。因此数参与程序运行。因此,将重复出现或能将重复出现或能单独使用的程序写成可供主程序调用的子程单独使用的程序写成可供主程序调用的子程序或过程序或过程。主程序中按一定方式调用其。主程序中按一定方式调用其它程序它程序(过程、自定义函数过程、自定义函数),在执行完在执行完调用的程序后调用的程序后,再返回到调用它的主程再返回到调用它的主程序并继续往下执行。序并继续往下执行。程序文件可以嵌套调用。在运行程序文程序文

26、件可以嵌套调用。在运行程序文件的过程中件的过程中,当遇到当遇到 DO 命令命令,就要暂时终止当前程序文件的执行就要暂时终止当前程序文件的执行,转去运行转去运行另一个程序另一个程序(子程序或过程子程序或过程),当另一个程序当另一个程序执行完毕执行完毕,再返回程序终止处继续向下执行。再返回程序终止处继续向下执行。6.4 6.4 模块与模块调用模块与模块调用 在结构化的在结构化的程序中，程序被程序中，程序被分为一个分为一个主模块主模块和若干个和若干个子模块子模块，其中其中各个子模块各个子模块分别用于处理各分别用于处理各个小问题个小问题，再由再由主模块自顶向下主模块自顶向下的调用各子模块的调用各子模块

27、来解决整个问题来解决整个问题。第三十五页，编辑于星期五：十四点 二十一分。do sub1Do sub2return return return子程序子程序sub1.prg子程序子程序sub1.prg主程序主程序子程序：子程序：供主程序调用的、独立存储的程序文件供主程序调用的、独立存储的程序文件例如：有两个子程序例如：有两个子程序sub1.prg、sub2.prg，它们被主，它们被主程序程序main.prg调用调用6.4.1 过程及过程调用过程及过程调用第三十六页，编辑于星期五：十四点 二十一分。一个完整的应用程序（对任何表进行录入、修改、查一个完整的应用程序（对任何表进行录入、修改、查询、删除

28、的程序），它由下列程序文件组成：询、删除的程序），它由下列程序文件组成：主程序：主程序：Exam17.prg 显示文本菜单显示文本菜单子程序：子程序：e17input.prg 选择选择1，输入记录，输入记录 e17modi.prg 选择选择2，修改记录，修改记录 e17query.prg 选择选择3，查询记录，查询记录 e17del.prg 选择选择4，删除记录，删除记录第三十七页，编辑于星期五：十四点 二十一分。一个独立的程序块，放在过程文件中。一个独立的程序块，放在过程文件中。过程的名字为过程的名字为 18 个字符个字符,没有没有扩展名扩展名,每个过程以每个过程以 PROCEDURE 语句

29、起始语句起始,以以 RETURN 语句语句终止。过程不能作为一个程序来独立运行终止。过程不能作为一个程序来独立运行,因而称为因而称为内部过程内部过程。二、过程二、过程(内部过程内部过程)第三十八页，编辑于星期五：十四点 二十一分。过程文件由若干各自独立的过程组成过程文件由若干各自独立的过程组成,形式如形式如下：下：PROCEDURE PROCEDURE PROCEDURE 6.4.2 过程文件过程文件：存放过程的文件：存放过程的文件第三十九页，编辑于星期五：十四点 二十一分。Set Procedure to 如果该命令没有参数，则关闭当前打开的过程如果该命令没有参数，则关闭当前打开的过程文件。

30、文件。也可用下列命令关闭过程：也可用下列命令关闭过程：Close Procedure 或或 release procedure 过程文件的打开与关闭：过程文件的打开与关闭：在调用过程之前，必须先打开过程文件。在调用过程之前，必须先打开过程文件。打开过程文件的命令为：打开过程文件的命令为：第四十页，编辑于星期五：十四点 二十一分。带参数的调用语句带参数的调用语句:DO With 参数语句参数语句 PARAMETERS 以上两条语句必须配合使用以上两条语句必须配合使用,前一条放在主程序中前一条放在主程序中,后后一条放在被调用的过程中。一条放在被调用的过程中。6.4.3 带参数的过程调用带参数的过程

31、调用参数传递过程如下参数传递过程如下:在调用过程时在调用过程时,将将 DO 语句中的参数值传递给语句中的参数值传递给 PARAMETERS 语句中的参数语句中的参数;调用终止时调用终止时,返回对应参数的计算值。返回对应参数的计算值。通常通常 PARAMETERS 语句中的参数是语句中的参数是内存变量内存变量,为为形式参数形式参数,DO 语句中的参数为语句中的参数为实参数实参数。第四十一页，编辑于星期五：十四点 二十一分。*子程序：子程序：YMJ.prgPARAMETERS R,SS=3.1416*R*RRETURN*主程序主程序:S=0INPUT 半径半径=TO XDO YMJ WITH,Y?

32、园面积园面积=,Y1.带参数过程调用带参数过程调用(实例实例)若若X=5园面积园面积=78.54例例11:计算园面积。计算园面积。第四十二页，编辑于星期五：十四点 二十一分。2.自定义函数自定义函数*过程文件：过程文件：圆面积函数圆面积函数.prgprocedure circleS(x)return 3.1416*x*xendproc*主程序主程序Set procedure to 园面积函数园面积函数input 半径半径r=to r?半径半径=,r?面积面积=,circleS(r)set procedure toReturnprocedure circleS(x)return 3.1416*x*xendproc第四十三页，编辑于星期五：十四点 二十一分。6.4.4 过程嵌套调用过程嵌套调用Visual FoxPro 中允许执行一个过程时中允许执行一个过程时,调用调用第二个过程第二个过程;执行第二个过程时执行第二个过程时,调用第三个过程。这样调用第三个过程。这样一个接一个地调用下去一个接一个地调用下去,称为过程嵌套调用。系统允许这称为过程嵌套调用。系统允许这种嵌套最多种嵌套最多126层。层。主程序主程序 过程过程1 过程过程2.DO 过程过程 1 DO 过程过程 2 DO 过程过程 3.RETURN RETURN RETURN第四十四页，编辑于星期五：十四点 二十一分。