第九章结构化程序设计

《第九章结构化程序设计》由会员分享，可在线阅读，更多相关《第九章结构化程序设计（73页珍藏版）》请在装配图网上搜索。

1、第九章 结构化程序设计1 1、VFPVFP数据库管理系统提供了交互执行和程序执行二种工作方式。数据库管理系统提供了交互执行和程序执行二种工作方式。所所谓谓程程序序执执行行方方式式，就就是是将将实实现现某某一一功功能能的的VFPVFP命命令令序序列列，在在编编辑辑器器中中编编成成特特定定的的程程序序文文件件，存存放放在在磁磁盘盘中中，其其文文件件扩扩展展名名为为PrgPrg。当我们需要实现这一功能时，就执行该程序。当我们需要实现这一功能时，就执行该程序。2 2、程序文件编辑的注意事项、程序文件编辑的注意事项输入程序时要注意以下三点：输入程序时要注意以下三点：按回车键表明完成一条命令（语句）的输入

2、。按回车键表明完成一条命令（语句）的输入。一一条条命命令令（语语句句）可可以以在在一一行行写写完完，也也可可以以分分多多行行写写完完，当当分分多多行行写写时时，除除最最后后一一行行外外，每每行行结结尾尾处处放放入入一一个个分分号号（；），表明下行继续。表明下行继续。在文本输入窗口中，输入程序时应注意各关键符号为在文本输入窗口中，输入程序时应注意各关键符号为英文状态英文状态。(4)(4)可以利用鼠标器和键盘，在编辑窗口中完成各种编辑操作。可以利用鼠标器和键盘，在编辑窗口中完成各种编辑操作。9.1 9.1 程序文件的建立、执行和编译程序文件的建立、执行和编译一、一、程序文件的建立程序文件的建立 1

3、 1命令方式命令方式 Modify Command Modify Command 2 2菜单方式菜单方式 单击系统菜单单击系统菜单“文件文件”、“新建新建”，弹出，弹出“新新 建建”窗口。窗口。在在“新建新建”窗口中，选择窗口中，选择“程序程序”、“新建文新建文 件件”，进入，进入“程序文件编辑程序文件编辑”窗口。窗口。在在“程序文件编辑程序文件编辑”窗口中，逐条输入命令行。窗口中，逐条输入命令行。结束后，单击系统菜单结束后，单击系统菜单“文件文件”、“保存保存”，在，在 窗口的窗口的“保存文档为：保存文档为：”对话框中，输入程序文对话框中，输入程序文 件名，默认的文件类型为件名，默认的文件类

4、型为*.Prg.Prg，单击单击“保存保存”按钮，建立程序文件的操作结束。按钮，建立程序文件的操作结束。二、二、程序文件的执行程序文件的执行 程序文件保存在磁盘上，在需要运行时可从程序文件保存在磁盘上，在需要运行时可从磁盘调入内存执行。磁盘调入内存执行。注意：程序运行后，会自动产生一个文件类注意：程序运行后，会自动产生一个文件类型为型为.FxpFxp的同名的编译程序。的同名的编译程序。1 1命令方式命令方式 DoDo程序文件名程序文件名2 2菜单方式菜单方式 单击系统菜单的单击系统菜单的“程序程序”、“运行运行”，在弹出，在弹出的的“运行运行”窗口中，选择路径、双击需要运行的窗口中，选择路径、

5、双击需要运行的程序名。程序名。二、二、程序设计中的常用语句程序设计中的常用语句 程序设计中的常用语句包括输入语句、输出程序设计中的常用语句包括输入语句、输出语句、终止程序执行语句、清屏与注释语句。语句、终止程序执行语句、清屏与注释语句。1、输入、输出语句输入、输出语句 输入语句是程序运行时人机交互的界面，用输入语句是程序运行时人机交互的界面，用于输入程序运行时所需要的数据。而输出语句是于输入程序运行时所需要的数据。而输出语句是用于输出程序运行的结果。用于输出程序运行的结果。1 1输入语句输入语句 输入语句提供了在程序运行的过程中暂停程序输入语句提供了在程序运行的过程中暂停程序的执行，等待用户从

6、键盘上输入数据，当用户以回的执行，等待用户从键盘上输入数据，当用户以回车键结束输入时，系统将表达式的值存入指定的内车键结束输入时，系统将表达式的值存入指定的内存变量，程序继续运行。输入语句有存变量，程序继续运行。输入语句有非格式化非格式化输入输入命令和命令和格式化格式化输入命令两种。输入命令两种。（1 1）非格式化输入命令）非格式化输入命令 非格式化输入命令共有三条：非格式化输入命令共有三条：InputInput、AcceptAccept和和WaitWait。Input Input To To内存变量内存变量Accept Accept To To内存变量内存变量Wait Wait To To内

7、存变量内存变量参数说明：参数说明：InputInput命令能接受除备注型、通用型以外的数命令能接受除备注型、通用型以外的数据类型，但数据为字符型、日期型或逻辑型时应据类型，但数据为字符型、日期型或逻辑型时应使用相应的使用相应的定界符定界符。AcceptAccept命令只接受字符型数据。输入字符串时，命令只接受字符型数据。输入字符串时，不需要不需要用定界符。用定界符。Wait Wait To To内存变量内存变量 命令只命令只接受接受单个字符单个字符。如果执行不带任何参数的。如果执行不带任何参数的WaitWait命命令会弹出令会弹出“按任意键继续按任意键继续”的提示。的提示。例例9-19-1：在

8、学生档案表中，按学号直接定位查询学：在学生档案表中，按学号直接定位查询学生记录。生记录。Use Use 学生档案表学生档案表accept 请输入查询学生的学号：请输入查询学生的学号：To A1Locate For 学号学号=A1Display例例9-29-2：在学生档案表中，按年龄顺序定位查询学：在学生档案表中，按年龄顺序定位查询学生记录。生记录。Use Use 学生档案表学生档案表 Input Input“请输入查询学生的年龄：请输入查询学生的年龄：”To A2To A2 Locate For Locate For 年龄年龄=A2=A2 Display Display Continue Co

9、ntinue Display Display例例9-3：在学生档案数据表中，以性别和年龄为表达：在学生档案数据表中，以性别和年龄为表达式索引定位查询学生记录。式索引定位查询学生记录。Use 学生档案表学生档案表Index On 性别性别+Str(年龄年龄,2)To XbnlInput“请输入查询学生的年龄：请输入查询学生的年龄：”To A4Accept“请输入查询学生的性别：请输入查询学生的性别：”To A5Seek A5+Str(A4,2)Display（2 2）屏幕格式输入语句）屏幕格式输入语句 在在指定行、列指定行、列的位置，从键盘上为变量赋值。的位置，从键盘上为变量赋值。这个变量可以是

10、这个变量可以是内存变量内存变量，也可以是，也可以是字段变量字段变量。如果是内存变量，必须如果是内存变量，必须事先定义好事先定义好。如果是字。如果是字段变量，必须事先段变量，必须事先打开打开相应的数据表。相应的数据表。Say Say Get Get 参数说明：参数说明：Say：作为被编辑的变量前面出现的提示，：作为被编辑的变量前面出现的提示，一般都是用字符串表示。一般都是用字符串表示。Get：变量可以是内存变量，也可以是字段变量。：变量可以是内存变量，也可以是字段变量。若是内存变量必须在使用前先定义。如果是字段变量，若是内存变量必须在使用前先定义。如果是字段变量，则要先打开相应的数据表。则要先打

11、开相应的数据表。数据类型可以是数据类型可以是数值型、字符型、日期型、逻辑型或备数值型、字符型、日期型、逻辑型或备注型。注型。Get命令，必须用命令，必须用Read语句来激活才能完语句来激活才能完成对数据的编辑。成对数据的编辑。多个多个Get命令，可以用命令，可以用一个一个READ语句来激活。语句来激活。例例9-59-5：用屏幕格式输入语句输入数值，计算公式：用屏幕格式输入语句输入数值，计算公式C=2A+3BC=2A+3B的值。的值。A=0 B=0 10,20 Say 请输入请输入A的值：的值：Get A 11,20 Say 请输入请输入B的值：的值：Get B Read?C=2a+2b=+St

12、r(2*A+2*B)思考：请编辑一个程序，能根据学号和课程代码来修思考：请编辑一个程序，能根据学号和课程代码来修改成绩。改成绩。Xh=Space(7)Kcdm=Space(4)cj=0 Use E:课件课件vf程序设计程序设计VF2006-2007.2vfsy学生成学生成绩表绩表 Excl 10,20 Say 请输入要修改成绩的学号请输入要修改成绩的学号 Get Xh 12,20 Say 请输入要修改成绩的课程代码请输入要修改成绩的课程代码 Get Kcdm Read Locate For 学号学号=Xh.And.课程代码课程代码=Kcdm 14,20 Say 请输入修改成绩请输入修改成绩 G

13、et 成绩成绩 Read use例例9-8 用屏幕格式输入法设计一个程序，向用屏幕格式输入法设计一个程序，向“专业代码表专业代码表”中增加一条新记录。中增加一条新记录。Use 专业代码表专业代码表Append BlankGoto Bottom10,20 say 专业代码专业代码:get 专业代码专业代码12,20 say 专业名称专业名称:get 专业名称专业名称Readuse2输出语句输出语句（1）非格式化输出命令）非格式化输出命令 格式：格式：?表达式表表达式表 格式格式2：?表达式表表达式表 格式格式3：?表达式表表达式表 计算表达式的值并输出。计算表达式的值并输出。参数说明：参数说明：

14、“?”表示在当前行的下一行的首位输出，表示在当前行的下一行的首位输出，”?”表示在当表示在当前行光标所处输出，前行光标所处输出，”?”表示向打印机输出。表示向打印机输出。如果是字符、日期、逻辑常量应使用如果是字符、日期、逻辑常量应使用定界符定界符。如果是一个表达式的各部分的数据类型如果是一个表达式的各部分的数据类型必须一致必须一致。如果是如果是，各表达式之间用逗号，各表达式之间用逗号“，”分隔。分隔。例例9-9：显示当前的日期和时间与表达式的值。显示当前的日期和时间与表达式的值。?”今天的日期是今天的日期是:”,DATE(),”时间是时间是:”,TIME()&如果用如果用“+”连接该如何表达连

15、接该如何表达 A=10 B=20?“A*10-B=”,Str(A*10-B),Space(2)?“A*20-B=”+Str(A*20-B,4)例例9-10：显示字符型表达式的值。：显示字符型表达式的值。?“祝贺祝贺”+北京申奥北京申奥+成功成功&字符串的连接字符串的连接（2 2）屏幕格式输出命令）屏幕格式输出命令 SAY SAY 在指定在指定行、列位置行、列位置上输出表达式的值，输出数据的格上输出表达式的值，输出数据的格式由式由PicturePicture选项或选项或FunctionFunction选项中的控制符控制。选项中的控制符控制。SizeSize、FontFont、StyleStyle

16、和和ColorColor选项是用来控制输出结果的字符范围、选项是用来控制输出结果的字符范围、字体、字型、字号大小和颜色的。字体、字型、字号大小和颜色的。参数说明参数说明:Say Say：表达式可以是常量（字符、日期、逻辑：表达式可以是常量（字符、日期、逻辑常量需要使用相应的定界符）、内存变量、字段变量以及常量需要使用相应的定界符）、内存变量、字段变量以及由它们组成的表达式。表达式只能是一个，而且，表达式由它们组成的表达式。表达式只能是一个，而且，表达式的各部分的数据类型必须一致。的各部分的数据类型必须一致。例例9-119-11：显示字符串常数。：显示字符串常数。3,5 Say 3,5 Say

17、这是一个显示字符串常数的例子这是一个显示字符串常数的例子“例例9-129-12：显示学生档案表的第四条记录的字段内容。：显示学生档案表的第四条记录的字段内容。Use Use 学生档案表学生档案表 GotoGoto 4 4 6,6 Say 6,6 Say“学号：学号：:”+学号学号 7,6 Say 7,6 Say“姓名：姓名：:”+姓名姓名 9,6 Say 9,6 Say“入学年龄：入学年龄：”+StrStr(入学年龄入学年龄,2),2)&数据类型必须一致数据类型必须一致 10,6 Say 10,6 Say“出生日期：出生日期：”+DtocDtoc(出生日期出生日期)例例9-13：屏幕格式输出命

18、令常用来制作应用系统的主菜单。屏幕格式输出命令常用来制作应用系统的主菜单。Clear 2,30 Say*3,30 Say 学籍档案管理系统学籍档案管理系统 4,30 Say 1.建立数据表建立数据表 5,30 Say 2.添加数据添加数据 6,30 Say 3.查询数据查询数据 7,30 Say 4.退出系统退出系统 8,30 Say*11,30 Say 请输入相应的操作序号：请输入相应的操作序号：Get ARead二、二、清屏与注释语句清屏与注释语句1清屏语句清屏语句 Clear 清除屏幕上所有显示的内容。清除屏幕上所有显示的内容。2注释语句注释语句 Note *&Note和和“*”注释语句

19、在程序中单独作为一行，作为程注释语句在程序中单独作为一行，作为程序的注释。序的注释。&注释语句一般写在命令的后面，作为该命令的注释。注释语句一般写在命令的后面，作为该命令的注释。三、三、终止程序执行语句终止程序执行语句1Return 或或Cancel 终止程序的执行，关闭打开的命令文件，返回到终止程序的执行，关闭打开的命令文件，返回到 Foxpro系统的命令窗口。系统的命令窗口。2Quit 终止程序的执行，关闭打开的命令文件，返回到终止程序的执行，关闭打开的命令文件，返回到windows操作系统状态。操作系统状态。3Retry 终止程序的执行，返回到调用行本身，可以实现终止程序的执行，返回到调

20、用行本身，可以实现程序的重复调用。程序的重复调用。8-3 8-3 结构化程序设计概述结构化程序设计概述 所谓结构化，就是指程序或算法的控制结构必须并且所谓结构化，就是指程序或算法的控制结构必须并且只能由只能由顺序结构顺序结构，分支结构分支结构和和循环结构循环结构所构成，程序的执所构成，程序的执行是由这三种结构来控制的。行是由这三种结构来控制的。这三大基本程序结构可以设计任何复杂问题的程序。这三大基本程序结构可以设计任何复杂问题的程序。一、一、顺序结构程序设计顺序结构程序设计 顺序结构是最基本、最普通的结构形式。运行时，也顺序结构是最基本、最普通的结构形式。运行时，也是按照命令书写时的先后次序来

21、执行，在程序执行的过程是按照命令书写时的先后次序来执行，在程序执行的过程中不改变命令执行次序的一种结构。中不改变命令执行次序的一种结构。例例9-15：编写一个求梯形面积的程序。编写一个求梯形面积的程序。Input 请输入梯形的上底：请输入梯形的上底：To M Input 请输入梯形的下底：请输入梯形的下底：To N Input 请输入梯形的高：请输入梯形的高：To H?梯形面积梯形面积=,Str(M+N)*H/2,10,2)Return例例9-169-16：编写一个在：编写一个在“学生档案表学生档案表”中查询年龄大于中查询年龄大于1818岁的岁的9898级浙江籍的学生记录的程序（注意：假设数据

22、表字段中只级浙江籍的学生记录的程序（注意：假设数据表字段中只有出生日期而无年龄字段、学号前二位为年级）。有出生日期而无年龄字段、学号前二位为年级）。ClearUse 学生档案表学生档案表List For Year(Date()-Year(出生日期出生日期)23.And.Subs(学号学号,1,2)=98.And.籍贯籍贯=浙江浙江UseReturn二、二、分支选择结构分支选择结构 编写顺序结构程序虽然简单，但在实际应用编写顺序结构程序虽然简单，但在实际应用中，经常需要对事物做出一定的判断，并依据判中，经常需要对事物做出一定的判断，并依据判断的结果采取不同的处理行为。断的结果采取不同的处理行为。

23、例如：求圆的面积，对半径要做处判断，是例如：求圆的面积，对半径要做处判断，是否大于否大于0，如果是才能参加运算，否则不能运算，如果是才能参加运算，否则不能运算，输出参数错误信息。输出参数错误信息。分支结构有三种基本格式：单分支选择、二分支结构有三种基本格式：单分支选择、二分支选择（选择函数）和多分支选择。分支选择（选择函数）和多分支选择。1 1单分支选择单分支选择 If If 1 EndifEndif 2 Return Return参数说明：参数说明：单分支选择结构是当条件表达式为真时，执行单分支选择结构是当条件表达式为真时，执行 1，然后，再执行，然后，再执行EndIfEndIf后面的后面的

24、 2。如果。如果 条件表达式为假，则直接执行条件表达式为假，则直接执行EndIfEndIf后面的后面的 2。IFIF和和EndIfEndIf必须成对出现，缺一不可。必须成对出现，缺一不可。可以是表达式或表达式的逻辑组合，表可以是表达式或表达式的逻辑组合，表 达式的值必须是逻辑值。达式的值必须是逻辑值。例例9-17：从键盘上输入一个数，若是偶数，则输出。：从键盘上输入一个数，若是偶数，则输出。Input“请输入数据：请输入数据：”To X If Int(X/2)=X/2?X,”为偶数为偶数”Endif Return例例9-18：在学生档案表中，查询王启明的籍贯是否为在学生档案表中，查询王启明的籍

25、贯是否为“江西江西”。如果是，则输出本记录的姓名、学号、班级和年龄。如果是，则输出本记录的姓名、学号、班级和年龄。Clear Use 学生档案表学生档案表 Locate For 姓名姓名=王启明王启明&定位姓名为王启明的记录定位姓名为王启明的记录 If 籍贯籍贯=江西江西?姓名：姓名：,姓名姓名,学号：学号：,学号学号,班级：班级：,班级班级,年龄：年龄：,年龄年龄 Endif Use例例9-19：任意输入三角形三边：任意输入三角形三边,求此三角形的面积。求此三角形的面积。Input 输入三角形的输入三角形的a边：边：To AInput 输入三角形的输入三角形的b边：边：To BInput 输

26、入三角形的输入三角形的c边：边：To C If A+BC.And.B+CA.And.C+AB P=(A+B+C)/2 S=Sqrt(P*(P-A)*(P-B)*(P-C)?三角形的面积为：三角形的面积为：,SEndif Return 以上程序并不完善，即当条件不满足时，程序中不能以上程序并不完善，即当条件不满足时，程序中不能做出进一步的处理。这就说明单分支的功能是有限的，不做出进一步的处理。这就说明单分支的功能是有限的，不能完善地解决分支处理问题。而二分支选择结构就可以处能完善地解决分支处理问题。而二分支选择结构就可以处理好这个问题。理好这个问题。2二分支选择结构二分支选择结构 If条件表达式

27、条件表达式 A系列命令系列命令 Else B系列命令系列命令 Endif D系列命令系列命令Return 二分支选择结构，首先判断二分支选择结构，首先判断条件表达式条件表达式的逻辑值，的逻辑值，若条件为若条件为“真真”时，执行时，执行A A系列命令系列命令。然后，再执行。然后，再执行ENDIFENDIF后面的后面的D D系列命令系列命令。若条件为。若条件为“假假”时，执行时，执行ElseElse后面的后面的B B系列命令系列命令。然后，再执行。然后，再执行ENDIFENDIF后面的后面的D D系列命令系列命令。例例9-20：当行李重量：当行李重量W20KG时，其超过部分则加倍计算收费。时，其超

28、过部分则加倍计算收费。Input“请输入行李重量：请输入行李重量：”To W If WC.And.B+CA.And.C+AB P=(A+B+C)/2 S=Sqrt(P*(P-A)*(P-B)*(P-C)?三角形的面积为：,S Else?输入的边长有错，无法构成三角形！Endif Returnn n思考：从键盘上输入一个整数，判断该数是否满足（被3除余2、被5除余3）设计步骤：输入数值、判断条件、输出结果3IIF()选择函数 IIF()函数是双分支选择语句IfElseEndif的简单形式。在某些情况下，可以用IIF()函数代替IfElseEndif语句，从而简化条件描述，提高程序的执行速度。II

29、F(,)参数说明：若的值为真，则函数返回的值。否则，返回的值。返回值的类型可以是字符型、日期型、数值型和逻辑型。与的数据类型必须是一致。例9-23：在工资管理数据表中，如果基本工资小于700时，将基本工资加150。否则，加120。Use 工资管理数据表 Repl All 基本工资 With 基本工资+iif(基本工资=0):TO XX=IIF(X=200,X+20,X+50)?X=,XRETURN若程序运行时输入100，则运行结果为？4分支语句的嵌套 对于二分支以上的问题，二分支的结构也不能解决，它需要使用分支语句的嵌套。VFP中允许在程序的任何位置进行嵌套。注意层次关系，要求各个层次的IF语

30、句之间不能交叉，每一层的If、Else以及EndIf必须一一对应。当然，这种分支语句嵌套结构，在编写的过程中，稍不注意就会使层次交叉。在VFP中提供了更为简单方便的多重分支结构。例9-25:成绩用优秀（90）、良好(80-90)、中(70-80)及格(60-70)与不及格(=90?你的成绩是:优秀else if cj=80?你的成绩是:良好 else if cj=70?你的成绩是:中 else if cj=60?你的成绩是:及格 else?你的成绩是:不及格 endif endif endifendif习题习题：编编写程序，写程序，计计算函数算函数Y的的值值。1/x+5x0Y=10 x=0X2

31、+12x05多重分支选择结构 虽然可用IF语句嵌套的方式解决多分支选择问题。但是，如果选择的分支很多，则编写的程序可读性差且易出错。这时，一般使用DO CASE-ENDCASE多重分支选择结构来解决。参数说明：执行多重分支选择结构时，会依次判断至的逻辑值，只要一遇到条件表达式为真时，就执行该条件表达式下面的语句序列。执行结束后，立即转向执行Endcase之后的语句。其余的Case语句，即使条件成立，也不执行判断。当所有的Case语句条件都不成立时，如果有Otherwise选项，则执行Otherwise选项下面的语句。否则，转向执行Endcase之后的语句。Do CaseEndcase必须配套。

32、Do Case与第一个Case之间不允许插入任何可执行语句。例9-26、用多分支选择结构改写9-25（学生成绩），其程序为：CLEARINPUT 请输入该同学的分数:TO fs DO CASECASE fs=60 and fs=70 and fs=80 and fs90?你的成绩为：良好OTHERWISE?你的成绩为：优秀ENDCASE法二：CLEARINPUT 请输入该同学的分数:TO fs DO CASECASE fs=60?你的成绩为：及格CASE fs=70?你的成绩为：中CASE fs=80?你的成绩为：良好OTHERWISE?你的成绩为：优秀ENDCASE法一：CLEARINPUT

33、 请输入该同学的分数:TO fs DO CASEcase fs90?你的成绩为：优秀CASE fs=80?你的成绩为：良好CASE fs=70?你的成绩为：中CASE fs=60?你的成绩为：及格OTHERWISE?你的成绩为：不及格ENDCASE例9-27、利用DO CASEEND CASE语句实现菜单选择。例9-28、执行下面的程序，当输入10之后，输出的结果是_。INPUT 请任意输入一个数：X=TO XDO CASECASE X10Y=2*X+5case x15 and x20y=x+5OTHERWISEY=10*X-5ENDCASE?Y=,Yset talk off clearaa=

34、1do case?12345case aa=1 bb=1endcase?bbreturn 思考思考:阅读下面程序，输出的结果是阅读下面程序，输出的结果是_4.循环结构程序设计循环结构程序设计 我们已经学习了顺序结构和分支结构，这种结构的特点是任我们已经学习了顺序结构和分支结构，这种结构的特点是任何一条语句至多只执行一次，但是在处理实际问题的过程中，何一条语句至多只执行一次，但是在处理实际问题的过程中，用这种结构来编写程序就长得不能忍受。比如：计算用这种结构来编写程序就长得不能忍受。比如：计算S=1+2+3+4+5+1000就需要就需要1001条语句。条语句。S=0 S=S+1 S=S+2 S=

35、S+3 。实际上这就是一种重复循环操作，实际上这就是一种重复循环操作，FoxPro提供了这种循环提供了这种循环结构程序设计。事实上结构程序设计。事实上70%以上的实际问题的处理过程都需以上的实际问题的处理过程都需要使用循环结构，重点掌握循环结构程序设计是非常重要的要使用循环结构，重点掌握循环结构程序设计是非常重要的 n在FoxPro中，循环结构有三种：n条件循环条件循环（DOWHILEENDDO）n计数循环计数循环（FORENDFOR）n库文件扫描循环库文件扫描循环（SCANENDSCAN）条件循环条件循环n事先不知道循环次数的事件事先不知道循环次数的事件，用条件循环较好。格式：格式：格式：格

36、式：DOWHILE条件表达式条件表达式循环体语句循环体语句ENDDO（2 2）流程图：）流程图：）流程图：）流程图：n n 说明：说明：说明：说明：DOWHILE是循环语句的起始语句，ENDDO是循环语句的终端语句，必必须须配配套套使使用用；中间是循环体。循循环环初初值值中中的的条条件件表表达达式式可以是是算算术术表表达达式式，例如：X=100等，可以是关关系系表表达达式式，例如：B等，也可以是逻逻辑辑表表达达式式。即凡符合FoxPro系统的一切表达式都可以。修改循修改循环变环变量的量的值值，防止，防止死循死循环环。n注意：注意：1.在在对对数数据据库库进进行行操操作作时时，必必须须用用相相应

37、应的的命命令令来来控控制制记记记记录录录录指指指指针的移动针的移动针的移动针的移动，如，如SKIP、CONTINUE.2.中中，还还可可以以包包含含另另一一种种循循环环结结构构，也也就就是说是说WHILE循环能循环能嵌套嵌套嵌套嵌套，但不能出现交叉。，但不能出现交叉。（4）循环程序的五个主要部分）循环程序的五个主要部分n初始部分初始部分：写在起始语句前，给循环变量赋初值。：写在起始语句前，给循环变量赋初值。n起始起始语语句句：控制循环正常运行。：控制循环正常运行。n工作部分工作部分：循环体部分，完成循环的主要工作。：循环体部分，完成循环的主要工作。n修改部分修改部分：保证循环体在循环的过程中，

38、使控制循：保证循环体在循环的过程中，使控制循环的条件能按一定的规律变化，修改循环变量的值环的条件能按一定的规律变化，修改循环变量的值，防止死循环防止死循环。在对数据库操作时，用。在对数据库操作时，用SKIP、CONTINUE;当条件表达式是关系表达式时用当条件表达式是关系表达式时用K=K+1来修改循环变量的值。来修改循环变量的值。n结结束部分束部分：循环的结束，退出循环，执行：循环的结束，退出循环，执行ENDDO后后面的语句。面的语句。（5 5）例题例题 例例1：任任意意输输入入1010个个自自然然数数，编编程程求求其其和和及及平平均值。均值。分分析析：依依题题意意用用循循环环控控制制输输入入

39、1010个个自自然然数数并并求求和和，故故设设置置一一个个累累加加器器sumsum和和循循环环计计数数器器k k。n例例题题2、求求出出XSDA.DBF数数据据库库中中99212、98321和其他班级的人数。和其他班级的人数。(DOWHILE和和DOCASE嵌套嵌套)n例题例题3、求、求12+22+32+.+1002的和的和n例题例题4 4、求1到100之间的奇数和。习题、执行以下程序，屏幕上显示的结果是_。SET TALK OFFCLEARNO=6DO WHILE NO0 7-NO,3 SAY STR(NO,1)NO=NO-1ENDDORETURN带转移的条件循环结构带转移的条件循环结构 n

40、在条件循环中，还有另外两种选项，在循环体中加入EXIT或LOOP语句。它们常与分支结构一起使用，其形式如下：n格式：格式：DOWHILE条件条件1语句行序列语句行序列1IF条件条件2EXITEXITLOOPLOOPENDIF语句行序列语句行序列2ENDDOn说明说明：n在循环语句中的LOOP语语句句（短短路路循循环环），其作用是终止本次循环的执行。返返回回DO DO WHILEWHILE语语句句，使LOOP后面的语句在这一次循环中不被执行，它可出现在循环体中的任意位置。n在循环体中的EXITEXIT语语句句是一种强强制制退退出出循循环环体体的语句。当执行到该语句时，不管循环语句运行在什么地方，

41、也不管循环次数是否到，都强制转去执行执行ENDDOENDDO后面的语句。后面的语句。n例题：n例：求1到100之间的奇数和。（P193）分 析：判 断 某 一 数 N是 否 为 奇 数，只 要INT（N/2）N2，即该数除以2的商与取整后的结果一致，该数为偶数，否则为奇数。通过计数器N=N+1产生0100之间的数据，逐一进行判断，当为偶数时，用LOOP语句返回DOWHILE起始循环，当为奇数时进行累加求和。n例2：在学生档案（XSDA.DBF）中，按姓名查找某一同学，找到后输出该同学的情况，否则输出“查无此人”；要求进行多次查找要求进行多次查找。习题：阅读程序，写结果。STORE 0 TO N

42、,SDO WHILE.T.N=N+1IF mod(N,3)=1S=S+NENDIFIF N=10EXITENDIFENDDO?“S=”,SRETURN 根根据据例例题题，我我们们可可以以看看出出，在在应应用用程程序序中中常常用用的的循循环环语语句句条条件有以下几种：件有以下几种：n对于循环次数已知的情况，常用模式为：对于循环次数已知的情况，常用模式为：INPUTN=TONK=1&置置K的初始值的初始值DOWHILEK=NK=N循环体语句循环体语句 K=K+1&K=K+1&修改循环变量值修改循环变量值ENDDO在在“永永真真”循循环环中中，用用结结束束标标志志，通通过过EXIT退退出出循循环环，

43、INPUTX=TOxDOWHILE.T.IF EXITEXITENDIF改变改变x的值的语句的值的语句ENDDOn对数据库的操作，常用模式为：对数据库的操作，常用模式为：USE数据库名数据库名置初始值置初始值DOWHILE.NOT.EOF（）（）执行某一任务的语句系列执行某一任务的语句系列SKIPENDDO对某些重复性的工作，由用户随意确定，可多可少。对某些重复性的工作，由用户随意确定，可多可少。yn=YDOWHILEUPPER（yn）Y执行某一任务的语句系列执行某一任务的语句系列WAIT还继续吗（还继续吗（YN）？）？TOynENDDO计数循环计数循环 对于事先已经知道事先已经知道某一个事件

44、需要循环多少次需要循环多少次时，往往使用FOR循环结构。结构：结构：FOR=（初初值值）TO（终终值值）STEP（步长）（步长）循环体语句LOOPEXITENDFOR功能：功能：从 初初 值值 到到 终终 值值 ，循循 环环 执执 行行 FOR和和ENDFOR之之间间的的语语句句。该结构常用于已已已已知知知知循循循循环环环环次次次次数数数数的数值运算。说明：说明：FOR表示循环的开始，ENDFOR表示循环的结束，两者之间是循环体。循循环环变变量量：是循环计数器，是数值型的内存变量，不必先定义不必先定义。步步长长：循循环环变变量量自自动动按按步步长长增增加加，它为可选项，省略，系统默认步长为1。

45、若为正值，则为递增型循环；若为负值，则为递减型循环。LOOP和EXIT：为可选项，LOOP表示转到FOR执行下一个循环操作，EXIT表示强行结束循环。（4）例题 n例题例题1、FORK=1TO4?k=,kENDFORRETURN例题例题2、FORK=4TO1STEP1?k=,kENDFORRETURNn例题例题3 3、求、求1100的累加和。的累加和。n例例 题题 4 4、完完 成成 下下 面面 实实 现现 计计 算算P=1+1/(2*2)+.1/(10*10)的程序的程序SETTALKOFFCLEARP=0FORN=1TO10ENDFOR?PRETURN库文件扫描循环库文件扫描循环 在在数数

46、据据库库应应用用程程序序中中，经经常常要要对对数数据据表表文文件件中中符符合合条条件件的的记记录录逐逐个个进进行行某某种种统统计计操操作作。虽虽然然可可用用DO DO WHILEnoteof()来来处处理理，但但是是系系统统还还提提供供了了另另外外一一种种更更好好的的循循环环结结构构，即即库库文文件件扫扫描描循循环环。它它内内含含有有EOF()、SKIP的作用，不需移动记录指针。的作用，不需移动记录指针。结构：SCAN范范围围FOR条条件件表表达达式式1语句行序列语句行序列LOOPEXITENDSCANn功功能能：在当前工作区数据库的指定范围内，将满足条件的记录，依次执行循环体中所包含的语句行

47、序列，直到文件尾结束。n说明：说明：nSCAN，ENDSCAN必必须须配配套套使使用用。SCAN循循环是内含环是内含EOF（）和（）和SKIP的一种循环处理。的一种循环处理。FOR条件表达式1：其意义是仅对使条件为真的记录执行语句序列的操作。在在使使用用SCANENDSCAN之之前前必必须须先先打打开开被被操作的数据库操作的数据库。例题：n n例例题题：在学生档案（XSDA.DBF）中，显示满足年龄大于23岁的学生姓名、年龄和学号。并统计其个数。n n例例题题2 2、在在数数据据库库XSDA.DBF中中，分分别别统统计计浙江、江西及其它各省浙江、江西及其它各省的人数的人数5、循环常用的三种控制

48、方式小结循环常用的三种控制方式小结1、对对数据库文件数据库文件记录进行操作时的循环控制方式记录进行操作时的循环控制方式格式格式1、SCAN循环语句体循环语句体ENDSCAN格式格式2、DOWHILENOTEOF（）（）循环语句体循环语句体SKIPENDDO2、选择数据库文件中选择数据库文件中符合条件符合条件的记录进行循环操作的记录进行循环操作格式格式1、SCAN范围范围FOR条件条件循环语句体循环语句体ENDSCAN格式格式2、LOCATE范围范围FOR条件条件DOWHILEFOUND()循环语句体循环语句体CONTINUEENDDO3、有限次循环有限次循环的控制方式的控制方式格式格式1、FO

49、RK=1TON循环语句体循环语句体ENDFOR格式格式2、K=1DOWHILEKN循环语句体循环语句体K=K+1ENDDO6.多重循环嵌套多重循环嵌套 n设计程序，实现：设计程序，实现：SETTALKOFFCLEARS=ABCDFORN=1TO4N=1TO4N,1SAYSUBSTR(S,N,1)FORJ=1TONN,J*4SAYSTR(N*J,2)ENDFORENDFORSETTALKONRETURNA1B24C369D481216S=0P=1INPUT 输入N的值 TO NFOR I=1 TO NP=1FOR J=1 TO IP=P*JENDFORS=S+PENDFOR?“S=”,SRETURN例题二、求1!+2!+3!.+N!