第6章程序设计基础.pdf

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

1、第第 6 章章 程序设计基础程序设计基础 学习目标学习目标 在本章中将学习：l 如何创建程序 l 条件语句 l 循环语句 l 如何调试程序 6.1 程序与程序文件程序与程序文件 6.1.1 程序的概念程序的概念 什么是程序？打个比方，比如我们炒菜，流程如下：1 准备食材，佐料 2 清洁食材 3 整理食材（切块或切丝）4 开火，放上炒锅，倒入食用油，加热食用油 5 将食材放入炒锅翻炒 6 淋入料酒 7 加入食盐，鸡精等佐料 8 继续翻炒至熟 9 起锅装盘 这就是一个炒菜的基本程序，从上面我们可以看出，程序是一组指令的集合。计算机本身并不能主动地为我们工作，因此我们必须对它下达指令，而它根本不会也

2、不可能听懂人类自然语言对事情的描述，因此我们必须使用程序来告诉计算机做什么事情以及如何去做？甚至对最简单的任务也需要指令，例如如何取得击键，怎样在屏幕上放一个字母，怎样在磁盘中保存文件等等。程序（Program）就是为实现特定目标或解决特定问题而用计算机语言编写的命令序列的集合。程序是人类思维逻辑的体现，可以说程序就是思维。而我们学习程序设计其实就是深入、强化、完善我们的逻辑思维能力。有句话说的好，不怕做不到就怕想不到，只要我们能够设计出相应的程序，那么计算机将可以为我们提供相应的服务。程序设计的步骤是：(1)研制程序逻辑以解决某一特别问题。(2)以某种编程语言的形式编写程序逻辑（编程）。(3

3、)汇编或者编译程序把它转换成机器语言形式。(4)检测和调试程序。(5)准备必要的文件编制。6.1.2 程序文件的建立与执行程序文件的建立与执行 Visual FoxPro 程序由代码组成，代码包括以命令形式出现的指令、函数或 Visual FoxPro 可以理解的任何操作。【例【例 6.1】在】在 Visual FoxPro 命令窗口中编写命令窗口中编写 Hello.prg 操作步骤：操作步骤：1.启动 VFP，打开窗口-命令窗口，在命令窗口中输入命令 MODIFY COMMAND Hello。2.编写程序如下：*-*程序名称：Hello.prg*功能说明：1.在屏幕上输出你好！2.弹出对话框

4、显示你好！*-？“你好！”&在屏幕中输出你好！MESSAGEBOX(“你好！”)&弹出对话框，显示你好！3.按 CTRL+W 存盘或点击“文件-保存”菜单存盘，程序文件的扩展名为.PRG。4.打开命令窗口，输入命令 DO Hello，运行程序。程序运行结果如图 6-1。图图 6-1 Hello.prg 程序运行结果程序运行结果 程序说明：程序说明：在这个程序中，前 4 行都是注释语句，行注释使用“*”号开始，后面可以书写对程序的说明文字。，第 5 行是在屏幕上输出你好！，第 6 行是弹出对话框显示你好！，使用了 MESSAGEBOX()函数。在命令行中，&表示行内注释，其后是说明性文字。通过此

5、例我们知道，使用命令 MODIFY COMMAND 可以创建并编辑 VFP 程序，使用DO 命令可以运行 VFP 程序。一、创建、编辑程序文件一、创建、编辑程序文件 创建和编辑程序文件的命令是 MODIFY COMMAND。语法：语法：MODIFY COMMAND FileName|?功能：功能：打开一个编辑窗口，从中可以修改或创建程序文件。参数：参数：FileName 指定打开或创建的程序文件名。?显示“打开”对话框。可以从中选择一个已有程序或键入要创建的新程序名。知识链接知识链接 若不指定新建程序文件的扩展名，Visual FoxPro 自动指定.PRG 为扩展名。MODIFY COMMA

6、ND 支持含有星号(*)和问号(？)通配符的文件梗概。名称与这个文件梗概匹配的每一个文件都在编辑窗口中打开。若省略文件名，将给打开的编辑窗口赋以一个初始名称“程序 1.PRG”。当关闭编辑窗口时，可以用另外的文件名保存该文件。创建 VFP 程序方法之二，点击菜单文件-新建-选择程序-新建。如图 6-2 所示 图 6-2 新建程序 二、程序文件的执行二、程序文件的执行 1以命令方式执行以命令方式执行 运行程序的命令是 DO 命令。语法：语法：DO ProgramName1|ProcedureName IN ProgramName2 WITH ParameterList 功能：功能：执行一个 Vi

7、sual FoxPro 程序或过程。参数：参数：ProgramName1 指定要执行的程序的名称。ProcedureName 指定要执行的过程的名称。IN ProgramName2 子句：执行 ProgramName2 指定的程序文件中的一个过程。WITH ParameterList 指定要传递给程序或过程的参数。列在 ParameterList 中的参数可以是表达式、内存变量、字母和数字、字段或用户自定义函数。说明说明 关于过程的概念和应用见 6.3 节。一个程序文件自身又可以包含其他的 do 命令，这种嵌套最多可允许 128 级。当使用 DO 运行一个程序时，包含在程序文件中的命令一直执行

8、，直到下列某一事件发生：l 遇到 RETURN 语句。l 执行了 CANCEL 命令。l 执行了另一个 DO 命令。l 到达文件末尾。l 执行了 QUIT 命令。当程序执行结束时，控件可以返回到:l 调用的程序。l 命令窗口。l 操作系统。如果是从“程序”菜单中选择“执行”命令，并在非当前的某个目录或驱动器上执行一个程序，Visual FoxPro 就自动地将默认的目录和驱动器改为包含该程序的目录和驱动器。知识链接知识链接 如果执行的程序不包含扩展名，Visual FoxPro 就以下列顺序查找并执行这些版本的程序:.EXE(可执行版本).APP(一个应用程序).FXP(已编译的版本).PRG

9、(程序)若要使用 DO 执行一个特定的菜单程序、表单程序或者查询，则必须包含它的扩展名(.MPR、.SPR 或者.QPR)。6.1.3 简单的输入输出命令简单的输入输出命令 一、一、?命令（输出命令）命令（输出命令）语法：语法：?|?Expression1 功能：功能：计算表达式的值，并输出计算结果。参数：参数：Expression1?Expression1 该命令计算表达式 Expression1 的值，然后先输出一个回车和换行符，再输出计算结果。计算结果显示在 Visual FoxPro 主窗口或者活动的用户自定义窗口的下一行。如果省略了表达式，则显示或打印一个空行。当包含多个表达式时，表

10、达式结果之间将插入一个空格。?Expression1 计算表达式 Expression1 的值，并把结果显示在 Visual FoxPro 主窗口、活动的用户定义窗口或者打印机当前行的当前位置上。输出计算结果前不回车换行。二、二、ACCEPT 命令命令 语法：语法：ACCEPT 提示信息 TO 内存变量 功能：功能：在程序执行过程中，将用户交互式输入的内容作为字符串赋值给指定内存变量。说明：说明：该命令只接受字符型数据，输入的字符串不需要加定界符【例【例 6.2】输入姓名，显示“你好！】输入姓名，显示“你好！XXX”。”。操作步骤：（1）打开命令窗口，输入命令 MODIFY COMMAND S

11、AYHELLO（2）输入程序如下：*-*程序名称：SayHello.prg*功能说明：1.输入姓名 2.输出你好！XXX。*-ACCEPT ”请输入姓名：”TO XM&通过键盘输入姓名并赋值给 XM?”你好！”,XM&显示你好！XXX。（3）按 CTRL+W 存盘或点击“文件-保存”菜单存盘，运行程序。三、三、INPUT 命令命令 语法：语法：INPUT 提示信息 TO 内存变量 功能：功能：在程序执行过程中，将用户交互式输入的内容赋值给指定内存变量。说明：说明：可以输入字符型、数值型、逻辑型、日期型和日期时间型等类型数据，而且可以是常量、变量、函数或表达式等形式，按回车键结束输入，系统将输入

12、的数据赋值给指定内存变量。【例【例 6.3】输入任一分数，将】输入任一分数，将 student 表中总分大于此分数的学生显示出来。表中总分大于此分数的学生显示出来。Student 表表中数据如下：中数据如下：表 6-1 student 数据表 学号 姓名 性别 出生日期 系科 统招否 总分 20080001 张兰 女 1986-1-3 物理 1 515 20080002 李思宇 男 1985-2-4 化学 1 520 20080003 王从悟 男 1985-3-4 计算机 1 550 20080004 常珊 女 1985-4-7 数学 1 554 20080005 周学刚 男 1986-5-1

13、2 中文 1 530 20080006 刘之凡 男 1986-6-23 历史 1 570 20080007 赵海霞 女 1986-6-6 传播 1 640 20080008 汪蓓思 女 1986-8-8 物理 1 530 20080009 秦超 男 1986-9-20 数学 1 580 20080010 杨超宏 男 1986-10-30 化学 1 590 20080011 黄浩 男 1986-1-2 体育 1 540 20080012 刘灵 女 1986-9-7 体育 1 520 20080013 张凡 男 1985-9-3 计算机 1 620 20080014 孙倩 女 1986-8-4 中

14、文 1 590 20080015 周小虹 女 1986-8-2 历史 1 560 20080016 付斌 男 1985-6-9 物理 1 570 20080017 王程 男 1986-11-1 化学 1 540 20080018 李敏 女 1986-1-12 数学 1 560 20080019 赵同同 男 1986-12-11 传播 1 540 20080020 李小建 男 1986-11-1 计算机 1 560 操作步骤：操作步骤：（1）打开命令窗口，输入命令 MODIFY COMMAND QueryStudent（2）输入程序如下：*-*程序名称：QueryStudent.prg*功能说明

15、：1.输入成绩 2.显示大于此分数的学生*-INPUT ”请输入分数：”TO FS&通过键盘输入分数并赋值给 FS Select*from student where 总分FS&显示符合条件的学生记录。（3）按 CTRL+W 存盘或点击“文件-保存”菜单存盘，运行程序。知识链接知识链接 INPUT 命令可以输入多种类型的数据，但一定要注意数据输入的方法，如要输入字符型数据，输入数据的时候要加上单引号。输入日期型的数据要用标准格式，如2008/08/18。6.2 程序结构程序结构 Visual FoxPro 中有一类特殊的命令，它们可以反复执行其他命令或函数，并决定这些命令和函数何时执行以及执行

16、的次数。这类特殊命令可用来实现两种主要的程序结构：条件分支和循环，它们在程序设计过程中作用很大。6.2.1 分支结构分支结构 条件分支根据条件的测试结果执行不同的操作。Visual FoxPro 中有两条命令实现条件分支：IF.ELSE.ENDIF DO CASE.ENDCASE 只有逻辑条件值为“真”(.T.)时，才会执行在初始语句和 ENDIF 或 ENDCASE 语句之间的程序。一、一、IF.ENDIF 命令命令 功能：功能：根据逻辑表达式值，有选择地执行一组命令。语法：语法：IF lExpression Commands ELSE Commands ENDIF 参数：参数：lExpre

17、ssion 指定要计算的逻辑表达式。如果 lExpression 的计算结果为“真”（.T.），则执行 IF 语句之后、ELSE 或 ENDIF 语句（以先出现的语句为准）之前的所有命令。l 如果逻辑表达式为“假”（.F.）而且包含 ELSE 语句，则执行 ELSE 语句之后、ENDIF 语句之前的所有命令。l 如果逻辑表达式为“假”（.F.）但不包含 ELSE 语句，则忽略 IF 语句和 ENDIF 之间的所有命令。在这种情况下，程序从 ENDIF 语句后面的第一条命令开始，继续往下执行。说明：说明：一个 IF.ENDIF 语句块之中可以嵌套另一个 IF.ENDIF 语句块。【例【例 6.4

18、】输入两个数值，比较大小，并显示较大的那个数值】输入两个数值，比较大小，并显示较大的那个数值 操作步骤：1.打开命令窗口，输入命令 MODIFY COMMAND WhoMAX 2.输入程序如下：*-*程序名称：WhoMAX.prg*功能说明：1.两个数值 2.比较大小，显示较大的那个数值*-CLEAR INPUT “请输入数值 A：”TO A INPUT ”请输入数据 B：”TO B IF A=B Then?A,”比”,B,”大”ELSE?A,”比”,B,”大”ENDIF 3.按 CTRL+W 存盘或点击“文件-保存”菜单存盘，运行程序。二、二、DO CASE.ENDCASE 命令命令 功能：

19、功能：根据不同的条件表达式结果执行不同的命令。语法：语法：DO CASE CASE lExpression1 Commands CASE lExpression2 Commands .CASE lExpressionN Commands OTHERWISE Commands ENDCASE 参数：参数：l CASE lExpression1 Commands.当遇到第一个结果为“真”的 CASE 表达式时，就执行它后面的命令集合。命令集合连续执行，直到遇到下一个 CASE 或 ENDCASE。然后就从 ENDCASE 后面的第一个命令恢复程序的执行。如果一个 CASE 表达式为“假”(.F.)

20、，就忽略它与下一个 CASE 子句之间的命令集合。此命令只能执行一组命令，这些命令是 CASE 表达式计算为“真”(.T.)的第一个命令集合，而其他计算为“真”(.T.)的 CASE 表达式被忽略。l OTHERWISE Commands 如果所有的 CASE 表达式计算为“假”(.F.)，就由 OTHERWISE 确定是否执行一组额外的命令：如果包含 OTHERWISE，就执行 OTHERWISE 后面的命令集，执行后跳到 ENDCASE 后的第一条命令执行。如果省略了 OTHERWISE，就跳到 ENDCASE 后面的第一条命令处执行。说明：说明：DO CASE 根据逻辑表达式的值执行一组

21、 Visual FoxPro 命令。当执行 DO CASE 时，先计算它后面的逻辑表达式，表达式的值决定了执行哪一组命令集。【例【例 6.5】根据判断计算机当前日期，判断属于哪一个季度】根据判断计算机当前日期，判断属于哪一个季度 操作步骤：1.打开命令窗口，输入命令 MODIFY COMMAND Quarter 2.输入程序如下：*-*程序名称：Quarter.prg*功能说明：1.获取当然月份 2.显示当然日期属于哪个季度*-CLEAR M=MONTH(DATE()&今天的月份 DO CASE CASE INLIST(m,1,2,3)?这个月是第一季度 CASE INLIST(m,4,5,6

22、)?这个月是第二季度 CASE INLIST(m,7,8,9)?这个月是第三季度 OTHERWISE?这个月是第四季度 ENDCASE 3.按 CTRL+W 存盘或点击“文件-保存”菜单存盘，运行程序。程序说明：程序说明：INLIST 函数判断一个表达式是否与一组表达式中的某一个相匹配。6.2.2 循环结构循环结构 循环结构可以按照需要多次重复执行一行或多行代码。在 Visual FoxPro 中有三种循环语句：DO WHILE.ENDDO FOR.ENDFOR SCAN.ENDSCAN 一、一、DO WHILE.ENDDO 功能：功能：在一个条件循环里执行一组命令。语法：语法：DO WHIL

23、E lExpression Commands LOOP EXIT ENDDO 参数：参数：lExpression 指定一个逻辑表达式，它的值决定是否执行 DO WHILE 和 ENDDO 之间的命令集。如果 lExpression 计算为“真”(.T.)，就执行命令集。Commands 指定当 lExpression 计算为“真”(.T.)时，要执行的 Visual FoxPro 命令集。LOOP 直接将程序控件返回到 DO WHILE。LOOP 可放在 DO WHILE 和 ENDDO 间的任何位置。EXIT 将程序控件从 DO WHILE 循环的内部转到 ENDDO 后的第一个命令。EXI

24、T 可放在 DO WHILE 和 ENDDO 间的任何位置。ENDDO 表明 DO 语句的结束。说明：说明：只要逻辑表达式 lExpression 为“真”(.T.)，就执行位于 DO WHILE 和 ENDDO 间的命令集。每个 DO WHILE 语句必须有一个相应的 ENDDO 语句。【例【例 6.6】显示】显示 Student 表中物理系学生的学号和姓名表中物理系学生的学号和姓名,Student 表中数据见【例表中数据见【例 6.3】操作步骤：1.打开命令窗口，输入命令 MODIFY COMMAND StuInfo 2.输入程序如下：*-*程序名称：StuInfo.prg*功能说明：显示

25、 Student 表中物理系学生的学号和姓名*-CLEAR CLOSE ALL&关闭所有数据库和数据表 Open Database 学生成绩数据库 USE Student GO TOP&将记录指针移动到首位置 DO WHILE NOT EOF()&判断条件为记录指针是否到尾部 IF 系科=物理 THEN?学号,姓名 ENDIF SKIP ENDDO 3.按 CTRL+W 存盘或点击“文件-保存”菜单存盘，运行程序。二、二、FOR.ENDFOR 功能：功能：按指定的次数重复执行一组命令。语法：语法：FOR MemVarName=nInitialValue TO nFinalValue STEP

26、nIncrement Commands EXIT LOOP ENDFOR|NEXT 参数：参数：MemVarName 指定作为计数器的内存变量或数组元素。在 FOR.ENDFOR 语句执行之前，此内存变量或数组元素不一定存在。nInitialValue 是计数器的初始值，而 nFinalValue 是计数器的最终值。nIncrement 是计数器递增或递减的步长。如果 nIncrement 为负，则计数器递减；如果省略 STEP 子句，计数器每次的增量为 1。Commands 指定要执行的 Visual FoxPro 命令，Commands 可以包含任意数目的命令。EXIT：在 FOR.END

27、FOR 循环中，将控制权传递给紧接在 ENDFOR 后面的命令。可以在 FOR 与 ENDFOR 之间的任何地方放置 EXIT。LOOP：将控制权直接返给 FOR 子句，不再执行 LOOP 与 ENDFOR 之间的语句。计数器正常递增或递减，就象执行到 ENDFOR 一样。可以在 FOR 与 ENDFOR 之间的任何地方放置 LOOP。说明：说明：可以用内存变量或数组元素作为计数器，指定 FOR.ENDFOR 循环中 Visual FoxPro 命令的执行次数。在遇到 ENDFOR 或 NEXT 之前，始终执行 FOR 后面的 Visual FoxPro 命令。执行过程中，每循环一次，计数器

28、MemVarName 都会递增，增量为 nIncrement（如果省略 STEP 子句，则计数器每次的增量为 1），然后把计数器的值与 nFinalValue 作比较。如果计数器的值小于或等于 nFinalValue，将再次执行 FOR 语句后的命令；如果计数器的值大于 nFinalValue，则退出 FOR.ENDFOR 循环，程序继续执行 ENDFOR 或 NEXT 之后的第一条命令。说明说明 nInitialValue、nFinalValue 和 nIncrement 只能是初次读入的值。在循环过程中更改计数器 MemVarName 的值将影响循环的执行次数。如果 nIncrement

29、为负，且初始值 nInitialValue 大于最终值 nFinalValue，则每经过一次循环，计数器都将递减。【例【例 6.7】计算从】计算从 1 到到 100 的累加结果的累加结果 操作步骤：1.打开命令窗口，输入命令 MODIFY COMMAND SUM 2.输入程序如下：*-*程序名称：SUM.prg*功能说明：计算从 1 到 100 的累加结果*-CLEAR Sum=0 FOR I=1 to 100 Sum=Sum+I ENDFOR?1 至 100 的累加和是：,Sum 3.按 CTRL+W 存盘或点击“文件-保存”菜单存盘，运行程序。三、三、SCAN.ENDSCAN 功能：功能：

30、在当前选定表中逐个移动记录指针并在遇到符合指定条件时执行一个命令块。语法：语法：SCAN NOOPTIMIZE Scope FOR lExpression1 WHILE lExpression2 Commands LOOP EXIT ENDSCAN 参数：参数：NOOPTIMIZE：关闭对 SCAN 命令的 Rushmore 优化。Scope：指定扫描记录的范围。只有范围之内的记录才可能扫描到。范围子句有 ALL，NEXT nRecords，RECORD nRecordNumber 和 REST。SCAN 的默认范围是所有记录（ALL）。FOR lExpression1：只有使表达式 lExp

31、ression1 计算为“真”(.T.)的记录，才对其执行命令。包含 FOR 子句可以筛选出不想扫描的记录。当表达式 lExpression1 是可优化表达式时，Rushmore 将优化 SCAN.FOR 命令创建的查询。为使系统获得最佳性能，应在 FOR 子句中使用可优化的表达式。WHILE lExpression2：指定一个逻辑表达式 lExpression2 作为执行命令的条件。只要逻辑表达式计算为“真”，就对记录执行命令，直至遇到使表达式不为“真”(.T.)的记录为止。Commands：指定要执行的 Visual FoxPro 命令。LOOP：把控制权直接返回到 SCAN 命令。LOO

32、P 可以放在 SCAN 到 ENDSCAN 之间的任何地方。EXIT：把程序的控制权从 SCAN.ENDSCAN 循环语句中交给 ENDSCAN 下面的命令。EXIT 可以放在 SCAN 到 ENDSCAN 之间的任何地方。ENDSCAN：标志 SCAN 过程的结束。说明：说明：SCAN 命令自动将记录指针移到下一条满足指定条件的记录，并执行相应的命令块。【例【例 6.8】显示】显示 Student 表中物理系学生的学号和姓名表中物理系学生的学号和姓名,Student 表中数据见【例表中数据见【例 6.3】操作步骤：1.打开命令窗口，输入命令 MODIFY COMMAND StuInfo2 2

33、.输入程序如下：*-*程序名称：StuInfo2.prg*功能说明：显示 Student 表中物理系学生的学号和姓名*-CLEAR CLOSE ALL OPEN DATABASE 学生成绩数据库 USE STUDENT GO TOP SCAN FOR 系科=物理?学号,姓名 ENDSCAN 3.按 CTRL+W 存盘或点击“文件-保存”菜单存盘，运行程序。6.3 过程和自定义函数过程和自定义函数 在程序设计过程中，经常把完成一个功能的程序编写成一个单元，以便在其他程序中使用该功能时调用该程序。这种为完成一个特定功能而编写的程序称之为自定义函数或过程。6.3.1 过程（过程（PROCEDURE）

34、功能：功能：用在程序文件中标识一个过程的开始。语法：语法：PROCEDURE 过程名 PARAMETERS 变量名表 语句 RETURN 返回值 说明：说明：PROCEDURE 是程序文件中的语句，它指明程序文件中每个过程的开始，并且定义过程名称。过程名称必须以一个字母或下划线开头，可以包含字母、数字和下划线的任何组合。在 Visual FoxPro 中，过程名最长可达 254 个字符。PROCEDURE 语句后面是一系列命令，它们构成了过程。在最后一条语句之后，过程自动执行一条隐含的 RETURN 命令，也可以在过程最后一行中包含 RETURN 命令。【例【例 6.9】输入一个整数，并判断其

35、是否是偶数】输入一个整数，并判断其是否是偶数 操作步骤：1.打开命令窗口，输入命令 MODIFY COMMAND ISEVEN 2.输入程序如下：*-*程序名称：ISEVEN.prg*功能说明：输入一个整数，并判断其是否是偶数*-CLEAR INPUT 请输入一个整数：TO Num?ISEVENNUMBER(Num)&调用过程 ISEVENNUMBER Procedure ISEVENNUMBER Parameters num&定义传递参数 IF num%2=0 THEN Return 是偶数 ELSE Return 不是偶数 ENDIF ENDPROC 3.按 CTRL+W 存盘或点击“文件

36、-保存”菜单存盘，运行程序。6.3.2 自定义函数（自定义函数（FUNCTION）功能：功能：定义一个用户自定义函数。语法：语法：FUNCTION 函数名 PARAMETERS 变量名表 语句 RETURN 返回值 说明：说明：许多程序中，都要经常重复运行若干例程。把公用例程定义为单独的函数可以减小程序的大小及其复杂性，也有利于程序的维护。在程序中使用 FUNCTION 语句，它指明程序中某个函数的开始，并用名称标识整个函数。FUNCTION 语句之后是组成该函数的一系列 Visual FoxPro 命令，可以使用 RETURN 作为函数的最后一行，但是如果不包含此命令，则自动执行一条隐含的

37、RETURN 语句。下一条 FUNCTION 语句或者文件尾指示当前函数的结束。【例【例 6.10】输入一个整数，并判断其是否是偶数】输入一个整数，并判断其是否是偶数 操作步骤：1.打开命令窗口，输入命令 MODIFY COMMAND ISEVEN 2.输入程序如下：*-*程序名称：ISEVEN.prg*功能说明：输入一个整数，并判断其是否是偶数*-CLEAR INPUT 请输入一个整数：TO Num?ISEVENNUMBER(Num)FUNCTION ISEVENNUMBER Parameters num IF num%2=0 THEN Return 是偶数 ELSE Return 不是偶数

38、 ENDIF ENDFUNCTION 3.按 CTRL+W 存盘或点击“文件-保存”菜单存盘，运行程序。6.3.3 过程和自定义函数的调用过程和自定义函数的调用 过程和自定义函数可以通过以下两种方法进行调用。1、DO 调用 语法：语法：DO 过程名或函数名 WITH 参数 2、函数方式调用 语法：语法：变量=过程名或函数名（参数）3、过程文件调用 我们经常将应用程序中常用的一些功能提取出来做成函数和过程，并将他们放在一个程序文件中成为一个过程文件。要在程序中调用过程文件，我们可以使用 SET PROCEDURE TO 命令。语法：语法：SET PROCEDURE TO FileName1,Fi

39、leName2,.ADDITIVE 功能：打开过程文件。参数 FileName1,FileName2,.指定打开文件的顺序。SET PROCEDURE 可带有多个文件名，即可以立刻打开多个过程文件。也就是说允许您创建多个独立的函数库并分别打开它们。ADDITIVE 在不关闭当前已打开的过程文件的情况下打开其他过程文件。说明：说明：不带任何文件名的 SET PROCEDURE TO 的命令关闭所有打开的过程文件。RELEASE PROCEDURE 可用来关闭单个文件。当执行一个过程时，如果在当前执行程序中找不到该过程，就将查找过程文件。6.3.4 参数传递参数传递 自定义函数要接收和调用程序的参

40、数，在自定义函数的中第 2 个语句应为下列语句。1、PARAMETERS 功能：功能：将调用程序传来的数据赋值给私有内存变量或数组。语法：语法：PARAMETERS ParameterList 参数：参数：ParameterList 指定接收数据的内存变量或数组。“ParameterLis”中的参数应用逗号分隔。PARAMETERS 语句中的参数数目至少应与 DO.WITH 语句中的参数数目相同。如果 PARAMETERS 语句中所列的变量或数组数目比 DO.WITH 语句传递的多，剩余的变量或数组就初始化为“假”(.F.)。最多可传递 27 个参数。说明：说明：当 parameters 命令

41、与 DO.WITH 语句一起使用时，它必须是被调用程序、过程或用户自定义函数中的第一条可执行语句。默认情况下，DO.WITH 语句以引用传递方式向过程传递变量和数组。当一个值在被调用过程中更改时，新值传递回调用程序中相关的变量或数组。如果想以值传递方式向一个过程传递变量或数组，在 DO.WITH 语句的参数列表中用括号把变量或数组括起来，这样，在被调用过程中对参数的任何更改都不传回调用程序。默认情况下，变量以引用传递方式向过程传递，以值传递方式向一个用户自定义函数传递。使用 SET UDFPARMS TO REFERENCE 命令，能以引用传递方式向用户自定义函数传递变量。2、L PARAME

42、TERS 功能：功能：将调用程序传入的数据赋给局部内存变量或数组。语法：语法：LPARAMETERS ParameterList 参数：参数：ParameterList 指定接收数据的局部内存变量或数组的名称。在 ParameterList 中，参数之间用逗号分隔。在 LPARAMETERS 语句中，至少应有与 DO.WITH 语句中同样多的参数。如果在 LPARAMETERS 语句中列出的变量或数组的数目多于 DO.WITH 语句传递的参数数目，则多出的变量初始化为“假”(.F.)。最多可以传递 27 个参数。说明：说明：lparameters 命令在被调用的程序过程或用户自定义函数中创建局

43、部内存变量和数组。可用 PARAMETERS 命令创建私有内存变量和数组。如果向程序、过程或用户自定义函数传递值、变量或者数组，LPARAMETERS 必须是被调用程序、过程或用户自定义函数的第一条可执行语句。默认情况下，DO.WITH 以引用传递方式向过程传递变量和数组。在被调用过程中更改某个值时，新的值将传递回调用程序中相关的变量和数组。如果希望以值传递方式向过程传递某一变量或数组，应在 DO.WITH 语句的参数列表中用圆括号将该变量或数组括起来。此时，被调用过程中参数的任何更改都不会传递回调用程序。在默认情况下，变量以引用传递方式传递给过程，以值传递方式传递给用户自定义函数。可以用 S

44、ET UDFPARMS TO REFERENCE 指定以引用传递方式向用户自定义函数传递变量。6.3.5 变量的作用域变量的作用域 当程序使用函数或过程作为子程序来设计时，弄清楚变量的作用域尤其重要。必须确切地声明变量，界定变量的作用范围，否则在子程序中修改某些变量值时，可能很难找到错误。在 Visual FoxPro 中，变量分为以下几种：1局部变量 仅本程序使用的变量称为局部变量。局部变量仅在本程序中定义，可以与调用它的程序使用的变量同名，但不对其产生影响。当退出该程序后，局部变量就被释放。局部变量定义语句：PRIVATE 变量列表 说明：变量列表中的项用逗号分隔。2全局变量 在所有程序中

45、都可以使用和重新赋值的变量称为全局变量。全局变量定义定义语句：PUBLIC 变量列表 3普通变量 主程序中使用的变量可以被子程序调用和修改。【例【例 6.11】变量的作用范围】变量的作用范围 操作步骤：操作步骤：1.打开命令窗口，输入命令 MODIFY COMMAND sample 2.输入程序如下：*-*程序名称：sample.prg*功能说明：通过程序了解变量的作用范围*-CLEAR PUBLIC X X=1 Y=1 DO CHANGE?X=,X&显示 X=2?Y=,Y&显示 Y=1 Procedure Change Local Y X=2 Y=2 ENDPROC 3.按 CTRL+W 存

46、盘或点击“文件-保存”菜单存盘，运行程序。6.4 程序调试程序调试 编写程序出错是在所难免的，对初学者更是如此。普通的语法错误，在程序编制过程中，系统在解释运行到出错位置时就会显示出错信息。在程序连编成 EXE 文件时也会出现提示。但是对于逻辑错误（例如，运行结果不正确），Visual FoxPro 的编译器就无能为力了。产生逻辑错误可能的情况很多，其中包括：程序对变量的值错误地进行了处理、计算的顺序不对、数据溢出、选择了错误的工作区域或主索引等等。编写程序是为了解决实际问题，如果运行结果都不正确，所有的事情都无从谈起。程序调试是解决程序中所有问题的惟一途径。只有经过反复修改、编译、高度的循环

47、过程，才能不断发现应用程序的问题，减少程序错误。所以，每一个编程人员都必须掌握程序调试的方法。Visual FoxPro 提供了丰富的调试工具，帮助编程人员逐步发现代码中的错误，有效地解决问题。Visual FoxPro 调试器可以在程序运行过程中监测和记录程序的运行状态，分析相关变量和变量的值和运行路径，发现问题。在程序运行测试中发现逻辑问题后，可以使用 Visual FoxPro 调试环境逐步找到错误，具体方法如下：1.打开调试环境 2.跟踪代码 3.停止程序的执行 4.查看存储的值 5.显示结果 6.4.1 调试器环境调试器环境 打开调试环境时，就是启动了一个程序调试的工作期。点击菜单“

48、工具-调试器”打开调试环境。如图 6-3 所示。也可以在命令窗口中输入以下任一命令打开调试器 l DEBUG l SET STEP ON l SET ECHO ON 图图 6-3 Visual FoxPro 调试器调试器 Visual FoxPro 调试环境工具栏提供了下列运行程序的方法：（1）跟踪：每次执行程序的一个代码行，执行后程序暂停。如果被跟踪程序调用了一个函数或过程，则跟踪进入调用过程或函数的内部；（2）单步：每次执行程序的一个代码行，执行后程序暂停，但不跟踪被调用的过程或函数；（3）跳出：执行完当前过程或函数中的其余代码，然后回到调用程序；（4）运行到光标处：运行当前程序到包含光标

49、的行（5）继续执行：停止追踪代码，继续执行程序直到遇到一个断点或程序的结束；（6）取消：终止程序。6.4.2 设置断点设置断点 断点就是调试时程序暂停执行的位置，设置断点可逐步缩小错误的范围。设置断点的方法如下：1直接设置直接设置 若要为某个特点的代码行设置断点，直接在跟踪窗口下双击该行的阴影页边，或者把光标放在行中并按下空格键或回车键，该代码行左边的灰色区域中会显示一个红色的实心圆点，这表明该行已经设置一个断点。如图 6-4 所示 图图 6-4 设置断点设置断点 2.利用“断点”对话框利用“断点”对话框 单击调试器工具-断点菜单，出现如图 6-5 所示的对话框 图图 6-5 断点对话框断点对

50、话框 6.4.3 监视窗口和局部窗口监视窗口和局部窗口 监视窗口和局部窗口都可用来监控程序中的常量、变量、对象和对象元素。图图 6-6 监视和局部窗口监视和局部窗口 本章小结本章小结 本章讲述了程序设计的基础知识，知识重点包括程序结构（条件分支结构和循环结构）、自定义过程及自定义函数、变量的作用域。习题习题 一、思考题一、思考题 1.在自定函数或过程中接受参数，应用使用 命令。2.DO WHILEENDDO 循环中，若循环条件为.T.，用 命令跳出循环。3.在 VFP 中，有哪两种程序结构？4.运行下列程序以后，显示内容为 ，。CLEAR PUBLIC X X=1 Y=1 DO CHANGE?