第6章 程序设计基础.ppt

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

1、第6章 程序设计基础,6.1 程序文件的建立与运行 6.2 结构化程序设计初步 6.3 顺序结构程序设计 6.4 程序的选择结构 6.5 循环结构 6.6 多模块程序设计 6.7 参数传递与变量作用域,教学目的 了解面向过程的程序设计方法，结构化程序设计的三种基本结构，子程序和过程的使用方法。 基本要求 通过对三种结构的学习，可以进行简单的程序设计 教学要点 循环嵌套，模块调用，变量的作用域。,6.1 程序文件的建立与运行,程序： 为完成某一特定任务而组织编写的一系列命令和语句。,程序文件： 程序以文件的形式存放于磁盘上，这个文件就称为程序文件。,（1）命令方式: MODIFY COMMAND

2、 或MODIFY file |?,6.1.2 VFP程序文件的建立与执行,1.程序文件的建立（默认扩展名为.PRG）, 第一条命令中，文件的默认扩展名为.PRG，可省略，第二条命令中，建立程序文件时文件扩展名.PRG必须同时输入，不能省略。 在文件名前可直接指明该文件保存的路径。 用END（即CTRL+END键，以下类似）或W将编辑结果存盘，或执行“文件”菜单中的“保存”命令存盘；用Q或ESC键放弃存盘，并退出编辑程序。,执行该命令后，VFP将打开一个用于输入和编辑修改程序的窗口，窗口的标题栏所显示的就是该命令中的文件名，如图所示。,（2）菜单方式: “文件” “新建” 弹出“新建”的对话框

3、“文件类型”框里选择“程序” 单击按钮“新建文件” 弹出文本编辑窗口，在这个窗口中就可以输入命令和语句了，最后，选择系统菜单“文件”里的菜单项“保存”，按照系统提示将输入窗口中的程序保存起来。,(3) 在“项目管理器”对话框中选择“代码”选项卡中的“程序项”，再单击“新建”按钮。,(4)利用其它编辑软件建立和编辑命令文件 由于FoxPro的命令文件属于文本文件，因此可在Windows操作系统下利用WORD、WPS等编辑软件或DOS操作系统下利用EDIT等编辑软件来建立和编辑命令文件。,示例：建立应用程序L1.PRG ，功能为：打开表文件“学生.dbf”，根据键入的学生姓名在该表文件中查找并输出

4、该学生的基本情况，关闭文件，返回。 命令窗口：MODI COMM VFPL1.PRG 编辑窗口：*L1.PRG SET TALK OFF USE VFP学生.DBF ACCEPT “请输入学生姓名：” TO XM LOCATE FOR 姓名=XM ? 学号,姓名,性别,班级 USE SET TALK OFF RETURN,2.程序文件的修改 (1)利用系统菜单，操作与建立程序文件相同。 (2)在命令方式下，其操作与建立程序文件相同，但必须带文件名或“？”。 (3)若程序包含在一个项目中，可以在“项目管理器”对话框中选定它，再单击“修改”命令按钮。,3.程序文件的执行 方法一、在命令方式下执行命

5、令文件 DO程序文件名WITH 方法二、使用系统菜单执行命令文件 “程序” “运行(D)”，然后在弹出的“运行”对话框中，选择“程序列表”中要执行的程序文件名，再单击“运行”按钮，程序就可以执行。 方法三、若程序包含在一个项目中，则可以在“项目管理器”对话框中选定它，再单击“运行”按钮。,4.程序书写规则 (1)命令分行 程序中每行命令都以回车键结束，一行只能写一条命令。若命令需分行书写，应在一行终了时健入继行符“；”，然后按回车键，继续在下一行输入。 (2)命令注释 程序中可插入注释，以提高程序的可读性。 注释行以符号“*”开头，它是一条非执行命令，仅在程序中显示。命令行的后面也可添加注释，

6、这种注释以符号“&”开头。 例如，* 本程序用于修改表的指定纪录 SET DATA USA & 日期格式置为 MM-DD-YY,6.1.3、常使用的命令。 命令 set talk 命令 格式：set talk on/off 功能：该命令控制其它命令执行的结果输出不输出到屏幕上 命令 set print 命令 格式：set print off/on 功能：该命令控制输出结果不输出输出到打印机打印输出,命令文本输出命令 格式1：text 文本信息 endtext 功能：此命令把文本信息内容显示出来，允许文本信息出现多行，它只能在程序工作方式中使用，而且TEXT与ENDTEXT必须成对出现。 格式2

7、： 功能：能将一行文本信息的内容按书写形式的原样显示出来。与的区别在于前者是在下一行的第一列开始输出，而后者则不换行，在当前光标位置处开始显示。,命令5：清屏命令 格式：clear 功能：清屏，常将此命令用于程序开始，保持屏幕整洁.,命令4 注释语句 格式一：note 注释字符 格式二： * 注释字符 格式三：& 注释 功能：格式一、格式二一般对程序作注释。格式三注释某命令语句，只用在被注释的命令行之后。,命令6：返回命令 格式： return to master 功能：return 在一个主程序中用于结束此程序的运行并返回命令窗口；在子程序中用于结束子程序并返回到调用此过程中的下一语句 re

8、turn to master将过程的调用直接返回主程序。, 中止程序执行命令 格式：CANCEL 功能：中止FoxPro程序的执行。 说明：当FoxPro程序运行到该语句时，将不再执行其后面的所有语句，而直接退出程序，返回到命令窗口，同时关闭所有已打开的文件。,命令8. 非格式化交互式命令 单字符接收命令（即等待命令） 格式：WAIT TOWINDOWAT， NOWAIT CLEAR|NOCLEAR TIMEOUT 功能：暂停程序的执行，等待用户输入一个字符或按任一键。也可只用于输出一条提示信息。,说明, WAIT命令使用VFP程序暂停运行，等用户按任意键（或回车）后，程序继续执行。 用于输出

9、一条提示信息。如缺省，则执行命令后屏幕显示“按任意键继续”，提示用户按任意键，系统将继续运行。 用于保存从键盘键入的字符，如果不选TO子句，则输入的数据不予保存。 Windows子句可使主屏幕上出现一个WAIT提示窗口，用于输出提示信息，该窗口的位置由AT选项的， 来指定，若缺省AT选项，在主屏幕右上角显示。 若使用NOWAIT选项，系统将不等用户按键,立即往下执行。,字符串接收命令 格式：ACCEPT TO内存变量 功能：暂停程序的执行，等待用户输入字符串数据。 任意类型数据接收命令 格式：INPUT TO 功能：暂停程序的执行，等待用户输入数据。, 系统执行该语句时，暂停正在运行着的程序，

10、并显示提示信息，然后等待用户从键盘输入数据，它允许用户输入多个字符直至输入回车为止。并将输入的信息以字符串的形式存储在内存变量中，故常用于输入字符型的数据。 WAIT和ACCEPT的相同点是：它们接收的均是字符型数据，故两者所接收的字符型数据都无需用单、双引号或方括号括起来。 WAIT和ACCEPT的最大区别是：WAIT只接收单个字符，并且不需要输入回车键，而ACCEPT可接收多个字符，且必须用回车键来结束字符串的输入。,说明： WAIT和ACCEPT只能满足字符型变量的赋值，而INPUT能满足字符、数值、日期、逻辑型变量的赋值,可用于输入各种类型的数据。 使用INPUT语句若给变量赋的值是字

11、符型，需加定界符，否则系统会把它当成一个变量名处理；若给变量赋的值是逻辑型常量，需用定界符(.)括住；输入日期型常量两端须加花括号；输入数值型常量，则直接输入整数或实数，也可以输入一个表达式。 提示信息的内容同WAIT和ACCEPT语句。,9.格式化输入输出命令 格式化输出语句：SAY 格式：行,列SAY表达式 功能：在指定的行和列输出表达式的值。 说明： 行,列确定光标的位置。把显示屏看作是由行和列组成的二维坐标系，其坐标系为25行*80列，规定行值取值范围是整数024，列值取值范围是整数079。那么，屏幕最左上角字符的坐标就为（0，0），最右下角字符的坐标就为（24，79）。 例如：5，3

12、0 SAY “ABCD” 执行结果将在屏幕的第5行第30列位置开始显示字符串ABCD,格式化输入语句： 格式：SAY GET READ 功能：定位显示GET变量的值；READ命令激活当前未被激活的所有GET变量，用户就可对这些GET变量进行编辑。,说明： GET READ给变量赋值的方式为全屏幕操作。开始执行时光标停在GET变量显示区的第一个位置上，利用方向键可在显示区内上下左右移动光标。当光标在最后一个GET变量的显示位置时，按下回车键则数据存入变量，且全屏幕编辑结束。接着就执行READ的后继命令。 若缺省SAY子句，GET变量值从由指定的坐标开始显示；含有SAY子句时先显示其表达式值，然后

13、隔一个字符接着显示GET变量的值。 GET变量必须具有初值，除变量的类型遵照初值外，其长度也将由初值决定。故使用前必须先定义。,6.2 结构化程序设计初步,1.算法及流程图 (1)算法的概念:根据问题要求拟定用计算机求解的策略和步骤，并把它用某种工具描述出来，称之为“算法设计”。 (2)算法的流程图描述 :用一些简单的几何框图表示各种类型的操作，然后用带箭头的有向流线将各个框图连结起来，以表示其执行的先后顺序，这种框图称为“流程图”。,2.结构化程序设计方法 结构化程序指整个程序由顺序、选择、循环三种基本结构组成。 (1)自顶向下逐步求精：从全局出发，通盘考虑，把问题的整体分解成若干个相对独立

14、的小问题，然后再把小问题分解为若干个相对独立的更小的问题，直到能表示成程序为止。 (2)模块化设计：由一个大问题分解成若干个相对独立的小问题，每个小问题实现一定的功能，称为功能模块。对大的功能模块，采用自顶向下逐步求精的方法划分为更小的功能模块。各功能模块的程序可单独编写和调试，这样便于多人协助完成较大型的程序设计。,3. 程序设计的步骤 (1)分析问题 主要是分析待编程序要解决什么问题，需要输入什么数据，需要做哪些处理，需要输出什么数据等等。 (2)画流程图 用流程图来描述处理问题的过程。 (3)编写程序 根据程序流程图，将所需要的VFP的命令、语句组织在一起。 (4)调试 通过运行程序对程

15、序进行正确性检验和测试。,4.流程图介绍 (1)绘制流程图时所用到的基本符号,说明： 处理框中含有一个语句功能或一段程序，一般用自然语言或数学表达式描述，尽量简明扼要。 流向线要清晰明确，不能相互交叉，不能出现死循环流向线。 无论框图描述的处理过程如何，所画框图总是只有一个入口，最后汇集到一个出口。,例：计算123100。 SET TALK OFF S=0 FOR N=1 TO 100 S=S+N ENDF ? 123100=,S RETURN,算法流程图,2)举例：用框图描述求一元二次方程ax2+bx+c=0的实根的过程 分析： 首先输入a,b,c的值，其次，计算判断求一元二次方程实根的条件

16、b*b-4*a*c的值，最后判断b*b-4*a*c的值是否满足实根存在的条件，若不满足，则输出方程无实根，若满足则方程有二个实根，输出两实根x1,x2： x1=(-b+sqrt(b*b-4*a*c)/(2*a) x2=(-b-sqrt(b*b-4*a*c)/(2*a),6.3 顺序结构程序设计,1.顺序结构 程序运行时，按照命令（语句）的排列顺序逐条执行，这种结构就称为顺序结构。 2.简单的输入输出语句 (1)数据输入语句:INPUT 1)格式: INPUT TO 2)功能:暂停程序运行，显示提示信息，等待用户从键盘上输入数据，用户可以输入任意合法的表达式。 (2)单字符输入语句: WAIT

17、1)格式:WAIT TO WINDOWS 2)功能:暂停程序运行，显示提示信息，等待用户键入任何一个键，然后继续执行程序。 (3)简单输出语句：？、? 1)格式:?/? ,2)功能:依次计算并显示表达式表中各表达式的值，所显示的值与值之间间隔一个空格。 (4) 信息显示函数: MESSAGEBOX( ) 1)格式: MESSAGEBOX(,) 2)功能:暂停程序运行，在对话框中显示提示信息，等待用户单击按钮，并返回一个整数表示单击的是哪个按钮。 由三个数码相加产生，即: +,例:MESSAGEBOX函数举例,3.环境设置语句 环境设置语句：SET 设置系统环境和状态的语句为 SET语 句，SE

18、T语句实际上是一个语句组，分为两种格式： 格式 SET ON/OFF 格式 SET TO 常用的几个SET语句: SET DEFAULT TO 功能：设置默认的工作目录。 (2) SET PATH TO 功能：设置搜索路径。 (3) SET TALK ON/OFF 功能:控制是否使某些命令产生屏幕显示 (4) SET PRINT ON/OFF 功能：控制屏幕上的输出内容是否同时送打印机打印。,4.注释 (1)注释语句 1)格式 */NOTE 2)功能 注释语句是非执行语句，它们不对计算机产生任何操作,仅仅对程序起注解作用。 (2)行末注释 行末注释用在语句（命令）末尾，以“&”起头，后跟本行的

19、注释内容。,6.3.1 顺序结构程序设计,1.概念 顺序结构程序：自始至终严格按照程序中语句的先后顺序逐条执行，是最基本、最普遍的结构形式。 顺序结构的流程图：,顺序结构,例：编程，根据输入的半径值，计算出相应的圆的周长。 SET TALK OFF CLEAR INPUT “请输入圆的半径：” TO R L=2*3.1416*R 5,5 SAY “圆的周长是：”+STR(L,6,3) SET TALK ON,6.4 程序的选择结构,定义：分支结构：就是按照一定的条件由判断语句或选择语句构成的双重或多重走向的程序。,简单分支结构 的流程图,1）简单分支格式： IF ENDIF 注：IF和ENDI

20、F必须成对出现,说明： (1)IF .ENDIF配对组成一条语句，缺一不可。 (2)IF .ENDIF语句只能在程序中使用，不能使用于交互式状态。 (3)该语句的执行过程是：首先对逻辑表达式进行判断，然后根据逻辑表达式的取值确定是否执行。当的值为“真”时，顺序执行IF与ENDIF之间的语句序列，然后再执行ENDIF后的语句；当逻辑表达式的值为“假”时，不执行IF与ENDIF之间的语句而直接执行ENDIF后面的语句。 逻辑表达式也称为条件，故以后叙述中逻辑表达式也简称为条件。,例:从键盘接收两个数，在屏幕输出大数。 INPUT X= TO X INPUT Y= TO Y IF XY &如果XY,

21、把X与Y交换 T=X &引入第三个变量T,进行三角交换 X=Y Y=T ENDIF ?X RETURN,2） 双边分支格式：,IF ELSE ENDIF,Y,N,双边分支的流程图,说明：该语句执行过程是：首先判断逻辑表达式的值是否为真，若为真，执行 ，而不执行 ，并从ENDIF后面的语句开始继续执行；若为假，则不执行，而执行，然后再执行ENDIF后面的语句。,例:编一个程序，输入一个教工号，在STAFF表中查找，若查到就给该教师增加100元基本工资，并在信息窗口提示相应的信息；若查不到则提示“查无此人！”。 OPEN DATABASE 教学管理 &打开“教学管理”库作为当前库 USE STAF

22、F &打开当前库中STAFF表 CLEAR INPUT 请输入教工号： TO JGH LOCATE ALL FOR 教工号=JGH IF FOUND() REPLACE 基本工资 WITH 基本工资+100 =MESSAGEBOX(该教师的基本工资已增加100元”) ELSE =MESSAGEBOX(查无此人！) ENDIF CLOSE DATABASE &关闭当前库 RETURN,IF语句多重嵌套一般格式： IF ELSE IF ELSE IF ELSE ENDIF ENDIF ENDIF,3)多分支结构,注： （1）IF、ELSE(可不选)、ENDIF必须成对使用 （2）最好采用缩格（锯齿

23、形）的书写方式,多分支程序用于解决要根据多种条件，从各种情况中选择一种进行处理的问题。,情况判断语句格式： DO CASE分支程序用于解决要根据多种条件，从各种情况中选择一种进 CASE CASE CASE OTHERWISE ENDCASE,说明： DO CASE和ENDCASE须成对出现 在情况语句中，如果逻辑表达式的值为真的情况多于一个，则仅执行第一个逻辑表达式值为真的语句系列。 DO CASE语句之间可以嵌套使用，DO CASE语句和IF语句也可以嵌套使用DO CASE语句和DO WHILE也可以嵌套使用。,例:显示当前季节程序。 M=MONTH(DATE() &获取当前月份 DO C

24、ASE CASE M=3 AND M=6 AND M=9 AND M=11 =MESSAGEBOX(”现在是秋季) ENDCASE RETURN,6.5 循环结构,定义：按照一定条件重复进行某种特定操作的程序称为循环结构程序。,VFP中有三种循环结构， 条件循环（当循环WHILE） 计数循环（FOR-ENDFOR或FOR-NEXT） 库文件记录扫描循环（SCAN）。,DO WHILE LOOP EXIT ENDDO,Y,N,1、条件循环,备注,例:用DO WHILE语句编写程序,实现例6.2算法。 S=0 &存放累加和的变量S初值为0 N=1 &取第一个自然数 DO WHILE N=100 S

25、=S+N &累加当前自然数 N=N+1 &取下一个自然数 ENDDO ?S RETURN,(2)循环体中两条特殊语句：EXIT和LOOP (1)格式 跳出循环语句：EXIT 短跳循环语句:LOOP (2)功能 在循环体中执行到EXIT时，立即无条件跳出循环，转去执行 ENDDO 的后一个语句。若执行到LOOP语句，则立即返回DO WHILE重判循环条件，而不再执行循环体内的其他语句。,DO WHILE DO WHILE EXIT LOOP ENDDO ENDDO,(3)EXIT语句的一个典型应用 EXIT语句常用在下列控制结构中，用于控制循环次数不确定时的循环退出。,DO WHILE .T.

26、&循环条件为永真 IF EXIT ENDIF ENDDO,例: 从键盘输入若干个非零的数值，当输入数值“0”时结束输入，统计有效数值的个数和它们的平均值。 CLEAR S=0 &存放累加和 N=0 &存放数值个数 DO WHILE .T. &这是一个永真循环 INPUT 请输入数值，输入零时结束 TO SZ IF SZ=0 EXIT ENDIF S=S+SZ N=N+1 ENDDO ？共输入有效数值个数:,N ? 平均值是:,S/N RETURN,2、计数循环格式： FOR = TO STEP LOOP EXIT ENDFOR| NEXT （注：步长可为正值和负值）,备注,例:裝有100只鸡蛋

27、的蛋箱，运输过程中打碎了若干鸡蛋。货主开箱取鸡蛋，若5只5只的取，最后剩下一只；若6只6只的取，最后也剩一只；若7只7只的取；最后刚好取完；请问有多少只好鸡蛋？ clear for i= 1 to 100 if mod(i,5)=1 and mod(i,6)=1 and mod(i,7)=0 ?i, endif endf return,3、表扫描循环结构 格式：SCAN FOR WHILE LOOP EXIT ENDSCAN,备注,SCAN循环专用于控制对数据表中记录进行逐条操作。 功能 针对当前表中指定范围内满足条件的每条记录，逐一执行SCAN与ENDSCAN之间的语句序列。,例: 用SCA

28、N循环实现对STAFF表中出生于50年代的教师增加100元工资。 OPEN DATABASE 教学管理 USE STAFF IN 0 SCAN FOR 出生日期=1950/01/01 REPLACE 基本工资 WITH 基本工资+100 ENDSCAN CLOSE DATABASE RETURN,4、多重循环 格式（以当型循环结构为例）： DO WHILE 条件表达式1 语句序列1 DO WHILE 条件表达式2 语句序列2 DO WHILE 条件表达式3 语句序列3 ENDDO 语句序列4 ENDDO 语句序列5 ENDDO,4.循环的嵌套 例:某学生食堂采购员带1000元钱去市场买鸡，已知

29、每只小鸡5元，每只公鸡20元，每只母鸡30元，现在要求1000元钱正好买100只鸡且品种齐全，请编程序帮助采购员制订采购方案。 CLEAR FOR I=1 TO 33 &最多可以买33只母鸡 FOR J=1 TO 50 &最多可以买50只公鸡 FOR K=1 TO 100 &最多可以买100只小鸡 IF 30*I+20*J+5*K=1000 AND I+J+K=100 ?I,J,K ENDI ENDF ENDF ENDF,循环语句与IF语句和DOCASE语句的相互嵌套 循环语句与IF语句和DOCASE语句的相互嵌套有如下几种形式。,形式一： DO WHILE IF ELSE ENDIF END

30、DO,形式二： if do while enddo endif,注意：在嵌套使用时，不能互相交叉。,形式四： docase case do while enddo case endcase,形式三： do while do case case endcase enddo,6.6.1子程序 6.6.2自定义函数 6.6.3过程,6.6 多模块程序设计 应用程序一般都是多模块程序，可包含多个程序模块。模块是可以命名的一个程序段，可指主程序、子程序和自定义函数。本节介绍模块的构成及调用方法，多模块程序中变量的作用域，程序调用方法以及结构化程序设计等。,6.6.1子程序 一、调用与返回 对于两个具有调

31、用关系的程序文件，常称调用程序为主程序，被调用的程序为子程序。 主程序执行时遇到DO命令，执行就转向子程序，称为调用子程序。子程序执行到RETURN语句，就会返回到主程序中调用命令处的下一语句继续执行程序，称为从子程序中返回，简称返回。,2.带参数子程序的调用与返回 DO命令允许带一个WITH子句，用来进行参数传递。 格式：DO IN 说明： (1) 中的参数可以是表达式，但若为内存变量必须具有初值。 (2) 当是IN子句中的一个过程时，DO命令调用该过程。 调用子程序时参数表中的参数值要传送给子程序，子程序中必须设置相应的参数接收语句接收传递来的参数值。VFP用PARAMETERS命令接收参

32、数值和回送参数值。,格式： PARAMETERS 功能：指定内存变量以接收DO命令发送的参数值，返回主程序时把内存变量值返回给主程序中相应的内存变量。 说明： (1)PARAMETERS必须是被调用程序的第一个语句。 (2)命令中的参数被VFP默认为私有变量，返主时回送参数值之后即被清除。 (3)命令中的参数依次与调用命令WITH子句中的参数相对应，故两者参数个数必须相同。,ymj=0 5,10 SAY“请输入半径：”GET bj DEFAULT 0 READ DO js WITH bj,ymj &调用子程序 ? “ymj=”,ymj &显示圆面积 RETURN 子程序js.PRG如下： PA

33、RAMETERS r，s s=PI()*r*r &VFP的PI函数返回值 RETURN &返回主程序 在调用子程序前，调用语句中的参数变量都赋了值；在调用子程序时，调用语句的bj值传送给子程序的参数r，子程序计算面积后返回主程序时变量s的值回送给参变量ymj。,例6.26 设计一个计算圆面积的子程序，并要求在主程序中带参数调用它。程序如下：,格式： RETURN TO MASTER|TO 格式中的TO MASTER选项，使返回主调程序时直接返回到最外层主程序；选项TO 强制返回到指定的程序文件。,3.子程序嵌套 主程序与子程序的概念是相对的，子程序还可调用它自己的子程序，即子程序可以嵌套调用。

34、VFP的返回命令包含了因嵌套而引出的多种返回方式。,6.6.2 自定义函数 1.自定义函数的建立 格式： FUNCTION PATAMETERS RETURN (1)若使用FUNCTION来指出函数名，表示该函数包含在调用程序中。若缺省表示此函数是一独立文件，函数名将在建立文件时确定，其扩展名默认为.PRG，并可使用MODIFY COMMAND 来建立或编辑该自定义函数。还需注意，自定义函数的函数名不能和VFP系统函数同名，也不能和内存变量同名。 (2)为函数体，用于进行各种处理；简单函数的函数体也可为空。 (3)RETURN语句用于返回函数值，其中的值就是函数值。若缺省该语句，则返回的函数值

35、为.T.。 (4)自定义函数与系统函数调用方法相同，其形式为：函数名（）,例用自定义函数编写一个计算阶乘的程序。该例题是典型的函数递归调用。 程序如下： SET TALK OFF INPUT “请输入一个正整数：” TO int ? factorial(int) SET TALK ON RETURN,函数如下： FUNCTION factorial PARAMETER n IF n=0 r=1 ELSE r=n*factorial(n-1) ENDIF RETURN r,6.6.3 过程 过程就是由“PROCEDURE ”为开始标志，以“RETURN”语句结束的一个子程序段。它通常是包含在调用

36、程序文件中，作为主程序的一部分出现的一个子程序段，是程序文件的一个组成部分。 我们习惯上把过程写在程序的最后。一个程序文件可以包含多个过程。引入过程的主要目的是减少同时打开文件的个数以及访问磁盘的次数。,1.过程的定义 过程的定义是用PROCEDURE命令开始的一个命令序列，基本结构如下： PROCEDURE 过程名 过程的全部语句序列 RETURN 过程名由18个字符组成，无扩展名。过程以RETURN命令结束。,2.过程的调用 格式：DOWITHIN过程文件 说明：DO语句出现在主程序中，当主程序执行DO语句时，将指明的程序调入内存中，并转入该过程运行，当遇到RETURN语句时，返回主程序，

37、继续执行调用语句的下一条语句。WITH子句是用来向被调用过程传递参数的，不包含WITH子句的调用称为无参调用，包含了WITH子句的调用称为有参调用。IN子句指定过程所在的过程文件。,主程序 过程,3.过程文件 一个复杂的应用系统，通常有许多过程。 将多个过程存放在同一个文件中，这个文件称为过程文件。一个过程文件允许存放128个过程。一旦过程文件打开，系统认为只打开一个文件，就能根据过程文件执行其中的过程，从而能够减少访问磁盘次数，加快过程执行速度。 如果一个过程是作为一个独立文件存放在磁盘上的，我们称它为外部过程，把过程文件中的过程称为内部过程。,过程文件的内容形式如下： procedure

38、Return procedure Return procedure Return,4.过程文件的打开、关闭和内部过程的调用 (1)过程文件的打开 格式：set procedure to 过程文件名 说明： 过程文件必须打开后，其中所包含的过程才能被其它过程所调用。 调用内部过程仍使用DO语句，DO语句中的文件名是由procedure 指明的过程名。 VFP规定，任何时候只能打开一个过程文件，当打开一个新的过程文件后，前面被打开的过程文件将被自动关闭。,(2)过程文件的关闭 格式一：set procedure to 格式二：close procedure 说明： 过程文件被关闭后，此过程文件中的

39、内部过程也同时被停止调用。 对于不再使用的过程文件应及时关闭，以便为系统调用其它程序或读取数据提供更大的内存空间,(3)内部过程调用的主程序 set procedure to do do Close procedure ,6.7 参数传递与变量作用域,1.参数的传递 1格式 传递参数语句格式： DO WITH 接收参数语句格式： PARAMETERS 2规则 (1)DO语句可以用在调用程序中的任何位置，而PARAMETERS语句必须放在过程的第一个可执行语句之前。 (2)调用过程时系统会将实参按排列顺序一一传递给对应的形参。 (3)形参形式上同内存变量，而实参可以是常量、内存变量或表达式。 3

40、两种传递机制 (1)按值传递 实参 形参 (2)按地址传递 实参 形参,例:分析下列程序的执行结果。 CLEAR STORE BOYS! TO X,Y ?调用前:,X+Y DO SUB1 WITH X,(Y) ?调用后:,X+Y RETURN PROC SUB1 PARA X1,Y1 ?过程中:,X1+Y1 STORE GIRLS! TO X1,Y1 RETURN ENDP,分析：这是一个主程序调用一个内部过程SUB1，内存变量X、Y为实参，调用SUB1时X按地址传递到X1，Y按值传递给Y1,故在SUB1中输出X1+Y1结果仍是”BOYS!BOYS!”,随后在SUB1中把X1、Y1的值改为”

41、GIRLS!,实参X的值也就改成GIRLS!,实参Y不受影响；所以返回主程序后输出X+Y结果是”GIRLS!BOYS!”。,2.变量作用域及其定义 1.变量作用域的含义 内存变量的有效作用范围称为内存变量的作用域。根据作用域的不同，内存变量可分为全局变量、私有变量和局部变量三种类。 2.含作用域的变量定义 (1)全局变量的定义 1)在命令窗口创建的变量和数组将自动成为全局变量 2)用PUBLIC语句定义： 格式：PUBLIC 功能：定义全局内存变量和数组。 参数说明：逐一列出作为全局变量的内存变量和数组，其中数组用数组名或数组说明均可。若用数组说明，其格式如下： 数组名(，)。,(2)局部变量

42、的定义 局部变量只能用LOCAL语句定义。 格式：LOCAL 功能：定义局部内存变量和数组，并屏蔽来自上级过程（含主程序）中与当前局部变量同名的全局或私有变量，使在当前过程中对局部变量的操作，不影响上级过程中同名变量的值。 (3) 私有变量的定义 1)在一个程序或过程中建立的内存变量，如果未加任何说明，默认为私有变量。,2)用PRIVATE语句定义： 格式：PRIVATE 格式：PRIVATE ALL LIKE/EXCEPT 功能：定义私有内存变量和数组，并屏蔽来自上级过程（含主程序)中与当前私有变量同名的全局或私有变量，使在当前过程中对私有变量的操作，不影响上级过程中同名变量的值。格式中的参

43、数说明： ALL：表示当前所有的内存变量均为私有变量。 ALL LIKE ：表示所有与相匹配的变量均为私有变量。 ALL EXCEPT ：表示所有不与相匹配的变量均为私有变量。,例:若有程序文件如下： CLEAR PUBLIC A PRIVATE B LOCAL C STORE 10 TO A,B,C DO SUB1 ?A,B,C RETURN PROC SUB1 ?A,B A=A+5 B=B+10 RETURN,本例中，全局变量A和私有变量B在主程序和内部过程SUB1之间双向传递数据，局部变量C的作用域是主程序本身，不能传递数据。如果在内部过程SUB1中增加?C语句，程序执行时就会报错，因为在SUB1中找不到变量C。,