第第6章章 程序设计基础程序设计基础6.1 6.1 程序文件的建立与运行程序文件的建立与运行6.2 6.2 结构化程序设计初步结构化程序设计初步6.3 6.3 顺序结构程序设计顺序结构程序设计6.4 6.4 程序的选择结构程序的选择结构6.5 6.5 循环结构循环结构6.6 6.6 多模块程序设计多模块程序设计6.7 6.7 参数传递与变量作用域参数传递与变量作用域 教学目的教学目的 了了解解面面向向过过程程的的程程序序设设计计方方法法，结结构构化化程程序序设设计计的的三三种种基基本本结构，子程序和过程的使用方法。结构，子程序和过程的使用方法。 基本要求基本要求 通过对三种结构的学习，可以进行简单的程序设计通过对三种结构的学习，可以进行简单的程序设计 教学要点教学要点 循环嵌套，模块调用，变量的作用域。循环嵌套，模块调用，变量的作用域。 6.1 6.1 程序文件的建立与运行程序文件的建立与运行 程序：程序：为完成某一特定任务而组织编写的一系列命令为完成某一特定任务而组织编写的一系列命令和语句。和语句。程序文件：程序文件：程序以文件的形式存放于磁盘上，这个文件就称程序以文件的形式存放于磁盘上，这个文件就称为程序文件。为程序文件。（1 1）命令方式）命令方式: : MODIFY COMMAND MODIFY COMMAND |? 或或MODIFY file MODIFY file |? |? 6.1.2 6.1.2 VFPVFP程序文件的建立与执行程序文件的建立与执行1.1.程序文件的建立（默认扩展名为程序文件的建立（默认扩展名为. .PRGPRG） 第一条命令中，文件的默认扩展名为第一条命令中，文件的默认扩展名为. .PRGPRG，可省略，第可省略，第二条命令中，建立程序文件时文件扩展名二条命令中，建立程序文件时文件扩展名. .PRGPRG必须同时输必须同时输入，不能省略。入，不能省略。 在文件名前可直接指明该文件保存的路径。在文件名前可直接指明该文件保存的路径。 用用 ENDEND（即即CTRL+ENDCTRL+END键，以下类似）或键，以下类似）或 W W将编辑结果存将编辑结果存盘，或执行盘，或执行“文件文件”菜单中的菜单中的“保存保存”命令存盘；用命令存盘；用 Q Q或或ESCESC键放弃存盘，并退出编辑程序。键放弃存盘，并退出编辑程序。执行该命令后，执行该命令后，VFPVFP将打开一个用于输入和编辑修改程将打开一个用于输入和编辑修改程序的窗口，窗口的标题栏所显示的就是该命令中的文序的窗口，窗口的标题栏所显示的就是该命令中的文件名，如图所示。件名，如图所示。 （2 2）菜单方式）菜单方式: : “文件文件” ” “新建新建” ” 弹出弹出“新建新建”的对话框的对话框 “ “文件类型文件类型”框框里选择里选择“程序程序” ” 单击按钮单击按钮“新建文件新建文件” ” 弹出文本编辑窗口，弹出文本编辑窗口，在这个窗口中就可以输入命令和语句了，最后，选择系统菜单在这个窗口中就可以输入命令和语句了，最后，选择系统菜单“文件文件”里的菜单项里的菜单项“保存保存”，按照系统提示将输入窗口中的程序，按照系统提示将输入窗口中的程序保存起来。保存起来。(3) (3) 在在“项目管理器项目管理器”对话框中选择对话框中选择“代码代码”选项卡中的选项卡中的“程序项程序项”，再单击，再单击“新建新建”按钮。按钮。 (4)(4)利用其它编辑软件建立和编辑命令文件利用其它编辑软件建立和编辑命令文件由于由于FoxProFoxPro的命令文件属于文本文件，因此可在的命令文件属于文本文件，因此可在WindowsWindows操作系操作系统下利用统下利用WORDWORD、WPSWPS等编辑软件或等编辑软件或DOSDOS操作系统下利用操作系统下利用EDITEDIT等编辑等编辑软件来建立和编辑命令文件。软件来建立和编辑命令文件。 示例：建立应用程序示例：建立应用程序L1.PRG L1.PRG ，功能为：打开表文件功能为：打开表文件“学生学生. .dbf”dbf”，根据键入的学生姓名在该表文件中查找并输出该学生的根据键入的学生姓名在该表文件中查找并输出该学生的基本情况，关闭文件，返回。基本情况，关闭文件，返回。命令窗口：命令窗口：MODI COMM VFPL1.PRG MODI COMM VFPL1.PRG 编辑窗口：编辑窗口：* *L1.PRGL1.PRG SET TALK OFF SET TALK OFF USE VFP USE VFP学生学生. .DBFDBF ACCEPT “ ACCEPT “请输入学生姓名：请输入学生姓名：” ” TO XMTO XM LOCATE FOR LOCATE FOR 姓名姓名= =XMXM ? ? 学号学号, ,姓名姓名, ,性别性别, ,班级班级 USEUSE SET TALK OFF SET TALK OFF RETURN RETURN2.2.程序文件的修改程序文件的修改(1)(1)利用系统菜单，操作与建立程序文件相同。利用系统菜单，操作与建立程序文件相同。(2)(2)在命令方式下，其操作与建立程序文件相同，但必须在命令方式下，其操作与建立程序文件相同，但必须带文件名或带文件名或“？”。(3)(3)若程序包含在一个项目中，可以在若程序包含在一个项目中，可以在“项目管理器项目管理器”对对话框中选定它，再单击话框中选定它，再单击“修改修改”命令按钮。命令按钮。3.3.程序文件的执行程序文件的执行方法一、在命令方式下执行命令文件方法一、在命令方式下执行命令文件 DODO程序文件名程序文件名 WITH WITH 方法二、使用系统菜单执行命令文件方法二、使用系统菜单执行命令文件“程序程序” “” “运行运行( (D)”D)”，然后在弹出的然后在弹出的“运行运行”对话对话框中，选择框中，选择“程序列表程序列表”中要执行的程序文件名，再单击中要执行的程序文件名，再单击“运行运行”按钮，程序就可以执行。按钮，程序就可以执行。方法三、若程序包含在一个项目中，则可以在方法三、若程序包含在一个项目中，则可以在“项目管理项目管理器器”对话框中选定它，再单击对话框中选定它，再单击“运行运行”按钮。按钮。4.4.程序书写规则程序书写规则(1)(1)命令分行命令分行程序中每行命令都以回车键结束，一行只能写一条命令。程序中每行命令都以回车键结束，一行只能写一条命令。若命令需分行书写，应在一行终了时健入继行符若命令需分行书写，应在一行终了时健入继行符“；”，然后，然后按回车键，继续在下一行输入。按回车键，继续在下一行输入。 (2) (2)命令注释命令注释 程序中可插入注释，以提高程序的可读性。程序中可插入注释，以提高程序的可读性。 注释行以符号注释行以符号“*”“*”开头，它是一条非执行命令，仅在程序开头，它是一条非执行命令，仅在程序中显示。命令行的后面也可添加注释，这种注释以符号中显示。命令行的后面也可添加注释，这种注释以符号“&”“&”开头。开头。例如，例如，* * 本程序用于修改表的指定纪录本程序用于修改表的指定纪录 SET DATA USA & SET DATA USA & 日期格式置为日期格式置为 MM-DD-YY MM-DD-YY 6.1.36.1.3、常使用的命令。、常使用的命令。命令命令 set talk set talk 命令命令格式：格式：set talk on/offset talk on/off功能：该命令控制其它命令执行的结果输出不输出到屏幕上功能：该命令控制其它命令执行的结果输出不输出到屏幕上命令命令 set print set print 命令命令格式：格式：set print off/onset print off/on功能：该命令控制输出结果不输出输出到打印机打印输出功能：该命令控制输出结果不输出输出到打印机打印输出命令命令文本输出命令文本输出命令格式格式1 1：texttext 文本信息文本信息 endtextendtext功能：此命令把文本信息内容显示出来，允许文本信功能：此命令把文本信息内容显示出来，允许文本信息出现多行，它只能在程序工作方式中使用，而且息出现多行，它只能在程序工作方式中使用，而且TEXTTEXT与与ENDTEXTENDTEXT必须成对出现。必须成对出现。格式格式2 2：功能：能将一行文本信息的内容按书写形式的原样显示出功能：能将一行文本信息的内容按书写形式的原样显示出来。来。 与与的区别在于前者是在下一行的第一列开始输出，的区别在于前者是在下一行的第一列开始输出，而后者则不换行，在当前光标位置处开始显示。而后者则不换行，在当前光标位置处开始显示。命令命令5 5：清屏命令：清屏命令格式：格式：clearclear 功能：清屏，常将此命令用于程序开始，保持屏幕整洁功能：清屏，常将此命令用于程序开始，保持屏幕整洁. .命令命令4 4 注释语句注释语句 格式一：格式一：note note 注释字符注释字符 格式二：格式二： * * 注释字符注释字符 格式三：格式三：& & 注释注释 功能：格式一、格式二一般对程序作注释。格式三注释功能：格式一、格式二一般对程序作注释。格式三注释某命令语句，只用在被注释的命令行之后。某命令语句，只用在被注释的命令行之后。命令命令6 6：返回命令：返回命令格式：格式： return to masterreturn to master 功能：功能：return return 在一个主程序中用于结束此程序的运在一个主程序中用于结束此程序的运行并返回命令窗口；在子程序中用于结束子程序并返回到调行并返回命令窗口；在子程序中用于结束子程序并返回到调用此过程中的下一语句用此过程中的下一语句 return to masterreturn to master将过程的调用直接返回主程序。将过程的调用直接返回主程序。 中止程序执行命令中止程序执行命令格式：格式：CANCELCANCEL功能：中止功能：中止FoxProFoxPro程序的执行。程序的执行。说明：当说明：当FoxProFoxPro程序运行到该语句时，将不再执行其后面的程序运行到该语句时，将不再执行其后面的所有语句，而直接退出程序，返回到命令窗口，同时关闭所所有语句，而直接退出程序，返回到命令窗口，同时关闭所有已打开的文件。有已打开的文件。 命令命令8. 8. 非格式化交互式命令非格式化交互式命令单字符接收命令（即等待命令）单字符接收命令（即等待命令）格式：格式：WAITWAIT TOTOWINDOWATWINDOWAT ， NOWAIT CLEAR|NOCLEAR TIMEOUTNOWAIT CLEAR|NOCLEAR TIMEOUT功能：暂停程序的执行，等待用户输入一个字符或按任功能：暂停程序的执行，等待用户输入一个字符或按任一键。也可只用于输出一条提示信息。一键。也可只用于输出一条提示信息。说明说明 WAITWAIT命令使用命令使用VFPVFP程序暂停运行，等用户按任意键（或回程序暂停运行，等用户按任意键（或回车）后，程序继续执行。车）后，程序继续执行。 用于输出一条提示信息。如缺省用于输出一条提示信息。如缺省 ，则执行命令后屏幕显示则执行命令后屏幕显示“按任意键继续按任意键继续”，提示用户按任，提示用户按任意键，系统将继续运行。意键，系统将继续运行。 用于保存从键盘键入的字符，如果不选用于保存从键盘键入的字符，如果不选TOTO子句，子句，则输入的数据不予保存。则输入的数据不予保存。 WindowsWindows子句可使主屏幕上出现一个子句可使主屏幕上出现一个WAITWAIT提示窗口，用于提示窗口，用于输出提示信息，该窗口的位置由输出提示信息，该窗口的位置由ATAT选项的选项的 ， 来指定，来指定，若缺省若缺省ATAT选项，选项， 在主屏幕右上角显示。在主屏幕右上角显示。 若使用若使用NOWAITNOWAIT选项，系统将不等用户按键选项，系统将不等用户按键, ,立即往下执行。立即往下执行。字符串接收命令字符串接收命令格式：格式：ACCEPT ACCEPT TOTO内存变量内存变量 功能：暂停程序的执行，等待用户输入字符串数据。功能：暂停程序的执行，等待用户输入字符串数据。任意类型数据接收命令任意类型数据接收命令格式：格式：INPUT INPUT TO TO 功能：暂停程序的执行，等待用户输入数据。功能：暂停程序的执行，等待用户输入数据。 系统执行该语句时，暂停正在运行着的程序，并显示提系统执行该语句时，暂停正在运行着的程序，并显示提示信息，然后等待用户从键盘输入数据，它允许用户输入多示信息，然后等待用户从键盘输入数据，它允许用户输入多个字符直至输入回车为止。并将输入的信息以字符串的形式个字符直至输入回车为止。并将输入的信息以字符串的形式存储在内存变量中，故常用于输入字符型的数据。存储在内存变量中，故常用于输入字符型的数据。 WAITWAIT和和ACCEPTACCEPT的相同点是：它们接收的均是字符型数据，的相同点是：它们接收的均是字符型数据，故两者所接收的字符型数据都无需用单、双引号或方括号括故两者所接收的字符型数据都无需用单、双引号或方括号括起来。起来。 WAITWAIT和和ACCEPTACCEPT的最大区别是：的最大区别是：WAITWAIT只接收单个字符，并只接收单个字符，并且不需要输入回车键，而且不需要输入回车键，而ACCEPTACCEPT可接收多个字符，且必须用可接收多个字符，且必须用回车键来结束字符串的输入。回车键来结束字符串的输入。说明：说明： WAITWAIT和和ACCEPTACCEPT只能满足字符型变量的赋值，而只能满足字符型变量的赋值，而INPUTINPUT能满能满足字符、数值、日期、逻辑型变量的赋值足字符、数值、日期、逻辑型变量的赋值, ,可用于输入各种类可用于输入各种类型的数据。型的数据。使用使用INPUTINPUT语句若给变量赋的值是字符型，需加定界符，否则语句若给变量赋的值是字符型，需加定界符，否则系统会把它当成一个变量名处理；若给变量赋的值是逻辑型系统会把它当成一个变量名处理；若给变量赋的值是逻辑型常量，需用定界符常量，需用定界符(.)(.)括住；输入日期型常量两端须加花括号括住；输入日期型常量两端须加花括号；输入数值型常量，则直接输入整数或实数，也可以输入；输入数值型常量，则直接输入整数或实数，也可以输入一个表达式。一个表达式。 提示信息的内容同提示信息的内容同WAITWAIT和和ACCEPTACCEPT语句。语句。9.9.格式化输入输出命令格式化输入输出命令格式化输出语句：格式化输出语句：SAYSAY格式：格式： 行行, ,列列SAYSAY表达式表达式功能：在指定的行和列输出表达式的值。功能：在指定的行和列输出表达式的值。说明：说明：行行, ,列确定光标的位置。把显示屏看作是由行和列组成列确定光标的位置。把显示屏看作是由行和列组成的二维坐标系，其坐标系为的二维坐标系，其坐标系为2525行行*80*80列，规定行值取值范围是列，规定行值取值范围是整数整数0 02424，列值取值范围是整数，列值取值范围是整数0 07979。那么，屏幕最左上角。那么，屏幕最左上角字符的坐标就为（字符的坐标就为（0 0，0 0），最右下角字符的坐标就为（），最右下角字符的坐标就为（2424，7979）。）。例如：例如：55，30 30 SAY “ABCD”SAY “ABCD”执行结果将在屏幕的第执行结果将在屏幕的第5 5行第行第3030列位置开始显示字符串列位置开始显示字符串ABCD ABCD 格式化输入语句：格式化输入语句：格式：格式：SAYSAY GETGET READ READ 功能：定位显示功能：定位显示GETGET变量的值；变量的值；READREAD命令激活当前未被激活的命令激活当前未被激活的所有所有GETGET变量，用户就可对这些变量，用户就可对这些GETGET变量进行编辑。变量进行编辑。说明：说明： GET READGET READ给变量赋值的方式为全屏幕操作。开始执行时光给变量赋值的方式为全屏幕操作。开始执行时光标停在标停在GETGET变量显示区的第一个位置上，利用方向键可在显示区内变量显示区的第一个位置上，利用方向键可在显示区内上下左右移动光标。当光标在最后一个上下左右移动光标。当光标在最后一个GETGET变量的显示位置时，按变量的显示位置时，按下回车键则数据存入变量，且全屏幕编辑结束。接着就执行下回车键则数据存入变量，且全屏幕编辑结束。接着就执行READREAD的的后继命令。后继命令。 若缺省若缺省SAYSAY子句，子句，GETGET变量值从由变量值从由 指定的坐标开始显示；指定的坐标开始显示；含有含有SAYSAY子句时先显示其表达式值，然后隔一个字符接着显示子句时先显示其表达式值，然后隔一个字符接着显示GETGET变变量的值。量的值。 GETGET变量必须具有初值，除变量的类型遵照初值外，其长度也将变量必须具有初值，除变量的类型遵照初值外，其长度也将由初值决定。故使用前必须先定义。由初值决定。故使用前必须先定义。6.2 6.2 结构化程序设计初步结构化程序设计初步 1.1.算法及流程图算法及流程图(1)(1)算法的概念算法的概念: :根据问题要求拟定用计算机求解的策略和步根据问题要求拟定用计算机求解的策略和步骤，并把它用某种工具描述出来，称之为骤，并把它用某种工具描述出来，称之为“算法设计算法设计”。 (2)(2)算法的流程图描述算法的流程图描述 : :用一些简单的几何框图表示各种类型用一些简单的几何框图表示各种类型的操作，然后用带箭头的有向流线将各个框图连结起来，以的操作，然后用带箭头的有向流线将各个框图连结起来，以表示其执行的先后顺序，这种框图称为表示其执行的先后顺序，这种框图称为“流程图流程图”。2.2.结构化程序设计方法结构化程序设计方法 结构化程序指整个程序由顺序、选择、循环三种基本结构组成结构化程序指整个程序由顺序、选择、循环三种基本结构组成。 (1)(1)自顶向下逐步求精：自顶向下逐步求精：从全局出发，通盘考虑，把问题的整体从全局出发，通盘考虑，把问题的整体分解成若干个相对独立的小问题，然后再把小问题分解为若干分解成若干个相对独立的小问题，然后再把小问题分解为若干个相对独立的更小的问题，直到能表示成程序为止。个相对独立的更小的问题，直到能表示成程序为止。 (2)(2)模块化设计：模块化设计：由一个大问题分解成若干个相对独立的小问题，由一个大问题分解成若干个相对独立的小问题，每个小问题实现一定的功能，称为功能模块。对大的功能模块，每个小问题实现一定的功能，称为功能模块。对大的功能模块，采用自顶向下逐步求精的方法划分为更小的功能模块。各功能采用自顶向下逐步求精的方法划分为更小的功能模块。各功能模块的程序可单独编写和调试，这样便于多人协助完成较大型模块的程序可单独编写和调试，这样便于多人协助完成较大型的程序设计。的程序设计。3. 3. 程序设计的步骤程序设计的步骤(1)(1)分析问题分析问题主要是分析待编程序要解决什么问题，需要输入什么主要是分析待编程序要解决什么问题，需要输入什么数据，需要做哪些处理，需要输出什么数据等等。数据，需要做哪些处理，需要输出什么数据等等。(2)(2)画流程图画流程图用流程图来描述处理问题的过程。用流程图来描述处理问题的过程。(3)(3)编写程序编写程序根据程序流程图，将所需要的根据程序流程图，将所需要的VFPVFP的命令、语句组织在的命令、语句组织在一起。一起。(4)(4)调试调试通过运行程序对程序进行正确性检验和测试。通过运行程序对程序进行正确性检验和测试。 符符 号号 名名 称称 功功 能能起止框起止框描述流程图的开始和结束描述流程图的开始和结束处理框处理框代表一个处理过程，其特征是一代表一个处理过程，其特征是一个入口，一个出口个入口，一个出口判断框判断框为为选选出出几几条条路路线线中中的的一一条条而而进进行行的判断（条件转移操作）的判断（条件转移操作）输入输输入输出框出框表示输入输出表示输入输出 流程线流程线表示信息流动的通道表示信息流动的通道 连接符连接符一一个个流流程程图图在在一一页页纸纸上上画画不不下下时时，用该符号连接用该符号连接4.4.流程图介绍流程图介绍(1)(1)绘制流程图时所用到的基本符号绘制流程图时所用到的基本符号说明：说明： 处理框中含有一个语句功能或一段程序，一般用自然处理框中含有一个语句功能或一段程序，一般用自然语言或数学表达式描述，尽量简明扼要。语言或数学表达式描述，尽量简明扼要。 流向线要清晰明确，不能相互交叉，不能出现死循环流向线要清晰明确，不能相互交叉，不能出现死循环流向线。流向线。 无论框图描述的处理过程如何，所画框图总是只有一无论框图描述的处理过程如何，所画框图总是只有一个入口，最后汇集到一个出口。个入口，最后汇集到一个出口。 例：计算例：计算1 12 23 3100100。 SET TALK OFFSET TALK OFF S=0 S=0 FOR N=1 TO 100 FOR N=1 TO 100 S=S+N S=S+N ENDF ENDF ? 1 ? 12 23 3100=,S100=,S RETURN RETURN 算法流程图2)2)举例：用框图描述求一元二次方程举例：用框图描述求一元二次方程ax2+ax2+bxbx+c=0+c=0的实根的实根的过程的过程分析：分析：首先输入首先输入a,b,ca,b,c的值，其次，计算判断求一元二次方程实的值，其次，计算判断求一元二次方程实根的条件根的条件b*b-4*a*cb*b-4*a*c的值，最后判断的值，最后判断b*b-4*a*cb*b-4*a*c的值是否的值是否满足实根存在的条件，若不满足，则输出方程无实根，满足实根存在的条件，若不满足，则输出方程无实根，若满足则方程有二个实根，输出两实根若满足则方程有二个实根，输出两实根x1,x2x1,x2：x1=(-b+x1=(-b+sqrtsqrt(b*b-4*a*c)/(2*a)(b*b-4*a*c)/(2*a)x2=(-b-x2=(-b-sqrtsqrt(b*b-4*a*c)/(2*a)(b*b-4*a*c)/(2*a)6.3 顺序结构程序设计顺序结构程序设计 1.1.顺序结构顺序结构 程序运行时，按照命令（语句）的排列顺序逐条执行，程序运行时，按照命令（语句）的排列顺序逐条执行，这种结构就称为顺序结构。这种结构就称为顺序结构。 2.2.简单的输入输出语句简单的输入输出语句 (1)(1)数据输入语句数据输入语句:INPUT :INPUT 1)1)格式格式: INPUT : INPUT TO TO 2)2)功能功能: :暂停程序运行，显示提示信息，等待用户从键盘上输入数据，暂停程序运行，显示提示信息，等待用户从键盘上输入数据，用户可以输入任意合法的表达式。用户可以输入任意合法的表达式。 (2)(2)单字符输入语句单字符输入语句: WAIT : WAIT 1)1)格式格式:WAIT :WAIT TO TO WINDOWS WINDOWS 2)2)功能功能: :暂停程序运行，显示提示信息，等待用户键入任何一个键，暂停程序运行，显示提示信息，等待用户键入任何一个键，然后继续执行程序。然后继续执行程序。 (3)(3)简单输出语句：？、简单输出语句：？、? ? 1)1)格式格式:?/? :?/? 2)2)功能功能: :依次计算并显示表达式表中各表达式的值，所显示的依次计算并显示表达式表中各表达式的值，所显示的值与值之间间隔一个空格。值与值之间间隔一个空格。 (4) (4) 信息显示函数信息显示函数: MESSAGEBOX( ) : MESSAGEBOX( ) 1)1)格式格式: MESSAGEBOX(: MESSAGEBOX(,) ) 2)2)功能功能: :暂停程序运行，在对话框中显示提示信息，等待用户暂停程序运行，在对话框中显示提示信息，等待用户单击按钮，并返回一个整数表示单击的是哪个按钮。单击按钮，并返回一个整数表示单击的是哪个按钮。 由三个数码相加产生，即由三个数码相加产生，即: : + 例例: :MESSAGEBOXMESSAGEBOX函数举例函数举例 MESSAGEBOX函数函数举例例对话框框图示示MESSAGEBOX(“欢迎使用本系统！”)MESSAGEBOX(“删除记录？”,1+48+256)MESSAGEBOX(“继续执行吗？”,3,”请确认”)3.3.环境设置语句环境设置语句环境设置语句：环境设置语句：SET SET 设置系统环境和状态的语句为设置系统环境和状态的语句为 SETSET语语句，句，SETSET语句实际上是一个语句组，分为两种格式：语句实际上是一个语句组，分为两种格式： 格式格式 SET SET ON/OFF ON/OFF 格式格式 SET SET TO TO 常用的几个常用的几个SETSET语句语句: : SET DEFAULT TO SET DEFAULT TO 功能：设置默认的工作目录功能：设置默认的工作目录。 (2) SET PATH TO (2) SET PATH TO 功能：设置搜索路径。功能：设置搜索路径。(3) SET TALK ON/OFF (3) SET TALK ON/OFF 功能功能: :控制是否使某些命令产生屏幕控制是否使某些命令产生屏幕显示显示 (4) SET PRINT ON/OFF (4) SET PRINT ON/OFF 功能：控制屏幕上的输出内容是否同时功能：控制屏幕上的输出内容是否同时送打印机打印。送打印机打印。4.4.注释注释 (1)(1)注释语句注释语句 1)1)格式格式 * */NOTE /NOTE 2)2)功能功能 注释语句是非执行语句，它们不对计算机产生任何操作注释语句是非执行语句，它们不对计算机产生任何操作,仅仅对程序起注解作用。仅仅对程序起注解作用。 (2)(2)行末注释行末注释 行末注释用在语句（命令）末尾，以行末注释用在语句（命令）末尾，以“&”&”起头，后跟本行的注起头，后跟本行的注释内容。释内容。6.3.1 6.3.1 顺序结构程序设计顺序结构程序设计1.1.概念概念顺序结构程序：自始至终严格按照程序中语句的先后顺序逐顺序结构程序：自始至终严格按照程序中语句的先后顺序逐条执行，是最基本、最普遍的结构形式。条执行，是最基本、最普遍的结构形式。顺序结构的流程图：顺序结构的流程图：顺序结构顺序结构ABc例：编程，根据输入的半径值，计算出相应的圆的周长。例：编程，根据输入的半径值，计算出相应的圆的周长。 SET TALK OFFSET TALK OFF CLEAR CLEAR INPUT “ INPUT “请输入圆的半径：请输入圆的半径：” ” TO RTO R L=2*3.1416*R L=2*3.1416*R 5,5 SAY “ 5,5 SAY “圆的周长是：圆的周长是：”+”+STR(L,6,3)STR(L,6,3) SET TALK ON SET TALK ON6.4 程序的选择结构程序的选择结构定义：分支结构：就是按照一定的条件由判断语句或选择语定义：分支结构：就是按照一定的条件由判断语句或选择语句构成的双重或多重走向的程序。句构成的双重或多重走向的程序。语语 句句 行行条件表达式条件表达式语句行序列语句行序列ENDIF后面的语句后面的语句YN简单分支结构简单分支结构的流程图的流程图1 1）简单分支格式：）简单分支格式： IF IF ENDIFENDIF注：注：IFIF和和ENDIFENDIF必须成对出现必须成对出现说明：说明：(1)(1)IF .ENDIFIF .ENDIF配对组成一条语句，缺一不可。配对组成一条语句，缺一不可。(2)(2)IF .ENDIFIF .ENDIF语句只能在程序中使用，不能使用于交互式语句只能在程序中使用，不能使用于交互式状态。状态。 (3)(3)该语句的执行过程是：首先对逻辑表达式进行判断，然后该语句的执行过程是：首先对逻辑表达式进行判断，然后根据逻辑表达式的取值确定是否执行根据逻辑表达式的取值确定是否执行 。当。当 的值为的值为“真真”时，顺序执行时，顺序执行IFIF与与ENDIFENDIF之间的语句序列，之间的语句序列，然后再执行然后再执行ENDIFENDIF后的语句；当逻辑表达式的值为后的语句；当逻辑表达式的值为“假假”时，时，不执行不执行IFIF与与ENDIFENDIF之间的语句而直接执行之间的语句而直接执行ENDIFENDIF后面的语句。后面的语句。逻辑表达式也称为条件，故以后叙述中逻辑表达式也简称为逻辑表达式也称为条件，故以后叙述中逻辑表达式也简称为条件。条件。例例: :从键盘接收两个数，在屏幕输出大数。从键盘接收两个数，在屏幕输出大数。 INPUT X= TO XINPUT X= TO X INPUT Y= TO Y INPUT Y= TO Y IF XY & IF XY &如果如果XY,XY,把把X X与与Y Y交换交换 T=X &T=X &引入第三个变量引入第三个变量T,T,进行三角交换进行三角交换 X=YX=Y Y=T Y=T ENDIF ENDIF ?X ?X RETURN RETURN 2） 双边分支格式：双边分支格式： IF ELSE ENDIF条件成立？条件成立？语句序列语句序列1语句序列语句序列2Endif后的语句后的语句YN双边分支的流程图双边分支的流程图说明：该语句执行过程是：首先判断逻辑说明：该语句执行过程是：首先判断逻辑表达式的值是否为真，若为真，执行表达式的值是否为真，若为真，执行 ，而不执行，而不执行 ，并，并从从ENDIFENDIF后面的语句开始继续执行；若为假，后面的语句开始继续执行；若为假，则不执行则不执行 1，而执行，而执行 ，然后再执行，然后再执行ENDIFENDIF后面的语句。后面的语句。 例例:编一个程序，输入一个教工号，在编一个程序，输入一个教工号，在STAFF表中查找，若查到就表中查找，若查到就给该教师增加给该教师增加100元基本工资，并在信息窗口提示相应的信息；若查元基本工资，并在信息窗口提示相应的信息；若查不到则提示不到则提示“查无此人！查无此人！”。vOPEN DATABASE 教学管理教学管理 &打开打开“教学管理教学管理”库作为当前库库作为当前库vUSE STAFF &打开当前库中打开当前库中STAFF表表v CLEARv INPUT 请输入教工号：请输入教工号： TO JGH v LOCATE ALL FOR 教工号教工号=JGHv IF FOUND()v REPLACE 基本工资基本工资 WITH 基本工资基本工资+100v =MESSAGEBOX(该教师的基本工资已增加该教师的基本工资已增加100元元”)v ELSEv =MESSAGEBOX(查无此人！查无此人！)v ENDIFv CLOSE DATABASE &关闭当前库关闭当前库v RETURNIF语句多重嵌套一般格式：语句多重嵌套一般格式： IF ELSE IF ELSE IF ELSE ENDIF ENDIF ENDIF3)多分支结构多分支结构注：注： （1）IF、ELSE(可不选可不选)、ENDIF必须成对使用必须成对使用 （2）最好采用缩格（锯齿形）的书写方式）最好采用缩格（锯齿形）的书写方式多分支程序用于解决要根据多种条件，从各种情况中选择一种进行处理的问题。多分支程序用于解决要根据多种条件，从各种情况中选择一种进行处理的问题。条件条件n条件条件2条件条件1语句序列语句序列1语句序列语句序列n+1语句序列语句序列n语句序列语句序列2ENDCASE的下一语的下一语句句情况判断语句格式情况判断语句格式：DO CASE分支程序用于解决要根据多种条件，从各种情况中选择一种进 CASE CASE CASE OTHERWISE ENDCASE说明：说明：DO CASEDO CASE和和ENDCASEENDCASE须成对出现须成对出现在情况语句中，如果逻辑表达在情况语句中，如果逻辑表达式的值为真的情况多于一个，则式的值为真的情况多于一个，则仅执行第一个逻辑表达式值为真仅执行第一个逻辑表达式值为真的语句系列。的语句系列。DO CASEDO CASE语句之间可以嵌套使用，语句之间可以嵌套使用，DO CASEDO CASE语句和语句和IFIF语句也可以嵌套语句也可以嵌套使用使用DO CASEDO CASE语句和语句和DO WHILEDO WHILE也可也可以嵌套使用。以嵌套使用。 例例: :显示当前季节程序。显示当前季节程序。 M=MONTH(DATE() &M=MONTH(DATE() &获取当前月份获取当前月份 DO CASE DO CASE CASE M=2 OR M=12 CASE M=3 AND M=3 AND M=6 AND M=6 AND M=9 AND M=9 AND M=11 =MESSAGEBOX(” =MESSAGEBOX(”现在是秋季现在是秋季) ENDCASE ENDCASE RETURN RETURN 6.5 6.5 循环结构循环结构定义：按照一定条件重复进行某种特定操作的程序称为定义：按照一定条件重复进行某种特定操作的程序称为循环结构程序。循环结构程序。VFPVFP中有三种循环结构，中有三种循环结构，条件循环（当循环条件循环（当循环WHILEWHILE）计数循环（计数循环（FOR-ENDFORFOR-ENDFOR或或FOR-NEXTFOR-NEXT）库文件记录扫描循环（库文件记录扫描循环（SCANSCAN）。）。 DO WHILE DO WHILE 1 LOOPLOOP 2 EXITEXIT 3 ENDDOENDDO条件条件成立成立？loopexitENDDOENDDO后面的语句后面的语句YN1、条件循环、条件循环备注备注v 例例:用用DO WHILE语句编写程序语句编写程序,实现例实现例6.2算算法。法。v S=0 &存放累加和的变量存放累加和的变量S初值为初值为0v N=1 &取第一个自然数取第一个自然数v DO WHILE N=100 v S=S+N &累加当前自然数累加当前自然数v N=N+1 &取下一个自然数取下一个自然数v ENDDOv ?Sv RETURN(2)(2)循环体中两条特殊语句：循环体中两条特殊语句：EXITEXIT和和LOOPLOOP(1)(1)格式格式跳出循环语句：跳出循环语句：EXITEXIT短跳循环语句短跳循环语句:LOOP :LOOP (2)(2)功能功能在循环体中执行到在循环体中执行到EXITEXIT时，立时，立即无条件跳出循环，转去执行即无条件跳出循环，转去执行 ENDDO ENDDO 的后一个语句。若执行的后一个语句。若执行到到LOOPLOOP语句，则立即返回语句，则立即返回DO DO WHILEWHILE重判循环条件，而不再重判循环条件，而不再执行循环体内的其他语句。执行循环体内的其他语句。 DO WHILE DO WHILE DO WHILE DO WHILE EXIT EXIT LOOPLOOP ENDDO ENDDO ENDDOENDDO (3)EXIT(3)EXIT语句的一个典型应用语句的一个典型应用 EXITEXIT语句常用在下列控制结构中，用于控制循环语句常用在下列控制结构中，用于控制循环次数不确定时的循环退出。次数不确定时的循环退出。 DO WHILE .T. &DO WHILE .T. &循环条件为永真循环条件为永真 ) IF IF EXITEXIT ENDIF ENDIF ENDDO ENDDO例例: : 从键盘输入若干个非零的数值，当输入数值从键盘输入若干个非零的数值，当输入数值“0”0”时结束输入，统时结束输入，统计有效数值的个数和它们的平均值。计有效数值的个数和它们的平均值。 CLEARCLEAR S=0 & S=0 &存放累加和存放累加和 N=0 &N=0 &存放数值个数存放数值个数 DO WHILE .T. &DO WHILE .T. &这是一个永真循环这是一个永真循环 INPUT INPUT 请输入数值，请输入数值， 输入零时结束输入零时结束 TO SZ TO SZ IF SZ=0 IF SZ=0 EXIT EXIT ENDIF ENDIF S=S+SZ S=S+SZ N=N+1 N=N+1 ENDDO ENDDO ？ 共输入有效数值个数共输入有效数值个数:,N:,N ? ? 平均值是平均值是:,S/N:,S/N RETURN RETURN 2、计数循环格式：、计数循环格式：FOR = TO STEP LOOP EXIT ENDFOR| NEXT （注：注：步长可为步长可为正值正值和和负值）负值）备注备注 例例:裝有裝有100只鸡蛋的蛋箱，运输过程中打碎了若干鸡只鸡蛋的蛋箱，运输过程中打碎了若干鸡蛋。货主开箱取鸡蛋，若蛋。货主开箱取鸡蛋，若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 return3、表扫描循环结构、表扫描循环结构格式：格式：SCAN FOR WHILE LOOP EXIT ENDSCAN备注备注SCAN循环专用于控制循环专用于控制对数据表中记录进行对数据表中记录进行逐条操作。逐条操作。功能功能 针对当前表中指定范针对当前表中指定范围内满足条件的每条围内满足条件的每条记录，逐一执行记录，逐一执行SCAN与与ENDSCAN之间的语句序列。之间的语句序列。 例例: 用用SCAN循环实现对循环实现对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 ENDDO4.循环的嵌套循环的嵌套 例例:某学生食堂采购员带某学生食堂采购员带1000元钱去市场买鸡，已知元钱去市场买鸡，已知每只小鸡每只小鸡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 ENDDO形式二：形式二： if do while enddo endif注意：在嵌套使用时，不能互相交叉。注意：在嵌套使用时，不能互相交叉。形式四：形式四： docase case do while enddo case endcase 形式三：形式三： do while do case case endcase enddo6.6.1子程序子程序6.6.2自定义函数自定义函数6.6.3过程过程6.6 多模块程序设计多模块程序设计应用程序一般都是多模块程序，可包含多个程序模块。应用程序一般都是多模块程序，可包含多个程序模块。模块是可以命名的一个程序段，可指主程序、子程序和自模块是可以命名的一个程序段，可指主程序、子程序和自定义函数。本节介绍模块的构成及调用方法，多模块程序定义函数。本节介绍模块的构成及调用方法，多模块程序中变量的作用域，程序调用方法以及结构化程序设计等。中变量的作用域，程序调用方法以及结构化程序设计等。 6.6.1子程序子程序 一、调用与返回一、调用与返回 对于两个具有调用关系的程序文件，常称调用程序对于两个具有调用关系的程序文件，常称调用程序为主程序，被调用的程序为子程序。为主程序，被调用的程序为子程序。 主程序执行时遇到主程序执行时遇到DO命令，执行就转向子程序，称为命令，执行就转向子程序，称为调用子程序。子程序执行到调用子程序。子程序执行到RETURN语句，就会返语句，就会返回到主程序中调用命令处的下一语句继续执行程序，回到主程序中调用命令处的下一语句继续执行程序，称为从子程序中返回，简称返回。称为从子程序中返回，简称返回。2.带参数子程序的调用与返回带参数子程序的调用与返回DO命令允许带一个命令允许带一个WITH子句，用来进行参数传递。子句，用来进行参数传递。格式：格式：DO IN说明：说明：(1) 中的参数可以是表达式，但若为内存变量必须中的参数可以是表达式，但若为内存变量必须具有初值。具有初值。(2) 当当是是IN子句子句中的一个过程时，中的一个过程时，DO命令调用该过程。命令调用该过程。 调用子程序时参数表中的参数值要传送给子程序，子程调用子程序时参数表中的参数值要传送给子程序，子程序中必须设置相应的参数接收语句接收传递来的参数值。序中必须设置相应的参数接收语句接收传递来的参数值。VFP用用PARAMETERS命令接收参数值和回送参数值。命令接收参数值和回送参数值。格式：格式：PARAMETERS 功能：指定内存变量以接收功能：指定内存变量以接收DO命令发送的参数值，返回主命令发送的参数值，返回主程序时把内存变量值返回给主程序中相应的内存变量。程序时把内存变量值返回给主程序中相应的内存变量。说明：说明：(1)PARAMETERS必须是被调用程序的第一个语句。必须是被调用程序的第一个语句。(2)命令中的参数被命令中的参数被VFP默认为私有变量，返主时回送参数默认为私有变量，返主时回送参数值之后即被清除。值之后即被清除。(3)命令中的参数依次与调用命令命令中的参数依次与调用命令WITH子句中的参数相对应，子句中的参数相对应，故两者参数个数必须相同。故两者参数个数必须相同。ymj=05,10 SAY“请输入半径：请输入半径：”GET bj DEFAULT 0READDO js WITH bj,ymj &调用子程序调用子程序? “ymj=”,ymj &显示圆面积显示圆面积RETURN子程序子程序js.PRG如下：如下：PARAMETERS r，ss=PI()*r*r &VFP的的PI函数返回函数返回值值RETURN &返回主程序返回主程序在调用子程序前，调用语句中的参数变量都赋了值；在调用子在调用子程序前，调用语句中的参数变量都赋了值；在调用子程序时，调用语句的程序时，调用语句的bj值传送给子程序的参数值传送给子程序的参数r，子程序计子程序计算面积后返回主程序时变量算面积后返回主程序时变量s的值回送给参变量的值回送给参变量ymj。 例例6.26 设计一个计算圆面积的子程序，并要求在主程序中带参数调设计一个计算圆面积的子程序，并要求在主程序中带参数调用它。程序如下：用它。程序如下： 格式：格式： RETURN TO MASTER|TO 格式中的格式中的TO MASTER选项，使返回主调程序时直接返选项，使返回主调程序时直接返回到最外层主程序；选项回到最外层主程序；选项TO 强制返回到强制返回到指定的程序文件。指定的程序文件。 3.子程序嵌套子程序嵌套主程序与子程序的概念是相对的，子程序还可调用它自己的子主程序与子程序的概念是相对的，子程序还可调用它自己的子程序，即子程序可以嵌套调用。程序，即子程序可以嵌套调用。VFP的返回命令包含了因的返回命令包含了因嵌套而引出的多种返回方式。嵌套而引出的多种返回方式。6.6.2 自定义函数自定义函数1.自定义函数的建立自定义函数的建立格式格式： FUNCTION PATAMETERS RETURN (1)(1)若若使使用用FUNCTIONFUNCTION来来指指出出函函数数名名，表表示示该该函函数数包包含含在在调调用用程程序序中中。若若缺缺省省表表示示此此函函数数是是一一独独立立文文件件，函函数数名名将将在在建建立立文文件件时时确确定定，其其扩扩展展名名默默认认为为. .PRGPRG，并并可可使使用用MODIFY MODIFY COMMAND COMMAND 来来建建立立或或编编辑辑该该自自定定义义函函数数。还还需需注注意意，自自定定义义函函数数的的函函数数名名不不能能和和VFPVFP系系统统函函数数同同名名，也也不不能能和和内内存存变变量量同名。同名。(2)(2) 为函数体，用于进行各种处理；为函数体，用于进行各种处理；简单函数的函数体也可为空。简单函数的函数体也可为空。(3)(3)RETURNRETURN语语句句用用于于返返回回函函数数值值，其其中中的的 值值就就是是函函数数值值。若若缺缺省省该该语句，则返回的函数值为语句，则返回的函数值为. .T.T.。(4)(4)自自定定义义函函数数与与系系统统函函数数调调用用方方法法相相同同，其其形形式式为为：函函数数名名（）例用自定义函数编写一个计算阶乘例用自定义函数编写一个计算阶乘的程序。该例题是典型的函数的程序。该例题是典型的函数递归调用。递归调用。程序如下：程序如下：SET TALK OFF INPUT “请输入一个正整数：请输入一个正整数：” TO int ? factorial(int) SET TALK ON RETURN 函数如下：函数如下： FUNCTION factorialPARAMETER nIF n=0r=1ELSEr=n*factorial(n-1)ENDIFRETURN r6.6.3 过程过程过程就是由过程就是由“PROCEDURE ”为开始标志，以为开始标志，以“RETURN”语句结束的一个子程序段。它通常是包含在调用语句结束的一个子程序段。它通常是包含在调用程序文件中，作为主程序的一部分出现的一个子程序段，是程序文件中，作为主程序的一部分出现的一个子程序段，是程序文件的一个组成部分。程序文件的一个组成部分。我们习惯上把过程写在程序的最后。一个程序文件可以我们习惯上把过程写在程序的最后。一个程序文件可以包含多个过程。引入过程的主要目的是减少同时打开文件的包含多个过程。引入过程的主要目的是减少同时打开文件的个数以及访问磁盘的次数。个数以及访问磁盘的次数。1.过程的定义过程的定义过程的定义是用过程的定义是用PROCEDURE命令开始的一个命令序列，命令开始的一个命令序列，基本结构如下：基本结构如下：PROCEDURE 过程名过程名过程的全部语句序列过程的全部语句序列RETURN过程名由过程名由18个字符组成，无扩展名。过程以个字符组成，无扩展名。过程以RETURN命命令结束。令结束。2.过程的调用过程的调用格式：格式：DOWITHIN过程文件过程文件说明：说明：DO语句出现在主程序中，当主程序执行语句出现在主程序中，当主程序执行DO语句语句时，将时，将指明的程序调入内存中，并转入该过指明的程序调入内存中，并转入该过程运行，当遇到程运行，当遇到RETURN语句时，返回主程序，继续语句时，返回主程序，继续执行调用语句的下一条语句。执行调用语句的下一条语句。WITH子句是用来向被子句是用来向被调用过程传递参数的，不包含调用过程传递参数的，不包含WITH子句的调用称为子句的调用称为无参调用，包含了无参调用，包含了WITH子句的调用称为有参调用。子句的调用称为有参调用。IN子句指定过程所在的过程文件。子句指定过程所在的过程文件。 DO RETURN主程序 过程3.过程文件过程文件 一个复杂的应用系统，通常有许多过程。一个复杂的应用系统，通常有许多过程。 将多个过程存放在同一个文件中，这个文件称为过程文件。一将多个过程存放在同一个文件中，这个文件称为过程文件。一个过程文件允许存放个过程文件允许存放128个过程。一旦过程文件打开，系统个过程。一旦过程文件打开，系统认为只打开一个文件，就能根据过程文件执行其中的过程，认为只打开一个文件，就能根据过程文件执行其中的过程，从而能够减少访问磁盘次数，加快过程执行速度。从而能够减少访问磁盘次数，加快过程执行速度。 如果一个过程是作为一个独立文件存放在磁盘上的，我们称它如果一个过程是作为一个独立文件存放在磁盘上的，我们称它为外部过程，把过程文件中的过程称为内部过程。为外部过程，把过程文件中的过程称为内部过程。过程文件的内容形式如下：过程文件的内容形式如下： procedure Return procedure Return procedure Return4.过程文件的打开、关闭和内部过程的调用过程文件的打开、关闭和内部过程的调用(1)过程文件的打开过程文件的打开格式：格式：set procedure to 过程文件名过程文件名说明：说明： 过程文件必须打开后，其中所包含的过程才能被其过程文件必须打开后，其中所包含的过程才能被其它过程所调用。它过程所调用。 调用内部过程仍使用调用内部过程仍使用DO语句，语句，DO语句中的文件名是由语句中的文件名是由procedure 指明的过程名。指明的过程名。 VFP规定，任何时候只能打开一个过程文件，当打开一个规定，任何时候只能打开一个过程文件，当打开一个新的过程文件后，前面被打开的过程文件将被自动关闭。新的过程文件后，前面被打开的过程文件将被自动关闭。 (2)过程文件的关闭过程文件的关闭格式一：格式一：set procedure to格式二：格式二：close procedure说明：说明： 过程文件被关闭后，此过程文件中的内部过程也同时被过程文件被关闭后，此过程文件中的内部过程也同时被停止调用。停止调用。 对于不再使用的过程文件应及时关闭，以便为系统调用对于不再使用的过程文件应及时关闭，以便为系统调用其它程序或读取数据提供更大的内存空间其它程序或读取数据提供更大的内存空间 (3)内部过程调用的主程序内部过程调用的主程序set procedure to do do Close procedure 6.7 参数传递与变量作用域参数传递与变量作用域 1.1.参数的传递参数的传递 1 1格式格式 传递参数语句格式：传递参数语句格式： DO DO WITH WITH 接收参数语句格式：接收参数语句格式： PARAMETERS PARAMETERS 2 2规则规则 (1)DO(1)DO语句可以用在调用程序中的任何位置，而语句可以用在调用程序中的任何位置，而PARAMETERSPARAMETERS语句必须放在过程的第一个可执行语句之前。语句必须放在过程的第一个可执行语句之前。 (2)(2)调用过程时系统会将实参按排列顺序一一传递给对应的调用过程时系统会将实参按排列顺序一一传递给对应的形参。形参。(3)(3)形参形式上同内存变量，而实参可以是常量、内存变量形参形式上同内存变量，而实参可以是常量、内存变量或表达式。或表达式。3 3两种传递机制两种传递机制 (1)(1)按值传递按值传递 实参实参 形参形参 (2)(2)按地址传递按地址传递 实参实参 形参形参例例: :分析下列程序的执行结分析下列程序的执行结果。果。CLEARCLEARSTORE BOYS! TO X,YSTORE BOYS! TO X,Y?调用前调用前:,X+Y:,X+YDO SUB1 WITH X,(Y)DO SUB1 WITH X,(Y)?调用后调用后:,X+Y:,X+YRETURNRETURNPROC SUB1PROC SUB1PARA X1,Y1PARA X1,Y1?过程中过程中:,X1+Y1:,X1+Y1STORE GIRLS! TO X1,Y1STORE GIRLS! TO X1,Y1RETURNRETURNENDP ENDP 分析：这是一个主程分析：这是一个主程序调用一个内部过程序调用一个内部过程SUB1SUB1，内存变量内存变量X X、Y Y为实参，调用为实参，调用SUB1SUB1时时X X按地址传递到按地址传递到X1X1，Y Y按值传递给按值传递给Y1,Y1,故在故在SUB1SUB1中输中输出出X1+Y1X1+Y1结果仍是结果仍是”BOYS!BOYS!”,BOYS!BOYS!”,随后在随后在SUB1SUB1中把中把X1X1、Y1Y1的值改为的值改为” ” GIRLS!,GIRLS!,实参实参X X的值也就改成的值也就改成 GIRLS!,GIRLS!,实参实参Y Y不受影响；不受影响；所以返回主程序后输出所以返回主程序后输出X+YX+Y结结果是果是”GIRLS!BOYS!”GIRLS!BOYS!”。2.2.变量作用域及其定义变量作用域及其定义1.1.变量作用域的含义变量作用域的含义 内存变量的有效作用范围称为内存变量的作用域。根据作用域内存变量的有效作用范围称为内存变量的作用域。根据作用域的不同，内存变量可分为全局变量、私有变量和局部变量三种的不同，内存变量可分为全局变量、私有变量和局部变量三种类。类。 2.2.含作用域的变量定义含作用域的变量定义 (1)(1)全局变量的定义全局变量的定义 1)1)在命令窗口创建的变量和数组将自动成为全局变量在命令窗口创建的变量和数组将自动成为全局变量 2)2)用用PUBLICPUBLIC语句定义：语句定义： 格式：格式：PUBLIC PUBLIC 功能：定义全局内存变量和数组。功能：定义全局内存变量和数组。 参数说明：参数说明： 逐一列出作为全逐一列出作为全局变量的内存变量和数组，其中数组用数组名或数组说明均可。局变量的内存变量和数组，其中数组用数组名或数组说明均可。若用数组说明，其格式如下：若用数组说明，其格式如下： 数组名数组名(1， )2)。(2)(2)局部变量的定义局部变量的定义局部变量只能用局部变量只能用LOCALLOCAL语句定义。语句定义。 格式：格式：LOCAL LOCAL 功能：定义局部内存变量和数组，并屏蔽来自上级过程（含主功能：定义局部内存变量和数组，并屏蔽来自上级过程（含主程序）中与当前局部变量同名的全局或私有变量，使在当前过程序）中与当前局部变量同名的全局或私有变量，使在当前过程中对局部变量的操作，不影响上级过程中同名变量的值。程中对局部变量的操作，不影响上级过程中同名变量的值。 (3) (3) 私有变量的定义私有变量的定义 1)1)在一个程序或过程中建立的内存变量，如果未加任何说明，在一个程序或过程中建立的内存变量，如果未加任何说明，默认为私有变量。默认为私有变量。 2)2)用用PRIVATEPRIVATE语句定义：语句定义： 格式格式：PRIVATE PRIVATE 格式格式：PRIVATE ALL LIKE/EXCEPT PRIVATE ALL LIKE/EXCEPT 功能：定义私有内存变量和数组，并屏蔽来自上级过程（含功能：定义私有内存变量和数组，并屏蔽来自上级过程（含主程序主程序) )中与当前私有变量同名的全局或私有变量，使在当前中与当前私有变量同名的全局或私有变量，使在当前过程中对私有变量的操作，不影响上级过程中同名变量的值。过程中对私有变量的操作，不影响上级过程中同名变量的值。格式格式中的参数说明：中的参数说明： ALLALL：表示当前所有的内存变量均为私有变量。表示当前所有的内存变量均为私有变量。 ALL LIKE ALL LIKE ：表示所有与：表示所有与 相匹相匹配的变量均为私有变量。配的变量均为私有变量。 ALL EXCEPT ALL EXCEPT ：表示所有不与：表示所有不与 相匹配的变量均为私有变量。相匹配的变量均为私有变量。 例例: :若有程序文件如下：若有程序文件如下： CLEARCLEAR PUBLIC A PUBLIC A PRIVATE B PRIVATE B LOCAL C LOCAL C STORE 10 TO A,B,C STORE 10 TO A,B,C DO SUB1 DO SUB1 ?A,B,C ?A,B,C RETURN RETURN PROC SUB1 PROC SUB1 ?A,B ?A,B A=A+5 A=A+5 B=B+10 B=B+10 RETURN RETURN 本例中，全局变量本例中，全局变量A A和和私有变量私有变量B B在主程序和内部在主程序和内部过程过程SUB1SUB1之间双向传递数之间双向传递数据，局部变量据，局部变量C C的作用域是的作用域是主程序本身，不能传递数主程序本身，不能传递数据。如果在内部过程据。如果在内部过程SUB1SUB1中增加中增加? ?C C语句，程序执行语句，程序执行时就会报错，因为在时就会报错，因为在SUB1SUB1中找不到变量中找不到变量C C。