Visual FoxPro程序设计 第5章.pdf

《Visual FoxPro程序设计 第5章.pdf》由会员分享，可在线阅读，更多相关《Visual FoxPro程序设计 第5章.pdf（188页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、5.1 VFP程序程序命令文件的建立和执行命令文件的建立和执行5.2 VFP常用编程命令及函数常用编程命令及函数5.3 VFP流程图介绍流程图介绍5.4 顺序执行顺序执行5.5 判断分支判断分支5.6 循环结构循环结构5.7 过程与用户自定义函数过程与用户自定义函数第五章第五章 Visual FoxPro程序设计入门程序设计入门返回主目录第五章第五章 Visual FoxPro程序设计入门程序设计入门5.1 VFP程序程序命令文件的建立和执行命令文件的建立和执行5.1.1 建立和编辑命令文件建立和编辑命令文件1用用MODIFY COMMAND命令建立命令文件命令建立命令文件常用命令格式：MOD

2、IFY COMMAND 文件名的默认扩展名为.PRG。系统首先在磁盘上寻找该文件，若未找到，则建立之，在屏幕上打开一编辑窗口，供用户输入内容；若找到，则把该文件内容调至编辑窗口，由用户进行编辑，并在磁盘上复制一同名、同内容的.BAK文件。编辑结束时，可用End或W结束命令并存盘。也可用Esc键作废编辑并结束命令。2使用菜单操作建立命令文件使用菜单操作建立命令文件操作过程：文件新建选择“程序”单选按钮单击“新建文件”，将打开一编辑窗口，供用户输入程序。3使用项目管理器建立命令文件使用项目管理器建立命令文件有关项目管理器的详细内容参见第十三章。操作过程：首先打开项目管理器选择“代码”选项卡选择“程

3、序”选项单击“新建”按钮，也将打开一编辑窗口供用户输入程序。5.1.2 执行命令文件执行命令文件可在VFP的命令窗口（COMMAND窗口）中执行。命令格式：DO此命令将首先打开该命令文件，然后从其第一条语句开始执行。执行完毕，自动关闭此命令文件，回到命令窗口。5.2 VFP常用编程命令及函数常用编程命令及函数1SET TALK命令基本命令格式：命令基本命令格式：SET TALK ON/OFF在VFP中，有很多SET命令，其中很大一部分是用以转换状态的。本命令就是转换TALK的状态的。TALK的初始状态为ON，在这种状态下，VFP 在执行一些非显示命令时，将把执行结果等信息送到显示器显示。在调试

4、程序时，这种方式是极为有利的。但在执行程序时，一般都不希望如此。此时，可用SET TALK OFF命令来改变TALK状态。TALK处于OFF状态时，屏幕上只显示命令要求输出的结果。2SET PRINTER 命令命令基本命令格式：SET PRINTER OFF/ONPRINTER的初始状态为OFF。当PRINTER状态为OFF时，关闭向打印机的输出。执行SET PRINTER ON命令后，PRINTER状态为ON，此时，输出结果将传送到打印机打印输出。3系统初始化命令系统初始化命令CLEAR ALL命令格式：CLEAR ALL该命令关闭所有打开的库文件、表文件及其有关文件索引文件、备注文件等，清

5、除所有内存变量，清除所有用户自定义下拉菜单、弹出式菜单和窗口，选择1号工作区为当前工作区。常用于应用程序主控模块的开头。4清屏命令清屏命令CLEAR命令格式：CLEAR本命令将清除VFP主窗口或当前用户自定义窗口。该命令常用于应用程序某模块的开头，或在各输出命令前使用。5终止程序执行语句终止程序执行语句CANCEL命令格式：CANCEL该语句将终止正在执行的程序，把控制权返回给COMMAND窗口。CANCEL将释放所有局部性内存变量（见5.7.3节）。在程序设计中，常用CANCEL语句在某种条件满足时终止程序的执行，因此它常与条件选择语句一起使用。6.程序注释语句程序注释语句NOTE/*格式1

6、：NOTE格式2：*注释语句的作用是对程序作注释，不执行任何操作。7.信息框函数信息框函数MESSAGEBOX格式：MESSAGEBOX（,）该函数将显示一个用户自定义对话框。其中，指定在对话框中显示的文本。在该表达式中包含回车符（CHR（13）可以使信息内容移到下一行显示。对话框的高度和宽度会根据字符串适当增大，以包含全部信息。指定对话框中的按钮和图标、显示对话框时的默认按钮以及对话框的行为。在表51中，对话框按钮值从05指定了对话框中显示的按钮；表52中，图标值16，32，48，64指定了对话框中的图标。表53中，默认值0，256，512指定对话框中哪个按钮为默认按钮。当显示对话框时，此默

7、认按钮被首先选中。当省略时，等同于指定值为0。值实际上是3个值的和从上面每个表中选一个值。例如，若为35，即（3+32+0），则显示的对话框含有如下特征：表51 对话框按钮值与按钮类型的对应关系“重试”和“取消”按钮5“是”、“否”按钮4“是”、“否”和“取消”按钮3“放弃”、“重试”和“忽略”按钮2“确定”和“取消”按钮1仅有“确定”按钮0对 话 框 按 钮数 值表表52 对话框图标值与图标类型 数值对话框图标值与图标类型 数值信息（i）图标64惊叹号48问号32“停止”图标16图标数 值表表53 对话框默认按钮值与默对话框默认按钮值与默第三个按钮512第二个按钮256第一个按钮0默认按钮数

8、值值实际上是3个值的和从上面每个表中 选 一 个 值。例 如，若 为 35，即（3+32+0），则显示的对话框含有如下特征：“是”、“否”和“取消”按钮。信息框显示问号图标。第一个按钮，即“是”按钮为默认按钮。指定对话框标题栏中的文本，若省略该字符串，标题栏中将显示“Microsoft Visual FoxPro”。例 如，执 行：MESSAGEBOX(“现 在 了 解MESSAGEBOX()函 数 的 使 用 方 法 了 吗？”,35,“MESSAGEBOX()使用示例”)命令，系统所显示的对话框如图51所示。MESSAGEBOX()函数的返回值为数值型，它标明用户选取了对话框中的哪个按钮，

9、具体规定如表54所示。表表54 函数返回值与选取按钮的对应关系函数返回值与选取按钮的对应关系是5忽略4重试3放弃2取消1确定0选取按钮返回值否6图51 MESSAGEBOX()函数使用示例5.3 VFP流程图介绍流程图介绍在编制程序尤其是编制复杂程序时，常用流程图来进行程序设计和介绍程序的结构。流程图是形象的描述程序设计思想的好方法，它的特点是比较直观、清晰。本教材中，我们使用结构化程序流程图的三种基本图形，如图52所示。图52中（a）、（b）、（c）分别对应顺序、分支、循环结构。图52（a）中的每个矩形对应输入、输出及处理功能。它们的执行顺序按从上至下进行，反映了程序结构的顺序情形。图52（

10、b）中，程序的执行出现了分支，即根据不同情况（条件），执行不同功能。（b1）反映了二分支即两种情况的情形，（b2）反映了多分支即可能出现多种情况的情形（b）中的三角形是一种分支，当满足该条件时，执行该分支下面的功能，而其余分支下的功能不论是否满足条件，一律不被执行。判断满足分支条件的顺序在图形中按先左后右进行。如果有一个分支满足了条件，则立即执行它的功能，而其余皆不执行。若无一分支满足条件，则所有功能均不执行。图52（c）是循环结构图形，图形中顶部和左侧区域是循环的条件和范围。顶部的条件如果满足，则执行给定范围内的语句。然后，再次返回顶部，判断条件是否满足：若满足，则继续执行以下语句；否则，退

11、出循环，结束循环结构。5.4 顺 序 执 行顺 序 执 行5.4.1 顺序执行程序入门顺序执行程序入门完全由顺序执行语句组成的程序称为顺序执行程序。顺序执行方式是最简单的，也是最基本、最常见的一种程序执行方式。例1把表文件“职工.DBF”中李红卫的职称改为“高工”。编程实现如下：SET TALK OFFOPEN DATABASE 雇员管理USE 职工LOCA FOR 姓名=李红卫REPL 职称 WITH 高工DISPUSESET TALK ON请读者自己为该程序起个名，建立一个命令文件，然后运行之。能否让用户现场随意输入人名？语句可完成此工作。5.4.2 命令的基本功能命令的基本功能命令的功能

12、很强，这里只介绍它的基本功能。1显示器的坐标显示器的坐标不同计算机系统的显示器坐标系统是有差别的，用户在使用时，必须了解实际的坐标系统。图53给出了一个显示器的VFP主窗口坐标系。在上图中，X表示行，Y表示列。VFP主窗口左上角坐标为（0，0）。2屏幕输出格式设计命令的基本格式屏幕输出格式设计命令的基本格式利用输出格式设计命令，用户可以在VFP主窗口的任何一个坐标点上显示有关内容。图53 VFP主窗口坐标系(0,79)Y.(24,79)(0,0)(24,0)X本命令在VFP主窗口上，由规定的坐标开始，显示命令中的值。命令中的“行”和“列”，可以是具体的数值，也可以是数值型内存变量或数值表达式。

13、的最常见形式是一个用引号括起的字符串常量，作为提示信息用。例2 G1.PRG 程序如下:CLEAR 1,20 SAY 职工号2,10 SAY 3*5+2=ROW(),COL()SAY 3*5+2ROW()+1,5 SAY 这是一本书执行后，屏幕显示如下：职工号3*5+2=17这是一本书第一条命令在第1行第20列开始显示：职工号。第二条命令在第2行第10列开始显示：3*5+2=。第三条命令在光标当前位置开始显示表达式3*5+2的值：17。第四条命令在下一行第5列开始显示：这是一本书。3屏幕输入格式设计命令的基本格式屏幕输入格式设计命令的基本格式命令基本格式：SAYGETDEFAULT格式中的可以

14、是一个内存变量、下标变量或当前打开表文件的一个字段名。该命令将从规定的坐标开始，首先输出SAY子句（若存在）的值，空一格后，再接着输出GET子句中的的值。DEFAULT：若GET子句中的不存在，则命令中必须包含本子句。本子句将建立一个值为的变量。若存在，本子句被忽略。例3 G2.PRG程序如下：USE 职工CLEAR 3,5 SAY职工姓名为：GET 姓名4,5 SAY 月工资为：GET 工资执行后，屏幕显示如下：职工姓名为：胡一民月工资为：575.004READ命令的基本功能命令的基本功能READ命令有着丰富的功能，这里仅介绍它的基本功能。READ命令的基本格式为：READ 执行READ命令

15、时，光标返回到屏幕上第一个GET子句的变量值处。若用户键入新值，该变量值即被新值代替；若仅以回车键响应，则原变量值不变。用新数据取代旧数据时，以回车键或达到原定义的变量长度为结束。然后，光标跳到下一个GET子句的变量值处。用户重复上述修改过程，直至READ命令前所有GET子句的变量都修改后，结束此命令，并把各变量新值送回各变量。例4 G3.PRG程序如下：USE 职工CLEAR3,5 SAY 职工姓名为：GET 姓名4,5 SAY 月工资为：GET 工资READ程序执行后，屏幕上显示：职工姓名为：胡一民月工资为：85.00这时光标在“姓名”字段值“胡一民”的首字符处，用户可修改两字段值。5.4

16、.3 其它键盘输入语句其它键盘输入语句1键盘输入单字符语句键盘输入单字符语句WAIT语句基本格式：WAIT“提示信息”TOWAIT语句首先显示“提示信息”（若语句中有提示信息项，则显示语句中给定提示信息；否则，显示WAIT语句固有提示信息：按任一键继续），接着暂停程序的执行，等待用户键入另一键。用户按下另一键后，这个键的值（若是回车键或不能打印键或组合键，值为空串）作为一个单字符字符串，送（若选择了TO子句的话，它可以是一个内存变量，也可以是一个下标变量。如果内存中不存在，则自动生成之）。WAIT语句执行完毕，程序继续执行。WAIT语句响应速度快，它只接收单个字符，并且不需要再按回车键。WAI

17、T语句常用于两种情况：1)用于只需从键盘输入单个字符的情况（现举例说明）例5 查看表文件“职工.DBF”中某一记录情况。每查看完一个，要求系统给出提示：“是否继续查询（Y/N）”。要求快速响应，以便根据输入的数据控制查询是结束还是继续显示另一个记录。程序清单如下：SET TAKL OFFCLEAROPEN DATABASE 雇员管理USE职工DO WHILE.T.XM=5,10 SAY 请输入待查姓名GET XMREADLECA FOR 姓名=XMIF FOUND()DISPELSE?查无此人ENDIFWAIT 是否继续查询（Y/N）:TO YNIF UPPE(YN)=NEXITENDIFEN

18、DDOUSECLOSE DATABASESET TALK ON是否继续查询（Y/N）：这时只要用户键入“N”，则结束程序运行。如果用户键入的是其它任一键，则屏幕上又显示：请输入待查姓名：再重复执行以上程序。2)WAIT语句常用的第二种情况当程序执行的结果在屏幕上显示出来后，为了让用户能看清所显示的内容（由于程序在不断执行，屏幕上显示的结果会一闪而过），在程序的适当位置可以用WAIT语句使屏幕显示的结果停留下来，当你看清屏幕上的内容之后，再按任一键让程序继续执行。在这种情况下，WAIT语句具有独特的优越性。2.键盘输入字符串语句键盘输入字符串语句ACCEPT语句格式：ACCEPT“提示信息”TO

19、 执行本命令时，首先输出（若存在）；然后等待用户从键盘键入数据。用户输入完数据，按回车键后，系统把用户输入的数据作为一个字符串（用户不要输入字符括号：单引号、双引号或方括号）送给指定的变量。用户也可键入一个字符表达式，系统将其值送指定变量。3键盘输入语句键盘输入语句INPUT语句格式：INPUT“提示信息”TO 执行本命令时，首先在屏幕上输出“提示信息”，并等待用户键入数据；用户按回车键后，即把用户键入的表达式求值，送。表达式是什么类型，即是什么类型。5.4.4 顺序执行程序举例顺序执行程序举例例6 对于5.4.1的例子，我们进行一些修改如下：SET TALK OFFUSE 职工XM=XZC=

20、10,10 SAY请输入姓名：GET XM12,10 SAY请输入新职称：GET XZCREADLOCA FOR 姓名=XMDISPUSESET TALK ON上述程序不能对输入值进行分析。判断分支语句可解决此问题。5.5 判 断 分 支判 断 分 支5.5.1 条件转向语句条件转向语句IFENDIF这是一种简单的分支语句，语句格式如下：IFENDIF 值为“真”时，顺序执行IF和ENDIF间的语句行序列，然后再执行ENDIF后的语句；若其值为“假”时，则直接跳到ENDIF后面的语句继续执行。图54 条件转向语句流程图 条件表达式 为.T.为.F.语句行序列 ENDIF 语句 IF和ENDIF

21、必须成对出现。图54给出了此语句的流程。例7对5.4.3中的例子引伸一步，如果表文件中该指定人员的职称与新定的职称相符，则不作任何操作。流程图如图55所示。依据流程图，编制程序如下：SET TALK OFF OPEN DATABASE 雇员管理USE 职工MX=XZC=10,10 SAY 请输入姓名：GET XM12,10 SAY 请输入新职称：GET XZCREADLOCA FOR 姓名=XMIF 职称 XZCREPL 职称 WITH XZCENDIF DISP USECLOSE DATABASESET TALK ON5.5.2 条件选择转向语句条件选择转向语句IFELSEENDIF语句格式

22、：IF语句行序列1ELSE ENDIF 执行此语句时，计算机首先判断条件表达式的值是否为真；若为真，执行，然后跳过，从ENDIF后面的语句开始继续执行；若条件表达式的值为假，则直接跳转执行，然后再执行ENDIF后面的语句。流程图如图56所示。例8求出表文件“职工.DBF”中指定人员的年龄。如果年龄大于40岁，工资加10元；否则，工资加5元。按题意编制流程图如图57所示。依据流程图，编制程序如下：图57 例8的流程图年龄40?是否工资10工资5显示该记录关闭数据库及表文件计算该职工的年龄令指针指向该记录输入职工姓名打开数据库及表文件设置初始状态SET TALK OFFCLEAROPEN DATA

23、BASE 雇员管理USE 职工NF=0XM=5,10 SAY请输入今年的年份：GET NF7,10 SAY 请输入姓名：GET XMREADLOCA FOR 姓名=XMNL=NF-YEAR(出生日期)IF NL40 REPL 工资 WITH 工资+10ELSE REPL 工资 WITH 工资+5ENDIFDISP USECLOSE DATABASESET TALK ON程序中的YEAR()函数是求年份函数，用今年的年份减去出生的年份，便是指定人员的年龄。程序其它部分请读者自行分析。5.5.3 IF语句的嵌套语句的嵌套一个IF语句可以有两个完整的分量：其一是从IF到ELSE之间的；其二是从ELS

24、E到ENDIF之间的（无ELSE时，IF语句只有一个完整的分量，即从IF到ENDIF之间的语句行序列）。所谓IF语句的嵌套，是指在一个IF语句的一个完整的分量中，包含了另一个完整的IF语句。例9为鼓励存款，对定期存款时间少于1年的，利率为3%；等于或大于1年而少于3年的，利率为5%；等于或大于3年而少于5年的，利率为7%；5年以上的，利率为9%。按题意画流程图如图58所示。程序清单如下：图58 例9的流程图定期5年?是否利率0.07利率0.09利率0.05否是定期3年?利率0.03是否定期1年?输入存款年限SET TALK OFF CLEAR NX=0 5,10 SAY输入定期年限：GET N

25、XREADIF NX1LL=0.03 ELSE IF NX3 LL=0.05 ELSEIF NX5 LL=0.07 ELSE LL=0.09 ENDIF ENDIFENDIF?利率=，LLSET TALK ON在这个例子中，我们用了两个以上的IF语句，且一个IF语句嵌套在另一个IF语句之中，这种形式就称为IF语句的嵌套形式。在编制程序时，遇到嵌套的情况，应注意书写格式，按照嵌套的层次，一层一层书写成锯齿形结构，上机调试程序时更应如此，这样可以使程序清晰易读，出了错也便于检查。5.5.4 情况语句情况语句DO CASE ENDCASE情况语句中有许多成分语句，它根据条件的具体情况选择执行其中的某

26、一个成分语句，它是IFENDIF语句的发展。情况语句的格式如下：DO CASE CASE CASE CASE OTHERWISEENDCASE 在情况语句的格式中,各条件表达式的值必须是逻辑值“真”或“假”。OTHERWISE子句为可选项。有此可选项时，它必须放在所有成分语句之后。执行时，系统依次查看每一个CASE的条件，碰到第一个条件成立者，则执行该条件下的语句序列。执行完后，直接跳转ENDCASE后。如果所有的条件都不成立，若无OTHERWISE子句，则不执行任何成分语句，立 即 跳 出 情 况 语 句；有 可 选 项 OTHEWISE 时，执 行OTHEWISE子句的语句行序列，再跳转E

27、NDCASE后。在情况语句中，如果条件为真的情况多于一个，则仅仅执行第一个条件为真者。DO CASE和ENDCASE必须成对出现。在DO CASE与第一个CASE之间的任何语句，永远都不执行。情况语句流程图如图59所示。例10用情况语句重新编制5.5.3中的例子，比较情况语句与条件转向语句的用法。依据情况语句流程图，重新画流程图如图510所示。程序清单如下：SET TALK OFF CLEAR NX=0图59 情况语句流程图条件1 条件2 条件n OTHER-为.T.为.T.为.T.WISE语句序列2语句序列n语句序列n+1ENDCASE后的语句语句序列1图510 例10的流程图输入存款年限定

28、期定期定期1年3年5年OTHERWISE利率=0.03 利率=0.05 利率=0.07 利率=0.09SET TALK OFF CLEAR NX=0 5,10 SAY输入定期年限：GET NXREADDO CASECASE NX1 LL=0.03 CASE NX3LL=0.05CASE NX5LL=0.07OTHERWISELL=0.09ENDCASE?利率=，LLSET TALK ON可见，同样一个问题，用DO CASEENDCASE语句比用IFENDIF语句要简洁得多。它格式整齐，简单清晰，便于分析和阅读。DO CASE语句也可以嵌套。在DO CASE语句中，语句行序列1、语句行序列2、都

29、是完整的分量。所谓DO CASE语句的嵌套，是指在一个DO CASE语句的一个完整的分量中，包含了另一个完整的DO CASE语句。但在DO CASE与第一个CASE之间不能有任何语句。DO CASE语句和IF语句可以互相嵌套，即一个语句的一个完整分量中包含了另一个完整语句。5.6 循 环 结 构循 环 结 构5.6.1 三条循环语句三条循环语句1循环语句循环语句DO WHILE(1)DO WHILE语句的语句格式为：DO WHILEENDDO 其中，DO WHILE为循环起始语句；ENDDO为循环结束语句；循环体是几条语句组成的语句行序列，执行循环体能完成的功能即为此循环的基本功能。(2)DO

30、 WHILE语句的执行过程。图511给出了DO WHILE语句的执行流程。系统在执行程序过程中，遇到了循环起始语句DO WHILE时，首先计算的值。此值为真时，系统就顺序往下执行循环体中的语句，即执行循环体；当此值为假时，系统不再执行循环体，而跳到ENDDO的下面一句去执行，即“跳出循环体”。执行到循环结束语句ENDDO时，表示循环体已结束，系统“回跳”到循环起始语句去再一次执行DO WHILE语句。图511 DO WHILE循环语句流程图当条件表达式为假时，退出循环；循环体ENDDO结束循环，执行一条语句否则，重复执行 执行到循环结束语句ENDDO时，表示循环体已结束，系统“回跳”到循环起始

31、语句去再一次执行DO WHILE语句。ENDDO和DO WHILE语句必须成对出现。在循环体内必须有使逐渐为假的语句；否则，将进入死循环。2循环语句循环语句SCAN(1)SCAN语句的语句格式：SCANFORWHILENOOPTIMIZEENDSCAN其中，SCAN为循环起始语句，ENDSCAN为循环结束语句。本语句对范围内满足条件的记录执行。默认范围值为ALL。(2)SCAN语句的执行过程。在执行程序时，遇到SCAN语句，系统即在范围内顺序查找第一条满足条件的记录（条件项以WHILE开头时，情况与以FOR开头的有差别，见第三章中命令的一般形式）。找到后，即执行循环体部分，然后再顺次往下查找下

32、一条满足条件的记录搜索完范围内最后一条记录后，SCAN语句执行完毕。3循环语句循环语句 FOR(1)FOR语句的语句格式：FOR=TOSTEP ENDFOR/NEXT 语句格式中，既可是一个内存变量，也可以是某数组的一个下标变量。若不存在，则自动建立之。(2)FOR语句的执行过程如图512所示。第一步，系统首先求出、（若缺省，默认为1）的值，并分别作为循环初值、循环界值、步长，存入内存有关区域。第二步，系统给循环变量赋初值。第三步，判断循环变量越界否。若越界，则FOR循环执行完毕，转去执行ENDFOR（或NEXT）后的第一条语句；若不越界，则执行循环体。第四步，遇到ENDFOR(或NEXT)时

33、，循环变量内容增加步长值。然后，转第三步。对于FOR语句的执行流程，再作如下说明：三个表达式的值求出后，即送内存有关区域存储。以后，在执行循环体时，若对三个表达式中所含变量内容作了修改，也不会影响到循环初值、循环界值、步长。给循环变量赋初值后，若初值已经越界，则一次也不执行循环体，FOR语句就告结束，转ENDFOR（或NEXT）后一语句。当步长大于0时，循环变量值大于循环界值时为越界；当步长小于0时，循环变量值小于循环界值时为越界。执行循环体时，若修改了循环变量值，将会影响到循环执行次数。5.6.2 对表文件记录进行操作时的循环控制方式对表文件记录进行操作时的循环控制方式1对表文件记录进行逐条

34、操作的循环控制方式对表文件记录进行逐条操作的循环控制方式格式1：SCANENDSCAN格式2：DO WHILE.NOT.EOF()SKIPENDDO 格式1的循环起始语句SCAN不带任何范围和条件，因此，对所有记录逐条进行操作。格 式 2 中，循 环 起 始 语 句 DO WHILE 的 条 件为.NOT.EOF()，在循环体内有执行一条记录指针下跳一条记录的SKIP语句。因此，也能实现对所有记录逐条进行操作的目的。这里，SCAN语句显然比DO WHILE语句简洁。例11用逐条记录循环操作的方法，打印输出表文件“职工.DBF”中每条记录的姓名和工资。依题意，本例的流程图如图513所示。对每一条

35、记录，均执行循环体，直至表文件结束打印姓名、工资值关闭数据库及表文件打开数据库及表文件设置结束状态打印标题设置初始状态图513 例11的流程图采用SCAN语句，则程序如下：SET TALK OFFCLEARSET PRINTER ON?姓名工资OPEN DATABASE 雇员管理USE 职工SCAN?姓名+?工资ENDSCANUSECLOSE DATABASESET PRINTER OFFSET TALK ON若采用DO WHILE 语句，只要对程序略加修改即可，请读者自行试验之。2选择表文件中符合条件的记录进行循环操作选择表文件中符合条件的记录进行循环操作格式1：SCANFORENDSCAN

36、 格式2：LOCATEFORDO WHILE FOUND()CONTINUE ENDDO 两格式都对范围内符合条件的记录逐条进行操作。执行完后，记录指针都指向范围内最后一条记录（范围为ALL时，则指向尾后）。例12修改表文件“职工.DBF”中职工的工资，对工资不超过600元且不低于500元者加10元。依题意，画流程图如图514所示。采用SCAN语句，程序如下：SET TALK OFF CLEAR 图514 例12的流程图 对工资600且工资500的所有 职工,执行循环体工资工资10关闭数据库及表文件打开数据库及表文件设置结束状态设置初始状态USE CLOSE DATABASE SET PRIN

37、TER OFFSET TALK ON若采用DO WHILE语句，则程序其它部分不变，仅把循环部分改为：LOCA FOR 工资=500DO WHILE FOUND()REPL 工资WITH 工资+10CONTENDDO5.6.3 循环结构中两条有用的语句循环结构中两条有用的语句1退出循环语句退出循环语句EXIT前面介绍的循环语句格式中，一旦进入循环，循环次数实际上已经确定。但在实际应用中，常希望在某种情况下，强迫循环语句结束，去继续执行循环语句后的其它语句。EXIT语句可实现这一要求。语句格式：EXITEXIT语句可放在循环体内的任何位置。当程序执行到EXIT语句时，立即强迫退出循环，转去执行循

38、环后的语句。EXIT语句通常包含在IF语句或DO CASE语句中，当某条件出现时，才被执行。通常用于无限次循环的控制，其常用格式如下：格式1：DO WHILE.T.IF EXITENDIFENDDO 格式2：DO WHILE.T.DO CASE CASEEXIT CASEENDCASE ENDDO 例13 打印某种报表，每打印完一张，便提示用户是否还要打印，由用户输入的信息来进行控制，试编程序实现这种功能。依题意画流程图如图515所示。程序如下：序如下：CLEAR ALLDO WHILE.T.CLEARANSWER=MESSAGEBOX(继续打印吗?,36,打印提示)IF ANSWER=7EX

39、IT ENDIF ENDDO 这段程序中，CLEAR ALL语句用来清除一切内存变量，然后进入循环。循环起始语句中的条件表达式为逻辑值.T.，也就是说，该语句所设置的循环条件永远为真。这样，循环将要无休止地执行下去。为了避免这种死循环现象的出现，在循环体内设置了退出循环语句EXIT。每当打印完一张报表时，MESSAGEBOX()函数便显示一对话框提示用户：“继续打印吗？”，并暂停程序执行。图515 例13的流程图继续打印吗？跳出循环ENDIF语句打印报表重复执行循环体设置初始状态为.T.为.F.这时如果用户单击“否”按钮，则程序跳出循环，终止打印；如果单击“是”按钮，则继续执行打印报表程序段，

40、重复以上过程。EXIT语句并不仅仅用在无限次循环控制方式中，所有的循环控制方式中都可使用；不仅可以用在DO WHILE语句中，也可用在FOR、SCAN语句中，功能永远不变。2短路循环语句短路循环语句LOOP在实际应用中，还常常会遇到根据某种条件需短路正在执行的循环体，重新回到循环开始处的要求。LOOP语句提供了这种功能。语句格式：LOOPLOOP语句可出现在循环体内任一位置。它的功能为，强迫结束本次执行循环体的工作，就好像执行循环体时，遇到了循环结束语句ENDDO、ENDSCAN或ENDFOR。LOOP一般也应受到某种条件的限制。通常用于遇到某个特殊条件时，需阻止执行循环体内剩余语句的场合。例

41、14假设有一个表文件“工资.DBF”，其中包括有“姓名”、“实发工资”等字段，有20个记录。现在要求显示出此表中前10个记录的“姓名”和“实发工资”，但是，如果遇到“姓名”为“王林”的则不显示。编程序实现。依题意绘制流程图如图516所示。采用SCAN循环语句，程序如下：图516 例14的流程图姓名王林?短路循环显示姓名、实发工资对前10个记录,重复执行打开数据库及表文件为.F.为.T.ENDIFCLEAR OPEN DATABASE 雇员管理USE 工资SCAN FOR RECNO()=10IF 姓名=王林LOOP ENDIF?姓名，实发工资ENDSCAN USECLOSE DATABASE若

42、采用DO WHILE循环语句，程序较复杂：OPEN DATABASE 雇员管理USE 工资DO WHILE RECNO()=10IF 姓名=王林SKIP LOOP ENDIF?姓名，实发工资SKIPENDDO USE CLOSE DATABASE其中，两个SKIP语句一个也不能少！少了上面一个SKIP，程序将陷入死循环；少了下面的SKIP，也将陷入死循环，且屏幕上将连续显示同一记录的相同内容。例15 令计算机从零开始计数，并将奇数累加求和。当奇数累加和大于300时，结束计数；否则，继续计数。试编程序实现之。依题意编程如下：SET TALK OFFX=0JSH=0DO WHILE.T.X=X+1

43、DO CASECASE INT(X/2)=X/2LOOPCASE INT(X/2)X/2JSH=JSH+XIF JSH300EXITENDIFENDCASEENDDOSET TALK ON?奇数和=?JSH运行这个程序的结果，得到刚刚大于300的奇数和是324。在这个程序中，既有退出循环语句EXIT，又有短路循环语句LOOP，读者不难从这个例子中区别认识这两种语句在循环中的用法。5.6.4 循环结构应用举例循环结构应用举例1.循环语句与其它分支判断语句的嵌循环语句与其它分支判断语句的嵌套所谓嵌套，即为：在一个语句的一个完整的分量中，包含了另一个完整的语句。一个循环语句，有且仅有一个完整的分量，

44、就是循环体。下面，以DO WHILE语句为例，给出循环语句与其它分支判断语句互相嵌套的一般形式,如图517所示。例16建立一个命令文件修改表文件“职工.DBF”中的工资，对于工资在小于等于600元与大于等于500元之间的职工增加20元，而对于工资大于600元的职工增加100元。要求逐条记录进行操作。图517 循环语句与其它分支判断语句的互相嵌套例16建立一个命令文件修改表文件“职工.DBF”中的工资，对于工资在小于等于600元与大于等于500元之间的职工增加20元，而对于工资大于600元的职工增加100元。要求逐条记录进行操作。依题意编程如下：OPEN DATABASE 雇员管理USE 职工S

45、CANDO CASE CASE 工资=500 REPLACE 工资 WITH 工资+20CASE 工资600REPLACE 工资 WITH 工资+10ENDCASE ENDSCAN USE CLOSE DATABASE在嵌套使用时，注意不要互相交叉，下面给出两种错误的形式,如图518所示。在嵌套使用时，一定注意避免出现这类错误。例17假设某中学有一个管理记录本校学生成绩的表文件“XSCJ.DBF”，它的结构如下：字段名类型宽度小数学号数值型5 姓名字符型8 性别字符型2年级数值型2语文数值型5 2数学数值型5 2物理数值型5 2化学数值型5 2英语数值型5 2主平均数值型5 2总平均数值型5

46、2升留判定字符型6升留判定字符型6要求编写一个程序：根据表中录入的各门课成绩，计算出每个学生的语文和数学两门主课的平均成绩与五门课的总平均成绩，然后根据学生的成绩来决定学生是升级、留级，还是补考。如果主课平均成绩及格者，则升级；主课平均成绩不及格，但总平均成绩及格的，则同意补考；主课平均成绩不及格且总平均成绩也不及格者，则留级。最后分别打印出升级学生名单，留级学生名单和补考学生名单。依题意，本例的流程图如图519所示。图519 例17的流程图打开相关表文件对每一条记录，均执行主平均=（语文+数学）/2总平均=（语文+数学+物理+化学+英语）/5主平均60 主平均=60 且总平均=60升留判定=

47、“升级”升留判定=“留级”升留判定=“补考”打印升级记录打印留级记录打印补考记录根据流程图编制程序如下：SET TALK OFFUSE XSCJSCANREPLACE 主平均 WITH(语文+数学)/2REPLACE 总平均 WITH(语文+数学+物理+化学+英语)/5DO CASECASE 主平均=60REPLACE 升留判定 WITH 升级 CASE 主平均60.AND.总平均60REPLACE 升留判定 WITH 留级CASE主平均=60REPLACE 升留判定 WITH 补考ENDCASEENDSCANLIST FOR 升留判定=升级 TO PRINTLIST FOR 升留判定=留级

48、TO PRINTLIST FOR 升留判定=补考 TO PRINTUSESET TALK ON请读者自行分析之。2多重循环多重循环多重循环即循环的嵌套，在一个循环的循环体中，包含有另一个循环。我们称外层循环为外循环，被包含的循环称为内循环。以DO WHILE为例，多重循环的一般格式如图520所示。例18 编制一张九九乘法表，要求格式如下：*1 2 3 4 5 6 7 8 9 11 4 2 2 4 3 6 9 4 8 12 16 5 10 15 20 25 6 12 18 24 30 367 14 21 28 35 42 49 8 16 24 32 40 48 56 64 9 9 18 27 3

49、6 45 54 63 72 81分析：这是一个二重循环问题，一方面横向参数要变化，另一方面纵向参数也要变化。在这里，我们设定纵向参数为A，横向参数为B。流程图如图521所示。程序如下：SET TALK OFFCLEAR?*FOR A=1 TO 9?AENDFOR?FOR A=1 TO 9?AB=1DO WHILE B=AP=A*B?PB=B+1ENDDO?ENDFOR SET TALK ON5.7 过程与用户自定义函数过程与用户自定义函数在一个程序中，如果需要在多处执行完成同一功能的程序段，那么，重复书写一相同程序段，是一项相当繁琐且容易出错的工作。能否对这样的程序段只书写一次而又多次调用呢？

50、VFP提供了设计过程或用户自定义函数的功能，利用过程或用户自定义函数就能满足以上的需要。把需要在多处重复使用的程序段编写成一个相对独立的程序模块，这个程序模块就称为过程或用户自定义函数。这样，在一个程序中，需要完成这个程序模块的功能的地方就不用再重复编制程序了，而是通过调用该过程或用户自定义函数来完成。我们把调用过程或用户自定义函数的程序称为主程序。另外，在编制一个较复杂的程序时，利用过程或用户自定义函数可以使复杂程序简化。按照复杂程序中要实现的若干主要功能，把整个程序划分成几个相对独立的功能模块，将每个功能模块分别独立地编程，最后用一个主程序直接或间接地调用这些过程或用户自定义函数。这种方法