第7章-结构化程序设计PPT学习课件.ppt

《第7章-结构化程序设计PPT学习课件.ppt》由会员分享，可在线阅读，更多相关《第7章-结构化程序设计PPT学习课件.ppt（132页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、 第第7 7章章 结构化程序设计结构化程序设计n 7.1 7.1 程序文件的建立与运行程序文件的建立与运行n 7.2 7.2 顺序结构程序设计顺序结构程序设计n 7.37.3 分支结构程序设计分支结构程序设计n 7.4 7.4 循环结构程序设计循环结构程序设计n 7.57.5 模块模块结构程序设计结构程序设计n 7.6 7.6 数组及其应用数组及其应用1 VFP VFP两种工作方式两种工作方式 交互工作方式、程序工作方式交互工作方式、程序工作方式程序程序 是为了完成某项指定的任务而需执行的是为了完成某项指定的任务而需执行的命令序列。命令序列。程序文件程序文件 命令序列以一定的结构有序地编排命令

2、序列以一定的结构有序地编排在一起，并以文件的形式存储在磁盘上。在一起，并以文件的形式存储在磁盘上。VFPVFP的程序设计方法的程序设计方法 面向过程的程序设计、面向过程的程序设计、面向对象的程序设计面向对象的程序设计 2 7.1.1 7.1.1 程序文件的建立程序文件的建立程序是命令的有序集合，文件扩展名是程序是命令的有序集合，文件扩展名是.PRG.PRG 程序由命令组成，程序中的命令也叫做语句程序由命令组成，程序中的命令也叫做语句一行只能写一条语句一行只能写一条语句,写完后按回车键换行写完后按回车键换行一条语句可分行书写一条语句可分行书写,各行末输入分号后回车各行末输入分号后回车程序输入完后

3、要先存盘再关闭窗口程序输入完后要先存盘再关闭窗口程程序序每每次次都都是是从从第第一一条条语语句句开开始始自自动动、连连续续的执行的执行程序文件的特点：程序文件的特点：3程序文件的建立程序文件的建立文件文件新建新建程序程序新建文件新建文件命令格式：命令格式：MODIFY COMMAND MODIFY COMMAND 程序文件的运行程序文件的运行程序程序运行运行命令格式：命令格式：DO DO 单击工具栏的运行按钮单击工具栏的运行按钮中断程序的运行中断程序的运行程序运行过程中程序运行过程中,可用可用EscEsc键中断。键中断。4程序的注释是程序的注释是非执行非执行部分，格式有三种：部分，格式有三种：

4、NOTE NOTE *&7.1.2 7.1.2 程序中的辅助命令程序中的辅助命令程序注释命令程序注释命令5*程序：职工档案管理系统程序：职工档案管理系统 *作者作者 ：高：高 路路 *日期：日期：20002000年年 5 5月月 *All right reserved *All right reserved *Note Note 设置系统运行环境设置系统运行环境Set talk off&Set talk off&关闭人机对话关闭人机对话Set default to d:kk&Set default to d:kk&默认工作路径默认工作路径Set date to ansi&Set date to

5、 ansi&指定日期格式指定日期格式例题例题7-17-16格式一：格式一：RETURN MASTER RETURN MASTER 程序结尾返回程序结尾返回格式二：格式二：CANCEL CANCEL 强制停止程序运行强制停止程序运行格式三：格式三：QUIT QUIT 退出退出VFPVFP程序专用结束命令程序专用结束命令运行环境设置命令运行环境设置命令CLEARCLEARCLEAR ALL CLEAR ALL CLOSE ALLCLOSE ALL7往事随风如尘埃洒落在空间的日志里，你的影子无处不在，凄迷的文字诉说往事随风如尘埃洒落在空间的日志里，你的影子无处不在，凄迷的文字诉说着你曾经的故事，不管

6、以后和现在是怎样的难受，爱你的心事永远这样轻盈无体着你曾经的故事，不管以后和现在是怎样的难受，爱你的心事永远这样轻盈无体态。你在寂静夜里印记了某个清晨某个人的过往，桔黄色的云里藏了你所有态。你在寂静夜里印记了某个清晨某个人的过往，桔黄色的云里藏了你所有的清冷，天上的星星在布满薄薄尘土的宇空里叹息，你爱上的只是他笑起来的迷的清冷，天上的星星在布满薄薄尘土的宇空里叹息，你爱上的只是他笑起来的迷幻。你在他走之后还一直迷失在他给你的梦幻，你爱上的只是他瞳孔里的太幻。你在他走之后还一直迷失在他给你的梦幻，你爱上的只是他瞳孔里的太阳，其实并不实在。我看着你在因他心伤而心伤，而你却不知道我在因你的心疼阳，其

7、实并不实在。我看着你在因他心伤而心伤，而你却不知道我在因你的心疼而心疼。眼泪只准在眼眶里打转，拥抱着你，却听到自己的心在因为你而碎了。而心疼。眼泪只准在眼眶里打转，拥抱着你，却听到自己的心在因为你而碎了。我爱上的人心里还有另一个人！眼泪落在过去，感情无法飘向未来，春我爱上的人心里还有另一个人！眼泪落在过去，感情无法飘向未来，春去夏又来，你的心里还是有一个他，虽然他伤害了你，还背叛了你，而你却甘愿去夏又来，你的心里还是有一个他，虽然他伤害了你，还背叛了你，而你却甘愿为他落泪甚至想放弃生命。你的眼眸一抬全是伤，有对我的愧疚还有对他的忏悔。为他落泪甚至想放弃生命。你的眼眸一抬全是伤，有对我的愧疚还有

8、对他的忏悔。你愿意彻底与他断绝关系，可是他的一个电话或是一条信息，你还是失魂落魄。你愿意彻底与他断绝关系，可是他的一个电话或是一条信息，你还是失魂落魄。有时我在想做为男人是不是太无能让爱有空隙有时我在想做为男人是不是太无能让爱有空隙:身边的女人爱上了另一个男人。不身边的女人爱上了另一个男人。不忍责备的永远是她的善良，不能忍受的总是她在心里的背叛。感情总有两种遗憾，忍责备的永远是她的善良，不能忍受的总是她在心里的背叛。感情总有两种遗憾，一种是相爱了无法相守，一种是相守了却无法再爱得单纯。她忧郁的眉毛总一种是相爱了无法相守，一种是相守了却无法再爱得单纯。她忧郁的眉毛总是在打结是在打结7.1.4 7

9、.1.4 程序中的交互输入命令程序中的交互输入命令字符串字符串输入命令输入命令格格式式：ACCEPT ACCEPT TO TO 等等待待用用户户从从键键盘盘输输入入一一个个字字符符串串并并按按回回车车键键后，存入后，存入指定的内存变量指定的内存变量中。中。提示信息提示信息8 格式：格式：INPUT INPUT TO TO 与与ACCEPTACCEPT相似，区别为能接受相似，区别为能接受任意类型任意类型。输入。输入字符串需要定界符，按回车结束。字符串需要定界符，按回车结束。表达式表达式输入命令输入命令单字符单字符输入命令（等待命令）输入命令（等待命令）格式：格式：WAIT WAIT TO TO;

10、WINDOWS AT WINDOWS AT 行行,列列 TIMEOUT TIMEOUT 暂停程序执行，显示提示信息并等待按键，暂停程序执行，显示提示信息并等待按键，按一个键后，系统自动执行下面的程序。按一个键后，系统自动执行下面的程序。11 例题例题 编写一程序，用于计算长方形的面积编写一程序，用于计算长方形的面积 CLEAR&CLEAR&清屏清屏 CLEAR ALL&CLEAR ALL&清除内存清除内存 INPUT INPUT 请输入长方形的长：请输入长方形的长：TO a TO a INPUT INPUT 请输入长方形的宽：请输入长方形的宽：TO b TO b?“此长方形的面积为：此长方形的

11、面积为：+LTRIM(STR(a*b)+LTRIM(STR(a*b)RETURN RETURN12 例题例题 编写程序，用编写程序，用WAITWAIT接受用户的回答接受用户的回答 USE zgdaUSE zgda LOCATE FOR LOCATE FOR 职称职称=工程师工程师 DISPLAY DISPLAY 姓名姓名,职称职称 WAIT WAIT 要继续查找吗？要继续查找吗？(Y/N)TO jx(Y/N)TO jx IF UPPER(jx)=Y IF UPPER(jx)=Y CONTINUE CONTINUE DISPLAY DISPLAY 姓名姓名,职称职称 ENDIFENDIF RET

12、URN RETURN13 三种语句的相同点三种语句的相同点都是显示提示信息的内容，停机等待用户都是显示提示信息的内容，停机等待用户输入数据。输入数据。提示信息的显示位置不能指定。提示信息的显示位置不能指定。ACCEPTACCEPT和和INPUTINPUT，输入完数据按下回车键。，输入完数据按下回车键。一条语句只能为一个变量输入值。一条语句只能为一个变量输入值。既在程序中使用，也在命令窗口中使用。既在程序中使用，也在命令窗口中使用。15 三种语句的区别三种语句的区别ACCEPT ACCEPT 只能接收字符型数据，输入时不必只能接收字符型数据，输入时不必加定界符。加定界符。INPUT INPUT

13、可接收任何类型数据，输入字符串可接收任何类型数据，输入字符串时时必须必须加定界符。加定界符。WAIT WAIT 只能输入一个字符，输入时不必加定只能输入一个字符，输入时不必加定界符。界符。16输入格式：输入格式：GET GET 输出格式：输出格式：SAY SAY 结合使用：结合使用：SAY SAY GET GET 输入激活：输入激活：READREAD在指定的行、列位置输出在指定的行、列位置输出SAYSAY定义的信息，并将定义的信息，并将用户输入内容保存到用户输入内容保存到GETGET后指定的变量里。后指定的变量里。内存内存变量变量必须先赋值；必须先赋值；字段变量字段变量，则它所属的数据表，则它

14、所属的数据表文件必须已在当前工作区中打开。文件必须已在当前工作区中打开。变量的类型和变量的类型和宽度决定了输入数据的类型和宽度。宽度决定了输入数据的类型和宽度。定位输出与输入命令定位输出与输入命令17Range Range,2 规定了输入的数值型或日期型数据的范围。规定了输入的数值型或日期型数据的范围。表达式类型必须与变量类型一致。表达式类型必须与变量类型一致。Valid Valid 规定输入的变量值要符合的条件。如果不规定输入的变量值要符合的条件。如果不符合条件，重新输入。符合条件，重新输入。GETGET字句的可选短语字句的可选短语18例例7-5 7-5 为数据库添加记录（一个程序文件）为数

15、据库添加记录（一个程序文件）Use zgdaUse zgdaAppend BlankAppend Blank5,5 SAY 5,5 SAY“姓名姓名:”Get Get 姓名姓名 7,5 SAY 7,5 SAY“性别性别:”Get Get 性别性别;valid valid 性别性别$”男女男女”9,5 SAY 9,5 SAY“年龄年龄:”Get Get 年龄年龄;range 18,60range 18,60ReadReadBrowseBrowseReturnReturn19 第第7 7章章 结构化程序设计结构化程序设计n 7.1 7.1 程序文件的建立与运行程序文件的建立与运行n 7.2 7.2

16、 顺序结构程序设计顺序结构程序设计n 7.37.3 分支结构程序设计分支结构程序设计n 7.4 7.4 循环结构程序设计循环结构程序设计n 7.57.5 模块模块结构程序设计结构程序设计n 7.6 7.6 数组及其应用数组及其应用20程序的基本结构程序的基本结构顺序结构顺序结构-在程序执行时，根据程序中在程序执行时，根据程序中语句的语句的书写顺序书写顺序依次执行的命令序列。依次执行的命令序列。分支结构分支结构-在程序执行时，根据不同的在程序执行时，根据不同的条件条件，选择执行不同的程序语句。，选择执行不同的程序语句。循环结构循环结构-循环结构则能够使某些语句循环结构则能够使某些语句或程序段或程

17、序段重复执行重复执行若干次。若干次。21例题例题7-6 7-6 在在zgdazgda表中按姓名查找记录表中按姓名查找记录Use zgdaUse zgdaAccept Accept“请输入姓名请输入姓名”to xmto xmLocate For Locate For 姓名姓名=xm=xmClearClear?”姓名：姓名：”+姓名姓名?”性别：性别：”+性别性别?”职称：职称：”+职称职称?”出生日期：出生日期：”+dtoc(+dtoc(出生日期出生日期)UseUseReturnReturn根据书写顺根据书写顺序序，从第一，从第一条语句条语句依次依次执行到最后执行到最后一条语句。一条语句。22

18、第第7 7章章 结构化程序设计结构化程序设计n 7.1 7.1 程序文件的建立与运行程序文件的建立与运行n 7.2 7.2 顺序结构程序设计顺序结构程序设计n 7.37.3 分支结构程序设计分支结构程序设计n 7.4 7.4 循环结构程序设计循环结构程序设计n 7.57.5 模块模块结构程序设计结构程序设计n 7.6 7.6 数组及其应用数组及其应用23 7.3.1 7.3.1 简单分支结构简单分支结构格式格式IF IF ENDIFENDIF条件条件执行语句序列执行语句序列ENDIFENDIF后面的语句后面的语句IFIF前面的语句前面的语句真真假假24 s=1s=1 k=1 k=1 if k0

19、 if k0 s=s-1 s=s-1 endif endif?s=s=,s,ss=0s=0 s=1s=1 k=-1 k=-1 if k0 if k0 s=s-1 s=s-1 endif endif?s=s=,s,ss=1s=125例题例题7-8 7-8 根据输入的单价和数量计算金额根据输入的单价和数量计算金额ClearClearInput Input”数量数量”to slto slInput Input”单价单价”to djto djje=dj*slje=dj*slIF sl=100IF sl=100 je=je*0.92 je=je*0.92EndifEndif?”应付金额应付金额”+str

20、(je,8,2)+str(je,8,2)ReturnReturn IFIF与与ENDIFENDIF必须成对必须成对使用，并且各占一行使用，并且各占一行 语句序列向右缩进，语句序列向右缩进，便于阅读和查错便于阅读和查错26真真语句序列语句序列2 2条件条件语句序列语句序列1 1ENDIFENDIF后面的语句后面的语句IFIF前面的语句前面的语句假假 7.3.2 7.3.2 选择分支结构选择分支结构格式格式IF IF 1ELSEELSE 2 ENDIFENDIF27 s=100s=100 k=1 k=1 if k0 if k0 s=s-100 s=s-100 else else s=s+100 s

21、=s+100 endif endif?s=s=,s,ss=0s=0 s=100s=100 k=-1 k=-1 if k0 if k0 s=s-100 s=s-100 else else s=s+100 s=s+100 endif endif?s=s=,s,ss=200s=20028例题例题7-10 7-10 一个程序文件一个程序文件ClearClearInput Input”里程里程”to lcto lcIF lc=5IF lc=5?”车费为：十元车费为：十元”ElseElse cf=10+(lc-5)*1.6 cf=10+(lc-5)*1.6?”车费为：车费为：”str(cf,6,2)str

22、(cf,6,2)EndifEndifReturnReturn29 语句语句1 1 IF IF 条件条件 语句语句2 2 ELSE ELSE 语句语句3 3 ENDIF ENDIF 语句语句4 4 语句语句1 1 语句语句2 2 语句语句4 4条件为条件为.T.T.语句语句1 1 语句语句3 3 语句语句4 4条条件件为为.F F.30 7.3.3 7.3.3 分支嵌套结构分支嵌套结构 例题：例题：铁路托运行李，从甲地到乙地，当行李铁路托运行李，从甲地到乙地，当行李重量重量2020公斤时，每公斤公斤时，每公斤3 3元；当行李重量元；当行李重量超过超过2020公斤时，其超过部分每公斤公斤时，其超过

23、部分每公斤5 5元；当元；当行李重量超过行李重量超过4040公斤时，其超过部分每公公斤时，其超过部分每公斤斤8 8元。编写一个计算运费的程序。元。编写一个计算运费的程序。31INPUT INPUT “行李重量行李重量:”TO W TO WIF w=20IF w=20 X=3*W X=3*WELSEELSE IF W=40 IF W=40 X=3*20+5*(W-20)X=3*20+5*(W-20)ELSE ELSE X=3*20+5*20+8*(W-40)X=3*20+5*20+8*(W-40)ENDIF ENDIF?”内层分支内层分支”ENDIF ENDIF?运费为运费为:,x,:,x,元元

24、 32 7.3.4 7.3.4 多路分支结构多路分支结构格式格式DO CASE DO CASE CASE CASE 1 1 CASE CASE 2 2 OTHERWISE OTHERWISE N+1 ENDCASE ENDCASE条件条件1执行语句序列执行语句序列1 1ENDCASEENDCASE后面的语句后面的语句DO CASEDO CASE前面的语句前面的语句执行语句序列执行语句序列2 2真真真真条件条件2条件条件n执行语句序列执行语句序列n nOtherwise执行语句序列执行语句序列n+1n+1真真假假无无假假假假有有33INPUT INPUT “请请输输入入成成绩绩(0(0100)1

25、00)：”TO TO X XDO CASEDO CASE CASE X60 CASE X60?”不及格不及格”CASE X70CASE X70?”及格及格”CASE X80CASE X80?”中等中等”CASE X90CASE X90?”良好良好”OTHERWISEOTHERWISE?”优秀优秀”ENDCASEENDCASERETURNRETURN例题例题34 第第7 7章章 结构化程序设计结构化程序设计n 7.1 7.1 程序文件的建立与运行程序文件的建立与运行n 7.2 7.2 顺序结构程序设计顺序结构程序设计n 7.37.3 分支结构程序设计分支结构程序设计n 7.4 7.4 循环结构程

26、序设计循环结构程序设计n 7.57.5 模块模块结构程序设计结构程序设计n 7.6 7.6 数组及其应用数组及其应用35 7.4.1 7.4.1 当型循环当型循环条件条件循环体循环体语句序列语句序列ENDDOENDDO后面的语句后面的语句DO WHILEDO WHILE前面的语句前面的语句真真 假假格式：格式：DO WHILE DO WHILE ENDDOENDDO36分析如下程序的执行过程分析如下程序的执行过程 STORE 0 TO kSTORE 0 TO k DO WHILE k=3 DO WHILE k=3?*?*k=k+1 k=k+1 ENDDO ENDDO?k?k条件条件循环体循环体

27、语句序列语句序列ENDDOENDDO后面的语句后面的语句DO WHILEDO WHILE前面的语句前面的语句真真 假假37例题例题7-14 7-14 求求1 12 23 3100100的累加和的累加和解题思路：解题思路：需需要要一一个个内内存存变变量量（s s）保保存存结结果果，还还需需要一个内存变量（要一个内存变量（n n）作为被累加的对象）作为被累加的对象变量变量s s的初值为的初值为0 0，n n的初值也为的初值也为0 0重复执行重复执行n=n+1n=n+1和和s=s+ns=s+n结束条件是当结束条件是当n n大于大于10010048例题例题7-14 7-14 求求1 12 23 310

28、0100的累加和的累加和CLEARCLEARs=0s=0n=0n=0DO WHILE n100DO WHILE n100 n=n+1 n=n+1 s=s+n s=s+nENDDOENDDO?”累计值为：累计值为：”,s,sRETURN RETURN 49例题例题7-14 7-14 求求1 12 23 3100100的累加和的累加和CLEARCLEARs=0s=0n=1n=1DO WHILE n=100DO WHILE n=100 s=s+n s=s+n n=n+1 n=n+1 ENDDO ENDDO?”累计值为：累计值为：”,s,sRETURN RETURN 50CLEARCLEARs=0s=

29、0n=0n=0DO WHILE DO WHILE n100n100 n=n+1 n=n+1 s=s+n s=s+nENDDOENDDO?”累累计计值值为为：”,s,sRETURN RETURN CLEARCLEARs=0s=0n=1n=1DO WHILE nDO WHILE n=1do while i=1 two=two+substr(one,i,1)two=two+substr(one,i,1)i=i-1 i=i-1enddoenddo?two?two写出显示结果写出显示结果54LOOPLOOP语语句句：强强行行返返回回到到循循环环开开始始语语句句，即即直直接接转转向向DO DO WHILE

30、WHILE去去判判断断条条件件是是否否成成立立,不不再再执执行行LOOPLOOP后面至后面至ENDDOENDDO之间的语句序列。之间的语句序列。EXITEXIT语语句句：强强行行跳跳出出循循环环，无无条条件件转转向向ENDDOENDDO后面的语句去执行。后面的语句去执行。LOOPLOOP语语句句和和EXITEXIT语语句句通通常常出出现现在在循循环环体体内内嵌嵌套套的的选选择择语语句句中中，通通过过条条件件判判断断确确定定是是重重新新开开始始循环循环(LOOP)(LOOP)或者终止循环或者终止循环(EXIT)(EXIT)。EXITEXIT和和LOOPLOOP的使用的使用55当循环体中插入当循环

31、体中插入EXITEXIT语句时，其执行过程：语句时，其执行过程：DO WHILE DO WHILE 条件条件 语句语句1 1 EXIT EXIT 语句语句2 2ENDDOENDDO语句语句3 356当循环体中插入当循环体中插入LOOPLOOP语句时，其执行过程：语句时，其执行过程：DO WHILE DO WHILE 条件条件 语句语句1 1 LOOP LOOP 语句语句2 2ENDDOENDDO语句语句3 357例例题题7-17 7-17 统统计计zgdazgda表表中中基基本本工工资资在在800800元元以下的人数以下的人数解题思路：解题思路：生成一个内存变量生成一个内存变量n n，用来保存

32、统计结果，用来保存统计结果打打开开zgdazgda数数据据表表，从从第第一一条条记记录录开开始始判判断断，依次判断第二条，第三条依次判断第二条，第三条结束条件是判断完数据表中的所有记录结束条件是判断完数据表中的所有记录58use zgdause zgdan=0n=0Do While NOT EOF()Do While NOT EOF()If If 基本工资基本工资800=800=800 skip skip loop loop Endif Endif?姓名姓名,基本工资基本工资 n=n+1n=n+1 skip skipEnddoEnddo?”统计结果为统计结果为:”,n,n60use zgdau

33、se zgdan=0n=0Do While NOT EOF()Do While NOT EOF()If If 基本工资基本工资=800=800 skip skip loop loop Endif Endif?姓名姓名,基本工资基本工资 n=n+1n=n+1 skip skipEnddoEnddo?”统计结果为统计结果为:”,n,n61a=1a=1s=0s=0DO WHILE a5DO WHILE a5 s=s+a s=s+a a=a+1 a=a+1ENDDOENDDO?s,a?s,aa=1a=1s=0s=0DO WHILE a5DO WHILE a5 s=s+a s=s+a EXIT EXIT

34、 a=a+1 a=a+1ENDDOENDDO?s,a?s,aa=1a=1s=0s=0DO WHILE a5DO WHILE a5 s=s+a s=s+a LOOP LOOP a=a+1 a=a+1ENDDOENDDO?s,a?s,a62练习：练习：通过编程实现如下操作通过编程实现如下操作:显示显示zgdazgda表中除表中除“李宁李宁”以外的所有记录以外的所有记录 63 7.4.2 7.4.2 步长型循环步长型循环格式：格式：FOR FOR =TO TO STEPSTEP ENDFOR|NEXT ENDFOR|NEXT 循环次数循环次数=int(=int(-)/)/步长步长)+1)+1省略省略

35、STEP STEP ，则，则 为默认值为默认值1 1循环体中可以使用循环体中可以使用LOOPLOOP语句和语句和EXITEXIT语句语句说明：说明：64循环变量循环变量=终值终值ENDFORENDFOR后面的语句后面的语句=循环体循环体语句序列语句序列真真假假FORFOR前面的语句前面的语句循环变量增加一个步长循环变量增加一个步长 当步长值为负当步长值为负数时，则数时，则循环循环变量的值变量的值=终终值值65分析如下程序的执行过程分析如下程序的执行过程 FOR k=1 TO 3FOR k=1 TO 3?*?*ENDDO ENDDO?k?k循环变量循环变量=终值终值ENDFORENDFOR后面的

36、语句后面的语句=循环体循环体语句序列语句序列真真假假FORFOR前面的语句前面的语句循环变量增加一个步长循环变量增加一个步长66例题例题7-18 7-18 求求1 12 23 3100100的累加和的累加和CLEARCLEARs=0s=0FOR n=1 TO 100FOR n=1 TO 100 s=s+n s=s+nENDFORENDFOR?”累计值为：累计值为：”,s,sRETURN RETURN 67 例题例题 求求1*2*3*1*2*3*100*100的累乘积的累乘积CLEARCLEARs=1s=1FOR n=1 TO 100FOR n=1 TO 100 s=s*n s=s*nENDFO

37、RENDFOR?”累计值为：累计值为：”,s,sRETURN RETURN 68例题：键盘例题：键盘输入十个整输入十个整数，求和以数，求和以及平均值及平均值 。Store 0 to x,tStore 0 to x,tFor i=1 to 10For i=1 to 10?请输入第请输入第+str(i,4)+str(i,4)+个数个数 input to x input to x t=t+x t=t+xEndforEndfor?这这1010个数的和是：个数的和是：,t,t?平均值是：平均值是：,t/10,t/10ReturnReturn69格式：格式：SCAN SCAN FOR FOR WHILE

38、WHILE2 ENDSCAN ENDSCAN 说明：说明：专门专门用来对数据表中的若干条记录做类似的处理用来对数据表中的若干条记录做类似的处理对符合条件的记录执行对符合条件的记录执行 中的操作中的操作必须必须首先打开数据表首先打开数据表每循环一遍，记录指针每循环一遍，记录指针自动自动向下移动一条向下移动一条循环体中可以使用循环体中可以使用LOOPLOOP语句和语句和EXITEXIT语句语句 7.4.3 7.4.3 扫描型循环扫描型循环70例题例题7-17 7-17 统计统计zgdazgda表中基本工资小于表中基本工资小于800800的职工的职工USE zgdaUSE zgdaSTORE 0 T

39、O nSTORE 0 TO nDO WHILE!EOF()DO WHILE!EOF()IF IF 基本工资基本工资=800=800 SKIP SKIP LOOP LOOP ENDIF ENDIF?姓名姓名,基本工资基本工资 n=n+1n=n+1 SKIP SKIPENDDOENDDO?”基本工资在基本工资在800800元以下的有元以下的有”+str(n,3)+str(n,3)+”人人”71例例7-20 7-20 统计统计zgdazgda表基本工资小于表基本工资小于800800的职工的职工USE zgdaUSE zgdaSTORE 0 TO nSTORE 0 TO nSCAN FOR SCAN

40、FOR 基本工资基本工资800800?姓名姓名,基本工资基本工资 n=n+1n=n+1ENDSCANENDSCAN?”基本工资在基本工资在800800元以下有元以下有”+str(n,3)+str(n,3)+”人人”72三种循环的小结三种循环的小结:DO DO WHILEWHILE和和ENDDOENDDO、FORFOR和和ENDFORENDFOR、SCANSCAN和和ENDSCANENDSCAN必须配对使用。必须配对使用。应应是是数数值值型型的的内内存存变变量量或或数数组组元素。元素。可可以以是是任任何何FoxProFoxPro命命令令或或语语句句，也可以是循环语句，即可以为多重循环。也可以是循

41、环语句，即可以为多重循环。73EXITEXIT和和LOOPLOOP命令嵌入在循环体内，可以改变命令嵌入在循环体内，可以改变循环次数，但是循环次数，但是不能单独使用不能单独使用。-EXITEXIT的功能是跳出循环，转去执行的功能是跳出循环，转去执行 ENDDOENDDO、ENDFORENDFOR、ENDSCANENDSCAN后面的命令后面的命令 -LOOPLOOP的功能是转回到循环的开始处，重新的功能是转回到循环的开始处，重新 对对“条件条件”进行判断。进行判断。EXITEXIT、LOOPLOOP可以出现在可以出现在语句序列语句序列的任意的任意位置。位置。747.4.4 7.4.4 循环嵌套结构

42、循环嵌套结构在一个循环结构的循环体内包含有其它循环在一个循环结构的循环体内包含有其它循环结构，便形成了循环的嵌套。结构，便形成了循环的嵌套。起始语句与终止语句要配对起始语句与终止语句要配对循环嵌套时，不能出现交叉循环嵌套时，不能出现交叉DO WHILEDO WHILE FOR i=1 TO 10 FOR i=1 TO 10 ENDDO ENDDO ENDFORENDFOR75例题例题7-21 7-21 输出九九乘法表输出九九乘法表行号行号 a=1 a=1 1 1*1=1*1=1 a=2 a=2 2 2*1=2*1=2 2 2*2=4*2=4 a=3 a=3 3 3*1=3*1=3 3 3*2=

43、6 *2=6 3 3*3=9*3=9 a=4 a=4 4 4*1=4*1=4 4 4*2=8 *2=8 4 4*3=12*3=12 4 4*4=16*4=16 a=5 a=5 5 5*1=5*1=5 5 5*2=10*2=10 5 5*3=15*3=15 5 5*4=20*4=20 5 5*5=25*5=25 76CLEAR CLEAR FOR a=1 TO 9 FOR a=1 TO 9 FOR b=1 TO a FOR b=1 TO a?SPACE(2)+STR(a,1)+*+STR(b,1);?SPACE(2)+STR(a,1)+*+STR(b,1);+=+STR(a*b,2)+=+STR

44、(a*b,2)NEXT NEXT?NEXTNEXTRETURN RETURN 77a=1 a=1 DO WHILE a=9 DO WHILE a=9 b=1 b=1?DO WHILE b=a DO WHILE bm-1 IF im-1?m?m ENDIF ENDIFENDFORENDFOR80 第第7 7章章 结构化程序设计结构化程序设计n 7.1 7.1 程序文件的建立与运行程序文件的建立与运行n 7.2 7.2 顺序结构程序设计顺序结构程序设计n 7.37.3 分支结构程序设计分支结构程序设计n 7.4 7.4 循环结构程序设计循环结构程序设计n 7.57.5 模块模块结构程序设计结构程序

45、设计n 7.6 7.6 数组及其应用数组及其应用827.5 7.5 模块结构程序设计模块结构程序设计n模块是指具有某种功能的一段相对独立的模块是指具有某种功能的一段相对独立的程序程序n采用模块结构程序设计的好处采用模块结构程序设计的好处整个程序结构清晰整个程序结构清晰易于分别编写与调试易于分别编写与调试便于维护与调用便于维护与调用并利于程序功能的进一步扩充与完善并利于程序功能的进一步扩充与完善83n每个模块独立保存为一个程序文件每个模块独立保存为一个程序文件n一个模块调用另一个模块：一个模块调用另一个模块：DO DO 模块名模块名n模块调用可以嵌套模块调用可以嵌套n被调用模块的最后一条必须是被

46、调用模块的最后一条必须是RETURNRETURN语句语句7.5 7.5 模块结构程序设计模块结构程序设计84*模块模块1 1DO DO 模块模块2 2命令行命令行RETURNRETURN*模块模块2 2DO DO 模块模块3 3命令行命令行RETURNRETURN*模块模块3 3语句序列语句序列RETURNRETURN 模块嵌套调用逐级返回模块嵌套调用逐级返回主程序（主模块）主程序（主模块）子程序（子模块）子程序（子模块）子程序子程序85 *模块模块1 1 DO DO 模块模块2 2 命令行命令行 RETURN RETURN *模块模块2 2 DO DO 模块模块3 3 命令行命令行 .RET

47、URN RETURN *模块模块3 3 语句序列语句序列 RETURN MASTERRETURN MASTERRETURN RETURN 返回到调用该模块的主模块程序返回到调用该模块的主模块程序RETURN MASTER RETURN MASTER 直接返回到直接返回到最上层最上层的主模的主模块程序块程序86*主程序主程序Input Input“x=x=”To x To xInput Input“y=y=”To y To yn=xn=xDo subp1Do subp1 a=ta=tn=yn=yDo subp1Do subp1 W=a+tW=a+t *子程序：子程序：subp1.prgsubp1

48、.prg Public t Public t t=1 t=1 For i=1 to n For i=1 to n t=t*It=t*I Endfor Endfor ReturnReturn87 7.5.3 7.5.3 带参模块的建立与调用带参模块的建立与调用格式：格式：DO DO WITH WITH 调用指定名称的程序模块，并将调用指定名称的程序模块，并将 中各个参数的值分别传递给所调用模块中中各个参数的值分别传递给所调用模块中的对应参数的对应参数在命令窗口中也可调用带参模块程序在命令窗口中也可调用带参模块程序实参即实际参数，是真实存在的实参即实际参数，是真实存在的主模块的带参调用命令主模块的

49、带参调用命令88 7.5.3 7.5.3 带参模块的建立与调用带参模块的建立与调用子模块的接受参数命令子模块的接受参数命令格式：格式：PARAMETERS PARAMETERS 必须是子模块中的第一个可执行语句必须是子模块中的第一个可执行语句形参个数、类型必须与实参一一对应形参个数、类型必须与实参一一对应形参形参形式参数，在子模块的定义过程中，形式参数，在子模块的定义过程中，形参没有赋任何值，一般通过主模块调用时形参没有赋任何值，一般通过主模块调用时而传递过来而传递过来89*主程序主程序Input Input“x=x=”To x To xInput Input“y=y=”To y To yn=

50、xn=xDo subp1Do subp1 a=ta=tn=yn=yDo subp1Do subp1 W=a+tW=a+t *子程序：子程序：subp1.prgsubp1.prg Public t Public t t=1 t=1 For i=1 to n For i=1 to n t=t*it=t*i Endfor Endfor ReturnReturn90*主程序主程序Input Input“x=x=”To x To xInput Input“y=y=”To y To yDo subp1Do subp1 with x with xa=ta=tDo subp1Do subp1 with y w