第七章 程序设计基础.ppt

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

1、第七章第七章 程序设计基础程序设计基础n n一、一、VF的工作方式的工作方式n n二、程序的建立与运行二、程序的建立与运行n n三、程序中的交互语句及辅助语三、程序中的交互语句及辅助语句句n n四、程序的基本结构四、程序的基本结构n n五、过程设计五、过程设计VF的工作方式n nVF的三种工作方式：命令方式、菜单方式、程序文件方式。n n程序文件（命令文件）方式：程序：就是根据所解决问题的需要，将能完成相程序：就是根据所解决问题的需要，将能完成相应功能的命令或语句按照一定的逻辑关系组织起应功能的命令或语句按照一定的逻辑关系组织起来的命令集合。来的命令集合。程序文件的扩展名为程序文件的扩展名为.

2、PRGPRG。返回程序的建立与运行n n以命令方式建立、编辑程序文件以命令方式建立、编辑程序文件 格式：格式：MODIFY COMMAND MODIFY COMMAND 功能：建立或编辑修改程序文件。功能：建立或编辑修改程序文件。说明：说明：n n扩展名默认为扩展名默认为PRGPRG。n n文件名为默认路径下已有的文件，则使用此命令表示修改指定的程序。文件名为默认路径下已有的文件，则使用此命令表示修改指定的程序。文件名为默认路径下没有的文件，则使用此命令表示新建指定的程序。文件名为默认路径下没有的文件，则使用此命令表示新建指定的程序。n n命令：命令：MODI COMM MODI COMM？功

3、能：从文件列表中选择要修改的程序。功能：从文件列表中选择要修改的程序。保存程序：保存程序：1 1、用、用“文件文件”菜单中的菜单中的”保存保存“命令。命令。2 2、工具栏上的、工具栏上的”保存保存“按钮。按钮。3 3、按关闭按钮。、按关闭按钮。上一页下一页程序的建立与运行程序书写规则：程序书写规则：n n程序中的每条命令都必须以回车结尾。程序中的每条命令都必须以回车结尾。n n一行只能写一条命令，若命令需分行写，应在一行一行只能写一条命令，若命令需分行写，应在一行尾加尾加“；”号续行，然后回车。号续行，然后回车。n n以菜单方式建立、编辑程序文件n n用“项目管理器”建立、编辑程序文件上一页下

4、一页n n程序文件的调用以命令方式调用以命令方式调用格式：格式：DO DO 说明：程序运行中，遇到以下情况之一，将终止程序说明：程序运行中，遇到以下情况之一，将终止程序运行：运行：n n执行到程序尾，自然结束，返回执行到程序尾，自然结束，返回VFVF系统主窗口。系统主窗口。n n执行了执行了RETURNRETURN命令，终止程序执行，返回原调用处的下命令，终止程序执行，返回原调用处的下一语句继续执行。（主要用于过程中）一语句继续执行。（主要用于过程中）n n执行了执行了CANCELCANCEL命令，终止程序执行返回系统主窗口。命令，终止程序执行返回系统主窗口。n n执行了执行了QUITQUIT

5、命令，终止程序执行，退出命令，终止程序执行，退出VFVF系统。系统。以菜单方式调用程序文件以菜单方式调用程序文件上一页返回程序中的交互语句及辅助语程序中的交互语句及辅助语句句n n简单的格式化输入、输出命令简单的格式化输入、输出命令格式化输入命令格式化输入命令 格式：语句格式：语句1 1：SAY SAY GET GET FUNCTION FUNCTION PICTRUE PICTRUE RANGE RANGE,2 DEFAULT DEFAULT 2 VALID VALID 语句语句2 2：READREAD功能：语句功能：语句1 1的功能是在屏幕指定位置显示的功能是在屏幕指定位置显示 和和 的值

6、。语句的值。语句2 2的功能是重新编辑修改的功能是重新编辑修改 的值。的值。说明：说明：n n要输入编辑数据，语句要输入编辑数据，语句1 1、2 2必须联用，可编辑类必须联用，可编辑类型：型：C C、N N、D D、L L型。型。n nSAY SAY 用于对用于对GET GET 变量作提示性说明。变量作提示性说明。n nRANGERANGE限制输入数据的范围限制输入数据的范围.n nVALID VALID 表示输入数据和条件表示输入数据和条件.PICTRUEPICTRUE格式符代码表（按位指定输入格式）：格式符代码表（按位指定输入格式）：A A 只允许字符只允许字符 L L 只允许逻辑型数据只

7、允许逻辑型数据N N 允许字母或数字允许字母或数字 X X允许任何字符允许任何字符Y Y只允许逻辑型数据且将小写转换成大写只允许逻辑型数据且将小写转换成大写#允许数字、空格和下负号允许数字、空格和下负号9 9 只允许数字只允许数字 ！小写转换成大写小写转换成大写$数值前显示货币符号数值前显示货币符号.指定小数点位置指定小数点位置 *数值前显示数值前显示*号号nFUNCTION功能符代码：（用功能符代码：（用一个符号指定整个数据格式）一个符号指定整个数据格式）A只允许字符、字母只允许字符、字母！将小写字母转换成大写将小写字母转换成大写 用科学计数法显示数据用科学计数法显示数据程序中的交互语句及辅

8、助语句程序中的交互语句及辅助语句n n变量可为字段名变量，也可为内存变量，变量可为字段名变量，也可为内存变量，内存变内存变内存变内存变量必须有初值量必须有初值量必须有初值量必须有初值,或用或用或用或用DEFAULTDEFAULT短语的短语的短语的短语的2指定初值指定初值指定初值指定初值.初值一旦指定初值一旦指定初值一旦指定初值一旦指定,该变量的类型在编辑期该变量的类型在编辑期该变量的类型在编辑期该变量的类型在编辑期间就不能改变间就不能改变间就不能改变间就不能改变,字符型变量的宽度与数值型变量字符型变量的宽度与数值型变量字符型变量的宽度与数值型变量字符型变量的宽度与数值型变量的小数位数也无法改变

9、的小数位数也无法改变的小数位数也无法改变的小数位数也无法改变。例例1 1：编程在：编程在RCDARCDA表中追加记录，并输入编号、表中追加记录，并输入编号、姓名、性别、出生日期、工资现状的值。姓名、性别、出生日期、工资现状的值。(ZJ.PRG)(ZJ.PRG)例例2 2：编程输入：编程输入BHBH、XMXM、XBXB、RQRQ、GZGZ变量的值，变量的值，并将其追加到并将其追加到RCDARCDA表中。表中。(ZJ1.PRG)(ZJ1.PRG)程序中的交互语句及辅助语程序中的交互语句及辅助语句句n n格式化输出命令格式化输出命令格式化输出命令格式化输出命令格式：格式：格式：格式：SAY SAY

10、FUNCTION FUNCTION PICTURE PICTURE 例：查找王国民并输出。例：查找王国民并输出。例：查找王国民并输出。例：查找王国民并输出。(CHAZ.PRG)(CHAZ.PRG)上一页下一页n n人机对话命令人机对话命令人机对话命令人机对话命令输入单字符命令输入单字符命令输入单字符命令输入单字符命令WAITWAIT格式：格式：格式：格式：WAIT WAIT TO TO 功能：暂停程序执行，等待用户键入一字符后继续。功能：暂停程序执行，等待用户键入一字符后继续。功能：暂停程序执行，等待用户键入一字符后继续。功能：暂停程序执行，等待用户键入一字符后继续。说明：说明：说明：说明：n

11、 n输入的任何数据，均作为字符型数据处理。输入的任何数据，均作为字符型数据处理。输入的任何数据，均作为字符型数据处理。输入的任何数据，均作为字符型数据处理。n n只能输入一个字符或直接回车（回车相当于输入空串）。只能输入一个字符或直接回车（回车相当于输入空串）。只能输入一个字符或直接回车（回车相当于输入空串）。只能输入一个字符或直接回车（回车相当于输入空串）。n n一般用字符串说明，不选用则自动提示一般用字符串说明，不选用则自动提示一般用字符串说明，不选用则自动提示一般用字符串说明，不选用则自动提示“按任一键继续按任一键继续按任一键继续按任一键继续”。n n选用选用选用选用TO TO 时，可将

12、输入的字符保存在内存变量中，以便以时，可将输入的字符保存在内存变量中，以便以时，可将输入的字符保存在内存变量中，以便以时，可将输入的字符保存在内存变量中，以便以后使用。后使用。后使用。后使用。例：若有表文件例：若有表文件例：若有表文件例：若有表文件WJ1.DBFWJ1.DBF、WJ2.DBFWJ2.DBF、WJ3.DBFWJ3.DBF，如何实现如何实现如何实现如何实现只输入一个字符而能打开这些表。只输入一个字符而能打开这些表。只输入一个字符而能打开这些表。只输入一个字符而能打开这些表。上一页下一页人机对话命令人机对话命令输入字符串命令输入字符串命令ACCEPTACCEPT（可输入多个字符）可输

13、入多个字符）格式：格式：ACCEPT ACCEPT TO TO 功能：暂停程序执行，等待用户输入一串字符后，按功能：暂停程序执行，等待用户输入一串字符后，按回车键程序继续运行。回车键程序继续运行。说明：说明：n n输入的任何数据，均作为字符型数据处理。输入的任何数据，均作为字符型数据处理。n n提示信息的用法与提示信息的用法与WAITWAIT语句相同，不选用则不提示（与语句相同，不选用则不提示（与WAITWAIT不同）。不同）。例例1 1：根据输入的文件名：根据输入的文件名,打开指定的表文件。打开指定的表文件。例例2 2：在：在RCDARCDA表中按指定姓名（出生日期、工资）查表中按指定姓名（

14、出生日期、工资）查询（询（LOCATELOCATE，SEEKSEEK）记录。记录。(XMCZ)(XMCZ)上一页下一页输入多种类型数据命令输入多种类型数据命令输入多种类型数据命令输入多种类型数据命令INPUTINPUT格式：格式：INPUT INPUT TO TO 功能：暂停程序执行，等待用户输入数据，回车后继续。功能：暂停程序执行，等待用户输入数据，回车后继续。说明：说明：n n输入的数据类型可为输入的数据类型可为C C、N N、D D、L L。n n输入字符型数据，必须加定界符；输入日期型，用输入字符型数据，必须加定界符；输入日期型，用yyyy-mm-yyyy-mm-dddd或用或用CTO

15、DCTOD（）（）函数转换。函数转换。例例1 1：在：在RCDARCDA表中按指定姓名查询。表中按指定姓名查询。(XMCZ.PRG)(XMCZ.PRG)例例2 2：在：在RCDARCDA表中按指定工资（生日）查找。表中按指定工资（生日）查找。小结：区别小结：区别WAITWAIT、ACCEPTACCEPT、INPUTINPUT三条命令的不同。三条命令的不同。上一页下一页n n辅助命令CLEAR CLEAR 清屏命令清屏命令NOTE|*NOTE|*注释注释 必须自成一行，对必须自成一行，对程序段作说明。程序段作说明。&注释注释 接在命令语句后对该语句接在命令语句后对该语句作说明。作说明。TEXTT

16、EXT ENDTEXTENDTEXT功能：原样输出功能：原样输出TEXTTEXT与与ENDTEXTENDTEXT之间的内容。之间的内容。(CD.PRG)(CD.PRG)上一页返回程序的基本结构程序的基本结构n nVFVF系统的应用程序中，常见的控制结构有：系统的应用程序中，常见的控制结构有：顺序结构顺序结构顺序结构顺序结构特点：按照语句书写的先后顺序依次执行，执行到程序尾退特点：按照语句书写的先后顺序依次执行，执行到程序尾退出。出。缺陷：缺陷：1 1、一次只能操作一组数据；、一次只能操作一组数据；2 2、不能对数据进行判断。、不能对数据进行判断。分支结构分支结构分支结构分支结构一、简单分支语句

17、一、简单分支语句一、简单分支语句一、简单分支语句格式：格式：IF IF ENDIFENDIF意义：略。意义：略。上一页下一页一、简单分支语句说明：说明：IFIF、ENDIFENDIF必须成对使用。必须成对使用。n n 可以是表达式，也可是函数，但结果必须为可以是表达式，也可是函数，但结果必须为逻辑值。逻辑值。例例1 1：在在RCDARCDA表中按姓名查询记录，表中按姓名查询记录，找到则显示找到则显示该记录，没找到则提示该记录，没找到则提示“无此姓名的记录！无此姓名的记录！”。例例2 2：从键盘输入两个不同的自然数，输出其中从键盘输入两个不同的自然数，输出其中最大的。最大的。例例3 3：按姓名查

18、询，并提示是否进行修改，回答：按姓名查询，并提示是否进行修改，回答“Y Y”则修改，否则退出。则修改，否则退出。(CDXG.PRG)(CDXG.PRG)上一页下一页 二、选择分支语句二、选择分支语句二、选择分支语句二、选择分支语句格式：格式：IF IF 1 ELSEELSE 2 ENDIFENDIF意义：略。意义：略。例例1 1：P150P150。例例2 2：修改前面的例：修改前面的例2 2。上一页下一页三、多分支语句格式：格式：DO CASEDO CASE CASE CASE 1 1 CASE CASE n n OTHERWISE OTHERWISE n+1 ENDCASE ENDCASE功

19、能说明：略。功能说明：略。上一页下一页三、多分支语句注意：注意：n nDO CASEDO CASE与与ENDCASEENDCASE必须成对出现。必须成对出现。n nDO CASEDO CASE与与CASECASE之间不能放其它语句。之间不能放其它语句。n n各条件不能互相包含，即不能让两个或两个以上的各条件不能互相包含，即不能让两个或两个以上的 值值为为.T.T.，因为程序只能执行第一个值为因为程序只能执行第一个值为.T.T.的的 所对应的所对应的语句序列。语句序列。例例1 1：P151P151。例例2 2：从键盘上输入三个不同的自然数，输出其中最大从键盘上输入三个不同的自然数，输出其中最大的

20、。的。上一页下一页四、分支语句的嵌套四、分支语句的嵌套四、分支语句的嵌套四、分支语句的嵌套结构：略。结构：略。例例1 1：对对DJPDDJPD表，根据学号查询，对查到的记录再根据平表，根据学号查询，对查到的记录再根据平均分定等级，并填写等级字段，（均分定等级，并填写等级字段，（8585分以上为优，分以上为优，76857685为良，为良，60756075为中，为中，6060分以下为差）若没找到则显示：分以下为差）若没找到则显示：“查无此人！查无此人！”。例例2 2：对成绩表，根据学号查询，对查到的记录再判断其对成绩表，根据学号查询，对查到的记录再判断其民族，若为少数民族则总分民族，若为少数民族则

21、总分+5+5，否则不加分，若没找到指，否则不加分，若没找到指定记录，则提示：定记录，则提示：“查无此人！查无此人！”。注意：注意：n nELSEELSE与与ENDIFENDIF都与最近的都与最近的IFIF语句匹配。语句匹配。n n各分支结构不能相互交叉。各分支结构不能相互交叉。上一页下一页循环结构程序设计循环结构程序设计循环结构程序设计循环结构程序设计一、当型循环一、当型循环一、当型循环一、当型循环格式：格式：DO WHILE DO WHILE LOOPLOOP EXITEXIT ENDDOENDDO意义：当意义：当 为为.T.T.时，重复执行时，重复执行DO WHILEDO WHILE与与E

22、NDDOENDDO之间之间的语句序列，直到的语句序列，直到 为为.F.F.时，退出循环继续执行时，退出循环继续执行ENDDOENDDO之后的语句。之后的语句。上一页下一页一、当型循环一、当型循环注意：注意：n nLOOPLOOP、EXITEXIT只能在循环中使用，而不能在循环外只能在循环中使用，而不能在循环外使用。使用。n nDO WHILEDO WHILEENDDOENDDO语句本身不具有给循环变量赋语句本身不具有给循环变量赋初值的功能，因此应当在该语句之前给循环变量赋初值的功能，因此应当在该语句之前给循环变量赋初值，并在循环体中修改循环变量的值。初值，并在循环体中修改循环变量的值。n nL

23、OOPLOOP作用：不再执行其后的语句序列，而进入下作用：不再执行其后的语句序列，而进入下一次循环，即重新返回一次循环，即重新返回DO WHILEDO WHILE处判断条件的值。处判断条件的值。n nEXITEXIT作用：强制退出循环，继续执行作用：强制退出循环，继续执行ENDDOENDDO之后之后的语句。的语句。上一页下一页几种常见的循环结构：几种常见的循环结构：几种常见的循环结构：几种常见的循环结构：1 1、对数据表记录进行操作的循环、对数据表记录进行操作的循环、对数据表记录进行操作的循环、对数据表记录进行操作的循环特点：特点：特点：特点：n n循环条件一般用循环条件一般用.NOT.EOF

24、()NOT.EOF()。n n用用SKIPSKIP命令修改循环条件。命令修改循环条件。n n循环体中操作对象是数据表中的记录。循环体中操作对象是数据表中的记录。例例1 1：逐条显示逐条显示RCDARCDA表中性别为女的记录。（条件分表中性别为女的记录。（条件分别为别为.NOT.EOF()NOT.EOF()与与.NOT.BOF()NOT.BOF()。）。）例例2 2：在在RCDARCDA表中，按性别查找，依次对性别为女的表中，按性别查找，依次对性别为女的工资加工资加100100元。元。上一页下一页1、对数据表记录进行操作的循环例例3 3：在成绩表中，统计解几成绩分别在在成绩表中，统计解几成绩分别

25、在8585分以上，分以上，7676至至8585分，小于分，小于7676分的学生的人数。分的学生的人数。练习：练习：练习：练习：在在DJPDDJPD表中，按平均分对每人评定等级，表中，按平均分对每人评定等级，并将评定结果填到等级字段中。并将评定结果填到等级字段中。(85(85分以上为优，分以上为优，76857685为良，为良，60756075为中，为中，6060分以下为差）分以下为差）上一页下一页2、循环次数一定的循环特点：特点：特点：特点：n n循环次数一定。循环次数一定。n n循环条件多为关系表达式，其中含控制循环次数的循环变循环条件多为关系表达式，其中含控制循环次数的循环变量。量。n n循

26、环变量有初值和终值。循环变量有初值和终值。n n循环体中有修改循环变量的语句，使循环变量增或减值，循环体中有修改循环变量的语句，使循环变量增或减值，否则成为死循环。否则成为死循环。例例1 1：求求1 1到到100100之间所有整数之和。（两种方法）之间所有整数之和。（两种方法）例例2 2：求求1 1到到100100之间的奇数和。（三种方法）之间的奇数和。（三种方法）练习：练习：求求1010！。！。上一页下一页特点：特点：特点：特点：n n随机条件总是为随机条件总是为T T。（。（这样就不能自动退出循环这样就不能自动退出循环死死循环）循环）n n必要时，可使用必要时，可使用EXITEXIT、RE

27、TURNRETURN、CANCELCANCEL、QUITQUIT强强制退出循环）制退出循环）例：例：在在RCDARCDA表中，实现可连续按姓名查询。表中，实现可连续按姓名查询。作业：作业：作业：作业：用循环语句编程判断任意一个由键盘输入的用循环语句编程判断任意一个由键盘输入的数是否为素数。数是否为素数。3、随机循环、随机循环上一页下一页二、二、二、二、“计数计数计数计数”型循环控制语句型循环控制语句型循环控制语句型循环控制语句格式：格式：FOR FOR =TO TO STEP STEP LOOPLOOP EXIT EXIT ENDFOR|NEXT ENDFOR|NEXT功能：功能：循环变量首先

28、被赋为变量初值，然后比较循环变量与终值来决定循环变量首先被赋为变量初值，然后比较循环变量与终值来决定是否执行循环体内的命令语句。是否执行循环体内的命令语句。步长值为正数时步长值为正数时，若循环变量值不大于，若循环变量值不大于终值，就执行循环体；终值，就执行循环体；步长为负数时步长为负数时，若循环变量不小于终值，就执行，若循环变量不小于终值，就执行循环体。执行一遇到循环体。执行一遇到ENDFORENDFOR或或NEXTNEXT，循环变量立即被加上步长值，然循环变量立即被加上步长值，然后重新与结束值比较。后重新与结束值比较。说明：说明：如果无如果无STEPSTEP短语，默认步长值为短语，默认步长值

29、为1 1。例：改写前面当型循环的例子。例：改写前面当型循环的例子。上一页下一页三、“指针”型循环控制语句格式：格式：SCAN SCAN FOR FOR 1 WHILE WHILE 2 LOOPLOOP EXITEXIT ENDSCAN ENDSCAN 功能：程序执行到该语句，首先判断功能：程序执行到该语句，首先判断EOF()EOF()函数的值，若为真，函数的值，若为真，则执行则执行ENDSCANENDSCAN之后的语句；否则结合条件之后的语句；否则结合条件1 1与条件与条件2 2执行循环执行循环中的中的 ，然后指针移到下一条范围内满足条件的记录，然后指针移到下一条范围内满足条件的记录，再判断再

30、判断EOF()EOF()的值，直到的值，直到EOF()EOF()为真结束循环。为真结束循环。上一页下一页四、多重循环：即循环体中又包含另外一些循环。格式：略。格式：略。例例1 1：在：在RCDARCDA表中，按性别查询，要求能逐条查到所有表中，按性别查询，要求能逐条查到所有性别相同的记录并显示。性别相同的记录并显示。例例2 2：打印九九表。：打印九九表。练习：输出练习：输出3 3到到100100之间的所有素数。（输出格式：一之间的所有素数。（输出格式：一行输出行输出5 5个数，每个数间用个数，每个数间用5 5空格隔开。）空格隔开。）上一页返回过程与过程调用过程与过程调用n n引入n n定义：我

31、们将以过程说明语句开头，以返回命令结我们将以过程说明语句开头，以返回命令结束，能完成一定功能，可以被其它程序反复调用的束，能完成一定功能，可以被其它程序反复调用的程序段叫做程序段叫做过程过程过程过程。n n过程的分类：1 1、以独立文件存在的过程，称为外部过程。、以独立文件存在的过程，称为外部过程。(包括包括子程序与过程文件子程序与过程文件)2 2、与调用程序共存于一个文件中的过程，称为内、与调用程序共存于一个文件中的过程，称为内部过程。部过程。上一页下一页n n过程返回语句1、RETURN TO MASTER功能：返回调用程序原调用处的下一语句继续执功能：返回调用程序原调用处的下一语句继续执

32、行。行。TO MASTER的作用：用在过程嵌套中，直接返回最高层调用处，如不选，则逐级返回。2、RETRY功能：返回调用程序原调用语句，继续执行。功能：返回调用程序原调用语句，继续执行。n n外部过程的建立及调用：1、建立与建立一般程序相同。上一页下一页n n求求5!+10!+20!5!+10!+20!SET TALK OFFSET TALK OFFS=0S=0N=1N=1T=1T=1DO WHILE N=5DO WHILE N=5 T=T*N T=T*N N=N+1 N=N+1ENDDOENDDOS=S+S=S+T TN=1N=1T=1T=1DO WHILE N=10DO WHILE N=1

33、0 T=T*N T=T*N N=N+1 N=N+1ENDDOENDDOS=S+TS=S+TN=1N=1T=1T=1DO WHILE N=20DO WHILE N=20 T=T*N T=T*N N=N+1 N=N+1ENDDOENDDOS=S+TS=S+T?5!+10!+20!=5!+10!+20!=,S,SSET TALK ONSET TALK ON返回 2 2、过程调用、过程调用 格式：格式：DO DO 说明：可以将过程保存在单独的程序文件中，也可说明：可以将过程保存在单独的程序文件中，也可放在程序的结尾，但不能把可执行的主程序放在过放在程序的结尾，但不能把可执行的主程序放在过程之后。程之后

34、。例：改写引入程序。例：改写引入程序。思考：求思考：求C=M!/(N!*(M-N)!)C=M!/(N!*(M-N)!)上一页下一页n n过程文件及使用过程文件及使用1 1、过程文件的建立、过程文件的建立格式：格式：MODI COMM MODI COMM 2 2、过程文件的组织形式、过程文件的组织形式PROCEDURE PROCEDURE 1 ENDPROCENDPROCPROCEDURE PROCEDURE N ENDPROCENDPROC上一页下一页 3、过程文件的调用步骤：打开过程文件格式：SET PROCEDURE TO 注意：同一时刻只允许打开一个过程文件。调用过程文件中的过程格式：D

35、O 功能：调用已打开的过程文件中的指定过程。关闭过程文件格式1：SET PROCEDURE TO格式2：CLOSE PROCEDURE功能：关闭打开的过程文件。上一页下一页n n过程的嵌套n n过程调用中的数据传递利用内存变量的属性传递数据利用内存变量的属性传递数据n n全局变量（公共变量）全局变量（公共变量）全局变量（公共变量）全局变量（公共变量）公共变量是在公共变量是在VFVF系统的全部范围内均有效的内存变量。系统的全部范围内均有效的内存变量。（包括命令窗口及程序的（包括命令窗口及程序的任何部分任何部分 主程序及其子程序中主程序及其子程序中）定义格式：定义格式：定义格式：定义格式：PUBL

36、IC PUBLIC 功能：把功能：把 中指定的内存变量定义为全局变量。中指定的内存变量定义为全局变量。说明：说明：1 1、全局变量在程序结束时不释放，只能使用清除、全局变量在程序结束时不释放，只能使用清除内存变量的命令清除。（内存变量的命令清除。（CLEAR MEMORYCLEAR MEMORY，CLEAR ALLCLEAR ALL）2 2、定义的全局变量在赋值前，自动赋值为定义的全局变量在赋值前，自动赋值为.F.F.。上一页下一页n n本地变量本地变量本地变量本地变量局部变量只在定义它的程序段有效，而在此程序段的上级程局部变量只在定义它的程序段有效，而在此程序段的上级程序段或下级程序段无效。

37、序段或下级程序段无效。定义格式：定义格式：定义格式：定义格式：LOCAL LOCAL 功能：把功能：把 中指定的内存变量定义为局部变量。中指定的内存变量定义为局部变量。说明：说明：1 1、局部变量在其所在程序段结束时自动清除。、局部变量在其所在程序段结束时自动清除。2 2、定义的局部变量在赋值前，自动赋值为、定义的局部变量在赋值前，自动赋值为.F.F.。上一页下一页n n私有变量私有变量私有变量私有变量私有变量是在定义它的程序段以及其下级程序段（被调私有变量是在定义它的程序段以及其下级程序段（被调用过程）的局部范围内都有效的内存变量。用过程）的局部范围内都有效的内存变量。定义格式定义格式定义格

38、式定义格式1 1：PRIVATE PRIVATE 格式格式格式格式2 2：PRIVATE ALL LIKE|EXCEPT PRIVATE ALL LIKE|EXCEPT 功能：把指定的变量定义为私有变量。功能：把指定的变量定义为私有变量。说明：说明：1 1、程序中凡没有使用、程序中凡没有使用PUBLICPUBLIC、LOCALLOCAL和和PRIVATEPRIVATE语句定义的变量都是私有变量。语句定义的变量都是私有变量。上一页下一页2 2、格式、格式2 2用法：用法：PRIVATE ALLPRIVATE ALL：定义所有内存变量为定义所有内存变量为私有私有变量。变量。PRIVATE ALL

39、LIKE PRIVATE ALL LIKE ：定义与：定义与 相符的变量为相符的变量为私有私有变量。变量。PRIVATE ALL EXCEPT PRIVATE ALL EXCEPT ：定义与：定义与 不相符的变量为不相符的变量为私有私有变量。变量。3 3、本地变量、本地变量 、私有变量在其有效程序段结束时自动清、私有变量在其有效程序段结束时自动清除。除。例子例子上一页下一页 set talk off set talk off local y local y priv x1 priv x1 public z,z1 public z,z1 x=5 x=5 y=6 y=6 z=9 z=9 z1=28

40、 z1=28 x1=8 x1=8?x=,x,y=,y,x1=,x1,z=,z,z1=,z1?x=,x,y=,y,x1=,x1,z=,z,z1=,z1 do kk do kk?x=,x,y=,y,x1=,x1,z=,z,z1=,z1,z2=,z2?x=,x,y=,y,x1=,x1,z=,z,z1=,z1,z2=,z2 set talk on set talk on子程序子程序子程序子程序KK.PRGKK.PRG local y1 local y1 priv x2,z priv x2,z public z2 public z2 x3=7 x3=7 y1=5 y1=5 x2=0 x2=0 x=1 x

41、=1 z=y1+x3 z=y1+x3 z2=z+x z2=z+x?x2=,x2,y1=,y1,x3=,x3,z2=,z2?x2=,x2,y1=,y1,x3=,x3,z2=,z2?x=,x,x1=,x1,z=,z,z1=,z1?x=,x,x1=,x1,z=,z,z1=,z1 return return上一页下一页n n过程调用中的参数传递过程调用中的参数传递使用此方法传递数据时，在调用程序中应使用相应的调使用此方法传递数据时，在调用程序中应使用相应的调用语句传递数据，在过程中应使用相应的语句来接收数用语句传递数据，在过程中应使用相应的语句来接收数据。据。调用语句调用语句格式：格式：DO DO W

42、ITH WITH 功能：在调用过程时，将指定参数（实参）传递给被调用的功能：在调用过程时，将指定参数（实参）传递给被调用的过程。过程。接受数据的语句接受数据的语句格式：格式：PARAMETERS PARAMETERS 功能：由参数表中参数（形参）接收调用语句中相应参数的功能：由参数表中参数（形参）接收调用语句中相应参数的值，并在返回调用程序时，将参数的新值返回给调用语句中值，并在返回调用程序时，将参数的新值返回给调用语句中相应的参数。相应的参数。上一页下一页注意：注意：1 1、两参数表中的参数是一对一传递的，、两参数表中的参数是一对一传递的，两个表中的参数必须个数相同且类型相同。两个表中的参数

43、必须个数相同且类型相同。2 2、如果实参是常量或表达式，则形参值的改变、如果实参是常量或表达式，则形参值的改变不影响实参值的改变。不影响实参值的改变。如果实参是变量，则形参的值将直接改变实如果实参是变量，则形参的值将直接改变实参的值。参的值。例：求矩形的面积。矩形的长、宽从键盘输入。例：求矩形的面积。矩形的长、宽从键盘输入。上一页下一页n n自定义函数用户自定义函数的实质就是一个能完成一定功能的可以被调用的特殊过程。格式：格式：PARAMETERS PARAMETERS RETURN RETURN 说明：说明：RETURNRETURN语句实现将函数值返回给调用程语句实现将函数值返回给调用程序。序。例：自定义一个求解例：自定义一个求解X3+X2+XX3+X2+X的函数的函数XS()XS()。上一页返回