vfp新第二章.ppt

* 管理系 * 4.多重循环 九九乘法口诀表 * 管理系 * 打印九九表(8-30) clear @1,1 say “*” for i=1 to 9 @i+1,1 say str(i,1) next for j=1 to 9 @1,j*3 say str(j,1) for k=1 to j t=k*j @j+1,k*3 say str(t,2) next next cancel * 管理系 * 2.6多模块程序设计(子程序、过程与自定义函数) 2.6.1 子程序 1.子程序的概念 2.子程序与主程序的区别 在程序设计中常把重复书写的一段程序编写成独立的程序，这种具有相对独立性和通用性的程序段称为～。 子程序的最后一条语句通常为RETURN，该语句将控制转到调用它的上级程序，而在主程序不必包含RETURN语句。 子程序的第一条语句可以是parameters命令，用来实现参数的传递，而主程序中通常没有这一条命令。 模块是一个相对独立的程序段，它可以被其他模块所调用，也可以去调用其他的模块。通常，把被其他模块调用的模块称为子程序，把调用其他模块而没有被其他模块调用的模块称为主程序。 * 管理系 * 3.建立和调用子程序 Modify command filename Do 子程序 [with参数表达式列表] 4. 从子程序返回 Return [表达式][to程序文件名 [to master] 5.程序的嵌套 执行do调用命令时，将指定的子程序调入内存并执行，当执行到return命令时，返回到调用该子程序的主程序，并执行调用命令下的第1条可执行语句命令。 在返回命令中，若选择可选项表达式，则将表达式的值返回给调用程序；选择[to程序文件名]，可直接返回指定的程序文件；选择[to master]，则不论前面有多少级调用都直接返回到第一级主程序。 * 管理系 * 例：计算圆面积的主程序为MYMAIN.PRG，子程序为MYSUB.PRG *MYMAIN.PRG SET TALK OFF CLEAR STORE 0 TO RR, AREA * 管理系 * DO WHILE .T. INPUT 请输入圆的半径： TO RR DO MYSUB WITH RR, AREA ? 圆的面积是：, AREA WAIT “还要继续计算吗（Y/N）？” TO A IF UPPER(A)=Y LOOP ELSE EXIT ENDIF ENDDO SET TALK on * 管理系 * *MYSUB.PRG PROCEDURE MYSUB PARAMETERS R,S S=PI()*R^2 RETURN 以一个独立的文件形式存在 * 管理系 * 2.6.2 过程及过程文件 1.过程的概念 2.过程与子程序的区别 子程序必须独立于调用程序，以.prg文件存盘；而过程既可以放在调用程序的后面，与调用程序保存在同一个.prg 文件中，也可以存入单独的过程文件。过程文件包含的过程数量不限。过程文件的建立仍使用modify command命令，文件的扩展名还是.prg。 子程序没有专门的开头语句，而过程的第一条语句必须是： PROCEDURE 过程名 以一个procedure过程名开头，endproc结尾的子程序段。称为～ * 管理系 * 3.过程的格式 PROCEDURE 过程名 [parameters参数表] 语句序列 return[表达式] ENDPROC 过程返回，当过程执行到return命令时，控制将转回到调用程序（或命令窗口），并返回表达式的值。若return命令不带表达式,则返回逻辑真（.T.） 过程的头：procedure命令表示一个过程的开始，并命名过程名。过程名必须以字母或下划线开头，可包含字母、数字和下划线。 过程尾：endproc 命令表示一个过程的结束。若缺省endproc命令，则过程结束于下一条procedure命令或文件尾处。 * 管理系 * 4.过程的调用格式 格式1：Do 过程名[IN 程序文件名] [with参数表达式列表] 格式2：文件名/过程名() 5.过程文件的概念 过程文件将多个子程序合并成一个文件，在这个文件里，每个子程序仍是相互独立的。程序执行时将过程文件一次调入内存，主程序调用子程序就直接在内存的过程文件中去调用，这样避免了频繁调用子程序，