程序设计 课件第7章.ppt

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

1、第第7章章程序设计基础程序设计基础n掌握程序文件的概念及创建方法n熟悉简单的交互式输入输出命令的使用n熟悉应用程序的调试与执行方法n掌握顺序、选择和循环这三种结构的程序设计方法n掌握过程与过程调用的方法基本要求与基本知识点基本要求与基本知识点教学重点与难点教学重点与难点n程序文件的建立及修改n简单的交互式输入输出命令n程序设计的三种基本结构：顺序、选择和循环结构n变量的类别及作用域n过程调用的方式及调用中参数的传递主要介绍面向过程设计中用到的顺序语句、分支主要介绍面向过程设计中用到的顺序语句、分支结构、循环结构等语句的使用及格式，用其组成结构、循环结构等语句的使用及格式，用其组成应用程序，完成

2、一定的程序功能。应用程序，完成一定的程序功能。程序是能够完成一定任务的命令的有序集合。程序是能够完成一定任务的命令的有序集合。程序的特点：程序的特点：1.1.程序控制流模式，由顺序、选择、循环三种基程序控制流模式，由顺序、选择、循环三种基本结构构成，每一个基本结构可以包含一条或多本结构构成，每一个基本结构可以包含一条或多条语句。条语句。2.2.面向对象可视化的结构程序模块，每个模块也面向对象可视化的结构程序模块，每个模块也是由程序控制流组成的。是由程序控制流组成的。7.1程序与程序文件程序与程序文件1）命令注释：提高程序的可读性命令注释：提高程序的可读性以以note或或*开头的代码行为注释行，

3、在命令开头的代码行为注释行，在命令行后也可以加上注释，该注释以行后也可以加上注释，该注释以&符号开头符号开头标识标识2）命令分行：用）命令分行：用分号分号完成行的延续完成行的延续3）是否显示命令的执行结果）是否显示命令的执行结果用用settalkon|off完成设置完成设置4)4)VisualFoxPro命令或语句中的关键字在一般情命令或语句中的关键字在一般情况下只输入前况下只输入前4个字符就有效。个字符就有效。程序编写时注意的问题程序编写时注意的问题1.建立：建立：项目管理器项目管理器“文件文件”“新建新建”“程序程序”modifycommand或用菜单方式或用菜单方式在程序编辑窗口中编辑程

4、序代码在程序编辑窗口中编辑程序代码存盘退出：存盘退出：Ctrl+W或或Ctrl+End或按或按“关闭关闭”按按钮钮取消当前编辑的代码：取消当前编辑的代码：Ctrl+Esc源程序文件的扩展名为源程序文件的扩展名为.prg，执行程序时会自动执行程序时会自动编译，生成与源文件主文件名相同、扩展名为编译，生成与源文件主文件名相同、扩展名为.fxp的文件。的文件。7.1.2建立、修改与执行程序建立、修改与执行程序说明说明:1)1)是是要要建建立立或或修修改改的的文文件件名名。若若省省略略文件名，则打开名为文件名，则打开名为“程序程序1”的程序编辑窗口。的程序编辑窗口。2)系统默认扩展名为系统默认扩展名为

5、.prg。3)在在中中可可含含通通配配符符“*”和和“?”，这这时时与与之之相相匹匹配配的的每每个个文文件件会会出出现现在在不不同同的的编编辑辑窗窗口口中。中。4)如如使使用用“?”，则则显显示示“打打开开”对对话话框框，用用户户可可在在此此框框中中输输入入要要建建立立的的新新的的程程序序文文件件或或选选择择已已存存在在的程序文件。的程序文件。5)如如使使用用NOEDIT选选项项，则则将将此此程程序序设设置置为为只只读读，可以查看或将其复制到剪贴板，但不能修改。可以查看或将其复制到剪贴板，但不能修改。do程序名程序名或程序菜单中的或程序菜单中的doprogram说说明明:当当执执行行程程序序文

6、文件件时时，文文件件中中包包含含的的命命令令、语语句句将将被被依依次次执执行行，直直到到所所有有的的命命令令、语语句句被被执执行行完完毕毕，或者执行到以下命令为止：或者执行到以下命令为止：CANCEL终终止止程程序序运运行行，清清除除所所有有的的程程序序中中设设置的变量，返回命令窗口。置的变量，返回命令窗口。2.运行运行DO转去执行另一程序，然后返回本程序转去执行另一程序，然后返回本程序。RETURN结结束束当当前前程程序序的的执执行行，返返回回到到调调用用它的上一级程序，若无上级程序则返回到命令窗口它的上一级程序，若无上级程序则返回到命令窗口。QUIT退出退出VFP系统，返回到操作系统系统，

7、返回到操作系统。当当用用DO命命令令执执行行程程序序文文件件时时，如如果果没没有有指指定定文文件件的的扩扩展展名名，系系统统将将按按下下列列顺顺序序：VisualFoxPro执执行行文文件件(扩扩展展名名为为.exe)、VisualFoxPro应应用用程程序序文文件件(扩扩展展名名为为.app)、编编译译文文件件(扩扩展展名名为为.fxp)、源源程程序序文文件件(扩扩展展名名为为.prg)。3.修改程序：修改程序：同建立的方法同建立的方法1.accept命令命令接受用户输入的信息，作为字符串赋给相应的变量，不接受用户输入的信息，作为字符串赋给相应的变量，不须另加定界符，否则作为字符串内容。须另

8、加定界符，否则作为字符串内容。格式：格式：acceptto例如：例如：accept“请输入学生姓名：请输入学生姓名：”toxmaccept“请输入文件名：请输入文件名：”tofilenameuse&filename注意：不输入直接回车，变量内容为空串。注意：不输入直接回车，变量内容为空串。7.1.3基本的输入输出命令WAIT TO WINDOW AT,TIMEOUT 接受单个字符，一般用于等待用户键入某一字符信息接受单个字符，一般用于等待用户键入某一字符信息例如：例如：wait说明说明:1)若若无无选选项项，显显示示默默认认提提示示“按按任任意意键键继继续续”，等待用户按任意键或单击鼠标。，等

9、待用户按任意键或单击鼠标。2.wait命令命令2)若包含若包含TO项，则将键盘的输入以字符形式存项，则将键盘的输入以字符形式存入所指定的内存变量。如输入的是回车键、不可打印的字符、入所指定的内存变量。如输入的是回车键、不可打印的字符、组合键或单击鼠标，则将一个空串保存在内存变量中。组合键或单击鼠标，则将一个空串保存在内存变量中。若若包包含含WINDOW选选项项，则则将将显显示示在在VisualFoxPro主窗口右上角的系统消息窗口中。主窗口右上角的系统消息窗口中。若若包包含含AT，选选项项，则则在在主主窗窗口口中中指指定消息窗口的位置。定消息窗口的位置。TIMEOUT选选项项必必须须是是命命令

10、令中中的的最最后后一一个个子子句句，用用于于规规定定等等待待键键盘盘输输入入的的时时间间限限制制，可可为为小小数数。一旦超时就不再等待用户按键，程序自动往下执行。一旦超时就不再等待用户按键，程序自动往下执行。例例:?欢迎使用欢迎使用Visual FoxPro!WAIT?Visual FoxPro!WAIT WINDOW?FoxPro!CANCEL接受用户输入的各类表达式的值，赋给相应的变量，可以接受接受用户输入的各类表达式的值，赋给相应的变量，可以接受C、D、N、L型数据，型数据，C、D、L型输入时要加上定界符型输入时要加上定界符格式：格式：inputto说明说明:1)可可以以是是字字符符型型

11、变变量量，也也可可以以是是字字符符串串，如如果果是是字符串，必须用单引号、双引号或方括号括起。字符串，必须用单引号、双引号或方括号括起。2)输输入入的的数数据据可可以以是是常常量量、变变量量，也也可可以以为为一一般般的的表表达达式式。表表达达式式可可以以是是数数值值型型、字字符符型型、逻逻辑辑型型或或日日期期型型。但但不不能能不不输输入入任何内容直接按回车键。任何内容直接按回车键。3.input命令命令3)的数据类型由从键盘上所输入的表达式的类型的数据类型由从键盘上所输入的表达式的类型所决定。输入字符串时必须加定界符，输入逻辑型常量时要用所决定。输入字符串时必须加定界符，输入逻辑型常量时要用圆

12、点定界，如圆点定界，如.T.、.F.，输入日期时间型常量时要用大括号输入日期时间型常量时要用大括号例如：例如：input“请输入学生姓名：请输入学生姓名：”toxm输入时：输入时：“李昆李昆”input“请输入学生总分：请输入学生总分：”toZF输入时：输入时：560input“继续输入吗？（继续输入吗？（Y/N）：）：”toconfirm输入时：输入时：.Y.或或.N.或或.T.或或.F.格式化输入命令格式化输入命令say表达式表达式GET READ【功功能能】在在指指定定的的位位置置显显示示提提示示信信息息并并允允许许输输入入一一个个常常量量，当当执执行行READ时时将将常常量量赋赋给给指

13、指定的变量。定的变量。【说说明明】命命令令中中的的可可以以是是内内存存变变量量和和字字段段变量。变量。4.定位输出命令定位输出命令格式化格式化输输出出语语句。句。【格格式式】SAY PICTURE 【功能】【功能】在指定的在指定的，按指定的格式，按指定的格式输输出出。【说说明明】用用来来限限定定数数据据输输出出的的类类型型、长长度度及及格格式。式。表表7.1给出常用格式描述符的含给出常用格式描述符的含义义。【例】CLEARxm=USE d:ssstud10,10 SAY请输入姓名：请输入姓名：GET xmREADxm=ALLTRIM(xm)LOCATE FOR 姓名姓名=xm13,10 SAY

14、 学号学号PICTURE xxxxxxx13,18 SAY 学号学号PICTURE99999999914,10 SAY 姓名姓名 PICTURExxxxxxx14,18 SAY 姓名姓名 PICTURExxxxxxxCANCEL顺序结构顺序结构:自上而下的执行方向自上而下的执行方向例：打开学生表，查询姓名为所输入的姓名值的记录，并显示例：打开学生表，查询姓名为所输入的姓名值的记录，并显示7.2.1分支结构程序设计分支结构程序设计根据条件的成立与否，决定程序的走向。根据条件的成立与否，决定程序的走向。1.单分支结构：单分支结构：ifEndif注：条件表达式为关系表达式、逻辑表达式或产生注：条件表

15、达式为关系表达式、逻辑表达式或产生逻辑结果值的函数等。逻辑结果值的函数等。7.2结构化程序设计结构化程序设计A=10If a=10 s=0EndifS=1?sInput to aIf a=0 if a0 s=0 else s=1 endifElse s=-1EndifS=1?s程序运行后的结果分别是什么程序运行后的结果分别是什么？ifelseEndif3.if语句可以嵌套语句可以嵌套IfifelseEndifelseendif条件语句序列1语句序列2ENDIF后的其他语句YN例子USE e:zwssstudAccept “请输入姓名”to xmLocate for 姓名=xmIf found(

16、)dispElse?”没有此学生”endif2.双分支结构双分支结构【例】在stud表中，查找姓名为“牛耕耘”的记录，如果找到，给该记录加上删除标记，没有找到则显示提示信息“查无此人”。Open Database e:zwssstudentUse studLocate For 姓名=牛耕耘If.Not.Eof()DeleteElse2,30 Say 查无此人EndIfBrowseClose DatabaseReturnDocasecase.caseotherwiseEndcase例：根据学生成绩表中的例：根据学生成绩表中的成绩信息输出其成绩等级。成绩信息输出其成绩等级。90分以上为优秀分以上为

17、优秀80分以上为良好分以上为良好Do case条件1条件2条件n语句序列语句序列n+1endcase语句序列语句序列1语句序列语句序列2语句序列语句序列nYYY4.多分支结构多分支结构【例例】设设计计程程序序，输输入入任任意意一一个个百百分分制制成成绩绩，按按优优秀秀、良良好好、及及格格和和不不及及格格四四个个等等级级输输出出结结果果。具具体体为为：0至至59分分为为不不及及格格，60至至74分为及格，分为及格，75至至89分为良好，分为良好，90至至100分为优秀。分为优秀。CLEARINPUT 请输入成绩请输入成绩(1100)：TO fsDO CASECASE fs100 .OR.fs89

18、?优秀优秀CASE fs74?良好良好CASE fs59?及格及格OTHERWISE?不及格不及格ENDCASECANCEL 完成重复操作的程序结构。完成重复操作的程序结构。设计循环时，需设计循环变量的初始值、循环的入口设计循环时，需设计循环变量的初始值、循环的入口条件、循环的出口条件。条件、循环的出口条件。7.2.2 循环结构1.当型循环当型循环当条件满足时执行循环体当条件满足时执行循环体dowhileloopexitenddoLoop:强制进入下次循环，后面强制进入下次循环，后面的循环体不执行的循环体不执行Exit：强制退出循环强制退出循环语句行序列1条件表达式1语句行序列2条件表达式2语

19、句行序列3loopexit循环条件NYYYN7.2.2 循环结构循循环环体体Set talk offS=0I=1Input“n=?”to nDo while s10&假设表中有单价字段假设表中有单价字段 a=a+1 EndifSKIPENDDO?aUSEDime k(2,3)I=1ClearDo while I=2 j=1 do while j=3k(I,j)=I*j?k(I,j)j=j+1 enddo I=I+1?enddo 123246【例例】按按姓姓名名对对stud表表进进行行查查询询，要要求求所所查查人人员员不不存存在在时时有有提示信息。提示信息。Open Database d:sss

20、tudentUse studClearDo While .t.Accept 请输入所查询人员的姓名：请输入所查询人员的姓名：To xmLocate For 姓名姓名=xmIf .Not.Eof()DispElse?查无此人查无此人!EndIfWait 继续查询吗继续查询吗?(YN)TO jxIf jx Y .And.jx yExitEndIfEndDoClose DatabaseCancel 等价于Ucase(jx)Y将表中工龄将表中工龄20的每人增加的每人增加60元，工龄元，工龄20年的每人增年的每人增加加100元，请将程序补充完整。元，请将程序补充完整。Set talk offUse ge

21、qkDo while _ if 工龄工龄20 replace 工资工资 with 工资工资+60 else replace 工资工资 with 工资工资+100 endif _EnddouseSet talk on returnFor=tosteploopexitEndfor/next功能功能:先将先将赋给赋给，并记住并记住和和，然后按，然后按变化的方向，用变化的方向，用的值与的值与比较，如比较，如的值超过的值超过，则跳出，则跳出循环，执行循环，执行EndForNext的后续语句；否则执行循环体语句，当执行的后续语句；否则执行循环体语句，当执行到到EndForNext时，时，的值与的值与相加后

22、，重新返回相加后，重新返回for语句与语句与比较，直到比较，直到的值超过的值超过为止。为止。2.固定次数的循环结构固定次数的循环结构初值循环变量循环体循环变量+步长值循环变量.F.T.循环变量终值说明说明:如果省略如果省略Step 项，则项，则默认为默认为1。、和和均为数值型表达式。均为数值型表达式。Exit与与Loop命命令令同同样样可可以以出出现现在在循循环环语语句句的的循循环环体体内内。循循环环体体中中可可包包含含VisualFoxPro的任何语句，如有循环语句，则为循环的嵌套。的任何语句，如有循环语句，则为循环的嵌套。如如为为正正，为为递递增增循循环环，超超过过的的意意思思是是比比大大

23、；如如为负，则为递减循环，超过为负，则为递减循环，超过的意思是比的意思是比小。小。clearForI=15to5step3ifI%3=0I=I-1endifI=I-2?IEndfor最后I的值为多少？循环了多少次？例：计算自然对数例：计算自然对数e的近似值（的近似值（n为为20）e=1+1/1!+1/2!+1/n!store1tot,eforI=1to20t=t*Ie=e+1/tendfor例：请填空完成计算例：请填空完成计算p=1+1/(2X2)+1/(3X3)+1/(10X10)的程序。的程序。p=0n=1dowhile_p=p+1/(n*n)_enddo?preturn【例例】设设计计程

24、程序序，对对stud表表进进行行操操作作，逐逐条条输输出出1988年年出出生生的学生信息。的学生信息。Open Database d:ssstudentUse d:ss studClearCount FOR YEAR(出生日期出生日期)=1988 To csLocate for Year(出生日期出生日期)=1988*Go TopFor i=1 To csDisplayWait Window TimeOut 2ContinueEndForClose DatabaseCancel【例例】设设计计程程序序，对对stud表表进进行行操操作作，逐逐条条输输出出1988年年出出生生的学生信息。的学生信息

25、。Open Database d:ssstudentUse d:ss studClearLocate for Year(出生日期出生日期)=1988Do while not eof()DisplayWait Window TimeOut 2ContinueEndDoClose DatabaseCancel【例】在屏幕上显示九九乘法表。【例】在屏幕上显示九九乘法表。Set talk offClearFor j=1 to 9?str(j,2)+)for k=1 to j?str(j*k,6)endfor?Endforreturn例：任意输入一个数，判断是否素数并输出相应结果。例：任意输入一个数，判

26、断是否素数并输出相应结果。Input “请输入一个数：请输入一个数：”to nFor I=2 to sqrt(n)if n mod I=0 p=1 exit endifEndforIf p=0?n,”是素数是素数“Else?str(n,3)+”不不是素数是素数“endifInput请输入一个数：tonp=0ForI=2tosqrt(n)ifmod(n,I)=0p=1exitendifEndforIfp=0?n,是素数Else?str(n,3)+不是素数endifdowhil.t.accep是否继续输入并判断（Y/N）？toxifupper(x)=Yloopelseexitendifenddo考

27、虑考虑:分别用分别用do while 和和for 循环实现循环实现1.求求1100之间所有偶数的平方和并输出结果。之间所有偶数的平方和并输出结果。2.统计学生表中男生和女生的人数并输出。统计学生表中男生和女生的人数并输出。专门用于处理数据表中的记录数据专门用于处理数据表中的记录数据格式：格式：ScanforwhileEndscan功能：从首记录开始对当前表中满足条件的记录功能：从首记录开始对当前表中满足条件的记录进行扫描处理。进行扫描处理。3.表扫描循环结构表扫描循环结构UsestudScandocasecase性别性别=女女sexw=sexw+1case性别性别=男男sexm=sexm+1e

28、ndcaseendscan?“女生人数：女生人数：”+str(sexw)?“男生人数：男生人数：”，sexm3.表扫描循环结构表扫描循环结构【例例】对对stud表表进进行行操操作作，显显示示所所有有班班级级为为“06广广告告设设计计”记录学生的记录学生的“姓名姓名”、“班级班级”信息。信息。Open Database d:ssstudentUse studClear 2,30 say 姓姓 名名 2,42 say 班班 级级rc=1SCAN all For 班级班级=06广告设计广告设计 2+rc,30 say 姓名姓名 2+rc,40 say 班级班级rc=rc+1EndScanClose

29、DatabaseCancel7.3.1模块程序的定义和调用模块程序的定义和调用能够完成某种特定功能的独立程序称为过程或子程序。能够完成某种特定功能的独立程序称为过程或子程序。1.定义过程定义过程Procedure FunctionReturn EndProc EndFunc功能：定义一段程序模块为过程，并命名过程名。功能：定义一段程序模块为过程，并命名过程名。7.3 模块化程序设计模块化程序设计 说明：说明：Procedure Function命命令令表表示示一一个个过过程程的的开开始始，并并命命名名过过程程名名。过过程程名名必必须须以以字字母母或或下下划划线线开开头头，可可包含字母、数字和下

30、划线。包含字母、数字和下划线。EndProc EndFunc语语句句表表示示一一个个过过程程的的结结束束。如如果果省省略略EndProc EndFunc语语句句，那那么么过过程程结结束束于于下下一条一条Procedure Function命令外或文件结尾。命令外或文件结尾。当当过过程程执执行行到到Return命命令令时时，控控制制将将返返回回到到调调用用程程序序(或或命命令令窗窗口口)，并并返返回回表表达达式式的的值值。如如果果省省略略Return命命令令，则则在在过过程程结结束束处处自自动动执执行行一一条条隐隐含含的的Return命命令令。若若Return命命令令不不带带，则返回逻辑真，则返

31、回逻辑真.T.。过过程程可可以以放放置置在在程程序序文文件件代代码码的的后后面面，也也可可以以保保存存在在称称为为过过程程文文件件的的单单独独文文件件里里，文文件件的的默默认认扩展名还是扩展名还是.prg。过过程程文文件件里里只只包包含含过过程程，这这些些过过程程能能被被任任何何其其他他程程序序所所调调用用。过过程程文文件件的的建建立立与与程程序序文文件件的的建建立立、编编辑辑完完全全相相同同，只是在程序的最后要加上返回语句只是在程序的最后要加上返回语句return返回调用处返回调用处；MODIFY COMMAND 过程名（过程名（.prg)但调用之前首先要打开过程文件。打开过程文件的命令格但

32、调用之前首先要打开过程文件。打开过程文件的命令格式为：式为：Set Procedure To ,AddItive可可以以打打开开一一个个或或多多个个过过程程文文件件。一一旦旦打打开开了了一一个个过过程程文文件件，那那么么该该过过程程文文件件中中的的所所有有过过程程都都可可以以被被调调用用。如如果果选选用用AddItive，那那么么在在打打开开过过程程文文件件时时，不不关关闭闭原原先先已已打打开开的的过程文件。过程文件。使使用用不不带带任任何何文文件件名名的的Set ProcEdure To命命令令将将关关闭闭所所有有打打开开的的过过程程文文件件。如如果果不不想想关关闭闭所所有有打打开开的的过过

33、程程文文件件，而而只只关关闭闭指指定定的的过过程程文文件件，可可使使用用下下述述命命令令：Release ProcEdure ,，2.调用模块调用模块格式格式1：Do 功能：使用功能：使用Do命令调用模块程序命令调用模块程序(过程过程)。格式格式2：()功功能能：在在名名字字后后加加一一对对小小括括号号表表示示调调用用模模块块程程序序(过程过程)。说明说明在在上上面面的的两两种种格格式式里里，如如果果模模块块是是一一个个单单独独的的程程序文件，用序文件，用；否则，用；否则，用。格式格式2既可以作为命令使用既可以作为命令使用(忽略返回值忽略返回值)，也可，也可以作为函数出现在表达式里。在这里，以

34、作为函数出现在表达式里。在这里，不能包含扩展名。不能包含扩展名。*主程序：Set Procedure To d:ssprgf2,d:ssprgf3?主程序开始DO f2Do p1?主程序结束Cancel*过程p1Procedure p1?过程p1开始?调用p3()?返回值：,p3()?过程p1结束EndProc*子程序：f2.prg?子程序f2开始?调用p2()x=p2()?返回值为：,x?子程序f2结束Return*过程文件：f3.rgProcedure p2ReturnProcedure p3Return 100作用域：作用域：指变量在什么范围内有效或能够访问。指变量在什么范围内有效或能够

35、访问。即即变量的作用范围，分公共变量、私有变量和局部变变量的作用范围，分公共变量、私有变量和局部变量。量。1）公共变量：）公共变量：在任何模块中都可以使用的变量，在任何模块中都可以使用的变量，公共变量需要先建立后使用。公共变量需要先建立后使用。Public：建立公共变量，并赋初值：建立公共变量，并赋初值为假值为假值.f.。公共变量只有在执行公共变量只有在执行clearmemory、release、quit等命令后才被释放，变为无效变量。等命令后才被释放，变为无效变量。命令窗口中建立的所有内存变量都为公共变量。命令窗口中建立的所有内存变量都为公共变量。7.3.2 模块程序中变量的作用域模块程序中

36、变量的作用域 2）私有变量：）私有变量：在程序中直接使用而无须声明的变量，在程序中直接使用而无须声明的变量，其作用域为建立它的本模块和它的下属模块，当建其作用域为建立它的本模块和它的下属模块，当建立它的模块运行结束，则私有变量将自动释放。立它的模块运行结束，则私有变量将自动释放。3）局部变量）局部变量只在建立它的模块中使用，不能在上层或下层中使只在建立它的模块中使用，不能在上层或下层中使用。用。Local局部变量必须先建立后使用。局部变量必须先建立后使用。当建立它的模块程序当建立它的模块程序运行结束时，局部变量自动释放。运行结束时，局部变量自动释放。Public x1&建立公共变量建立公共变量

37、x1，初值为初值为.F.Local x2&建立局部变量建立局部变量x2，初值为初值为.F.Store ok To x3&建立私有变量建立私有变量x3，初值为初值为.F.Do p6?主程序中主程序中&三个变量在主程序中都可以使用三个变量在主程序中都可以使用?xl=,x1?x2=,x2?x3=,x3Return*过程过程p6Procedure p6?子程序中子程序中&公共变量和私有变量在子程序中可以使用公共变量和私有变量在子程序中可以使用?xl=,x1*?x2=,x2&局部变量局部变量x2在子程序中不可以使用在子程序中不可以使用?x3=,x3Return*cleaall&注意此语句的作用，直接影响

38、公共变量的值注意此语句的作用，直接影响公共变量的值Publicx1&建立公共变量建立公共变量x1，初值为初值为.F.Localx2&建立局部变量建立局部变量x2，初值为初值为.F.StoreokTox3&建立私有变量建立私有变量x3，初值为初值为.F.?主程序调用主程序调用p6前前?xl=,x1?x2=,x2?x3=,x3Dop6?主程序调用主程序调用p6后后&三个变量在主程序中都可以使用三个变量在主程序中都可以使用?xl=,x1?x2=,x2?x3=,x3Return*过程过程p6Procedurep6?子程序中子程序中x1=10&公共变量和私有变量在子程序中可以使用公共变量和私有变量在子程

39、序中可以使用?xl=,x1x2=20?x2=,x2x3=30&局部变量局部变量x2在子程序中不可以使用在子程序中不可以使用?x3=,x3Return4）隐藏变量）隐藏变量目的：目的：隐藏在上层模块中已经建立的私有变量，隐藏在上层模块中已经建立的私有变量，使得这些变量在当前模块中暂时无效，这样就使得这些变量在当前模块中暂时无效，这样就可以在当前模块中定义与上层模块同名的变量，可以在当前模块中定义与上层模块同名的变量，该变量的使用不影响上层同名的变量的值。该变量的使用不影响上层同名的变量的值。格式：格式：private或或privatealllike|exceptLocal命令也可以隐藏本模块中与

40、上层同名的变量命令也可以隐藏本模块中与上层同名的变量Cleara1=10a2=15?a1=+STR(a1),a2=+STR(a2)&显示显示a1=10a2=15Dop7?a1=+STR(a1),a2=+STR(a2)&显示显示a1=10a2=100*过程过程p7Procedure p7Private a1a1=50a2=100?a1=+STR(a1),a2=+STR(a2)&显示显示a1=50a2=100Return【例】例】Local和和Private命令程序示例。命令程序示例。ClearPublic x,yx=10y=100Dop8?x,y&显示显示10bbb*过程过程p8Procedur

41、e p8Privatex&隐藏上层模块中的变量隐藏上层模块中的变量xx=50&建立私有变量建立私有变量x，并赋值并赋值50Localy&隐藏同名变量隐藏同名变量，建立局部变量建立局部变量yDo p9?x,y&显示显示aaa.F.*过程过程p9Procedure p9x=aaa&x是在是在p8中建立的私有变量中建立的私有变量y=bbb&y是在主程序中建立的公共变量是在主程序中建立的公共变量ReturnSET TALK OFFCLOSE ALLCLEAR ALLmX=Visual FoxpromY=二级二级DO s1?mY+mXRETURN*子程序文件名：子程序文件名：s1.prgPROCEDUR

42、E s1LOCAL mXmX=Visual FoxPro DBMS 考试考试mY=计算机等级计算机等级+mYRETURN(1)接收参数的命令格式接收参数的命令格式格格式式1：Parameters ,，格格式式2：LParameters ,，功功能能：接接收收模模块块以以形形参参变变量量接接收收调调用用模模块块程程序序传传递递过过来来的的参参数数(称为实参称为实参)值。值。说明：说明：Parameters命命令令中中声声明明的的形形参参变变量量是是模模块块程程序序中中建建立立的的私私有有变变量量，LParameters命命令令中中声声明明的的形形参参变变量量是是模模块块程程序序中建立的局部变量。

43、除此之外，两条命令没有什么不同。中建立的局部变量。除此之外，两条命令没有什么不同。不不管管是是Parameters命命令令还还是是LParameters命命令令，都都应应该该是模块程序的第一条可执行命令。是模块程序的第一条可执行命令。7.3.3调用模块时传递参数(2)调用模块程序时传递参数的命令格式调用模块程序时传递参数的命令格式【格格式式1】Do With ,【格式【格式2】(,)【功能】【功能】调用模块以实参向接收模块程序的形参变量传递值。调用模块以实参向接收模块程序的形参变量传递值。【说明】【说明】实实参参可可以以是是常常量量、变变量量，也也可可以以是是一一般般形形式式的的表表达达式式。

44、调调用用模模块块程程序序时时，系系统统会会自自动动把把实实参参传传递递给给对对应应的的形形参参。形形参参的的数数目目不不能能少少于于实实参参的的数数目目，否否则则系系统统会会产产生生运运行行时时错错误误。如如果果形形参参的的数数目目多多于于实实参参的的数数目目，那那么么多多余余的的形形参参取取逻逻辑辑假假.F.初值。初值。采采用用格格式式1调调用用模模块块程程序序时时，如如果果实实参参是是常常量量或或一一般般形形式式的的表表达达式式，系系统统会会计计算算出出实实参参的的值值，并并把把它它们们赋赋给给相相应应的的形形参参变变量量。这这种种情情形形称称为为按按值值传传递递。如如果果实实参参是是变变

45、量量，那那么么传传递递的的是是变变量量的的地地址址，这这时时形形参参和和实实参参实实际际上上是是同同一一个个变变量量(尽尽管管它它们们的的名名字字可可能能不不同同)，在在模模块块程程序序中中改改变变形形参参变变量量值值也也将将改变实参变量值。这种情形称为按引用传递。改变实参变量值。这种情形称为按引用传递。采采用用格格式式2调调用用模模块块程程序序时时，默默认认情情况况下下都都以以按按值值传传递递方方式式传传递递参参数数。如如果果实实参参是是变变量量，可可以以通通过过Set Udfparms命命令重新设置参数传递的方式。该命令如下。令重新设置参数传递的方式。该命令如下。【格式】【格式】Set U

46、dfparms To Value Reference【说明】说明】使使用用To Value表表示示按按值值传传递递，改改变变形形参参变变量量的的值值不不会会影影响响实实参变量的取值。参变量的取值。使使用用To Reference表表示示按按引引用用传传递递，改改变变形形参参变变量量值值时时，实参变量值也随之改变。实参变量值也随之改变。【例】引用传递和按值传递程序示例。ClearStore 100 To x1,x2Set Udfparms To Value&设置按值传递设置按值传递Do p4 With x1,(x2)&x1按引用传递，按引用传递，x2按值传递按值传递?第一次：第一次：,x1,x2

47、Store 100 To x1,x2p4(x1,x2)&x1、x2都按值传递都按值传递?第二次：第二次：,x1,x2Set Udfparms To Reference&设置按引用传递设置按引用传递Do p4 With x1,(x2)&xl按引用传递，按引用传递，x2按值传递按值传递?第三次：第三次：,x1,x2STore 100 To x1,x2p4(x1,x2)?第四次：第四次：,x1,x2*过程过程p4Procedure p4Parameters x1,x2Store x1+1 To x1STore x2+2 To x2ENDProc程序运行后显示结果为：程序运行后显示结果为：第一次：第一

48、次：101 100第二次：第二次：100 100第三次：第三次：101 100第四次：第四次：101 102数组作参数在调用程序和被调用程序之间传递的参数还可以是数组。当实参是数组元素时，总是采用按值传递方式传递元素值。当实参是数组名时，若传递方式是按值传递，那么就传递数组的第一个元素值给形参变量；若传递方式是按引用传递，那么传递的将是整个数组。数组作参数ClearDime s(10)For i=1 To 10S(i)=iEndForDo p5 With s?s(1),s(2),s(3),s(4),s(5)?s(6),s(7),s(8),s(9),s(10)程序运行后显示结果为：1098765

49、4321Procedure p5Parameters xFor i=1 To 5t=x(I)x(I)=x(11-I)x(11-I)=tEndForReturncleadimea(10)fori=1to10inputtoa(i)nextfori=1to10?a(i)endfor?dosortwithafori=1to10?a(i)endforprocsortparamesfori=1to9forj=1to10-iifs(j+1)n?ma=a+1IF a6?a=1EndIfEndIfEndForCancelclearforx=3to100k=0pd(x)ifk=0?x,issushuelse?x,

50、noendifendforprocpdparamfori=2tosqrt(m)ifmod(m,i)=0k=1exitendifnextretukendproc【例7.19】编制一个查询学生情况的程序。要求根据给定的学号找出并显示学生的姓名及该学生各门功课的成绩。Open Database d:ssstudentUse stud In 0Use sc In 0SELECT scIndex On 学号学号 Tag xhSELECT studIndex On 学号学号 Tag xhSet Relation To 学号学号 Into sc&建立一对多关联建立一对多关联Set Skip To scDo