程设5子程序过程变量作用范围参数调用自定义函数.docVIP

财管29-30学时(VFP程序设计5) 2009-12- 实验10问题： 实验教材P68：通过口令检查，方可查阅学生信息库（学生.dbf）。允许输入三次口令，如果三次都输错，则不能进入查询。 if upper((alltrim(kl)))=ABC 等号后面必须是大写字母,亦可是数字或汉字；不要attrim()函数亦可 set talk off n=1 do while n=3 @ 15,10 say请输入口令！ set console off 屏蔽向主窗口输入的口令，呈死状属于正常。 accept to kl set cons on if upper((alltrim(kl)))=ABC 等号后面必须是大写字母,亦可是数字或汉字；不要attrim()函数亦可 wait欢迎您查阅学生信息！ window nowait window nowait：window使欢迎显示在提示窗口中； nowait使不需要再按回车键即执行下行命令。 clea use xs brow use return else if n3 wait请再输入一次！window 在提示窗口显示此信息。 else wait非法用户！ window nowait cancel 终止程序 endif endif n=n+1 enddo set talk on 主要内容：子程序，过程，变量作用范围，参数调用，自定义函数 基本概念：模块化程序设计 在程序设计中，通常使用模块化设计方法。整个系统划分为主控模块下的若干模块，每个模块是相对独立的程序段。 主控模块又叫主程序，其它模块有子程序、过程和自定义函数。 其意义有两点：主程序干净，效率高；子程序便于修改。 第一部分：子程序调用（教材P182） 一、子程序：是一个相对独立的程序，能够独立地完成一项任务 子程序的建立：与普通程序相同。 子程序的最后一条语句必须是：return。表示返回上一级程序。如果是return to master，则是返回到主程序。 上级程序对子程序的调用：DO 子程序文件名 ?with 参数。 A主程序.prg set talk off clear do B do C do C set talk on return 程序无法执行，因为没有子程序。 以下同时打开几个程序文档窗口书写： B.prg note //子程序1，此可有清屏命令clear set talk off clear @1,1say同学们,今天是星期五,大家辛苦了! set talk on return C.prg note //子程序2，此不可有清屏命令，否则，将子程序1的内容清除，看不到多个子程序的效果 set talk off clear @ 2,1say再辛苦,我们也要一块共同努力! set talk on return 程序流程是： 执行主程序/依次执行子程序，且每个子程序均有return 如果子程序2、3有清屏命令，则主窗口只有最后一个子程序的输出结果。 二、主程序、子程序写在一个程序中的写法 主程序调用子程序.prg note //主程序调用子程序，教材P182 set talk off clear do B do C set talk on return procedure B @1,1say同学们,今天是星期五,大家辛苦了! return procedure C @ 2,1say再辛苦,我们也要一块共同努力! return 子程序的作用： ① 节省语句。如果子程序3块有3000句，而主程序调用只3句即可，调用越多，则主程序的语句量就越节省、简洁。 ② 容易修改：哪个子程序需要修改，就修改哪个。 第二部分 过程与过程文件（教材P190） 将一个功能相对独立的程序段取个名字，并进行标识，就是一个过程，将若干个过程集成在一个命令文件中，成为一个独立的文件，就是过程文件。 过程：procedure 过程名…….endprocedure 过程文件：将许多个过程放在一个文件中，其本身是一个命令文件，有文件名。 过程的使用： ① 在主程序中使用过程：do 过程名 ②在主程序中要打开过程文件 set procedure to过程文件名 例题：教材P191 ex36.prg 求素数 求三角形面积：公式=（底*高）/2 A主程序.PRG note//教材P191主程序,调用过程文件的过程求素数和三角形面积 set talk off clear set procedure to B 打开过程文件名,其中有求素