第6篇 Visual FoxPro程序设计.ppt

Visual FoxPro程序设计基础 6.3 程序的基本结构 6.3.4 综合编程实例 例6.15 编程序求W=1!+2!+3!+…+10!。 *求阶乘累加和。程序名：Factorial_1.prg CLEAR S=0 FOR I=1 TO 10 K=1 FOR J=1 TO I K=K*J ENDFOR S=S+K ENDFOR ? 1!+2!+3!+…+10!=,S RETURN *求阶乘累加和。程序名：Factorial_2.prg CLEAR S=0 K=1 FOR I=1 TO 10 K=K*I S=S+K ENDFOR ? 1!+2!+3!+…+10!=,S RETURN 6.4 子程序、过程与自定义函数构 6.4.1 子程序 把反复使用的程序或经常被其他程序使用的程序段单独独立出来，形成一个独立的文件，它可以被其他程序所调用，也可以去调用其他程序。被调用的程序称为子程序。 主程序和子程序创建的方法与创建普通程序一样 。 1. 子程序及子程序调用 例6.17 编写程序，利用Visual FoxPro的TEXT … ENDTEXT语句在主窗口显示一个选择界面，根据用户选择，分别调用子程序浏览基本信息和参赛队，选择0将退出程序。 6.4 子程序、过程与自定义函数构 6.4.1 子程序 2. 带参数的子程序调用 一般说来，调用子程序时都有参数传递。参数传递是指在调用子程序时，通过WITH子句指定数值，或已赋值的变量，子程序被调用时接收主程序传递过来的参数。 接收参数是在子程序中第一条语句加入命令PARAMETERS 格式为： PARAMETERS 形参变量1[,形参变量2,…] 它与主程序中调用子程序的命令DO 文件名 WITH 参数1[,参数2, … ]中的实参相对应。 调用子程序时，系统会自动把主程序中的实参传递给对应的形参。 例6.18 对于例6.1求圆形的面积，可以使用子程序调用。 例6.19 利用子程序计算W=1!+2!+3!+…+10!。 6.4 子程序、过程与自定义函数构 6.4.1 子程序 2. 带参数的子程序调用 例6.18 对于例6.1求圆形的面积，可以使用子程序调用。 *求圆形的面积的主程序。 文件名：Circle_main.prg SET TALK OFF S=0 INPUT 请输入圆的半径，半径= TO R DO .\程序\Circle_sub WITH R,S ? 半径为+ALLTRIM(STR(R))+的圆，面积=,S SET TALK ON RETURN *求圆形的面积的子程序 文件名：Circle_sub.prg PARAMETERS X,Y Y=PI()*X*X RETURN 6.4 子程序、过程与自定义函数构 6.4.1 子程序 2. 带参数的子程序调用 例6.19 利用子程序计算W=1!+2!+3!+…+10!。 *主程序，计算阶乘的累加和。 文件名：Factorial_main.prg CLEAR S=0 FOR I=1 TO 10 K=1 DO .\程序\factorial_sub WITH K,I S=S+K ENDFOR ? 1!+2!+3!+…+10!=,S RETURN *子程序，计算阶乘。 文件名：Factorial_sub.prg PATRMETERS K,I FOR J=1 TO I K=K*J ENDFOR RETURN 6.4 子程序、过程与自定义函数构 6.4.2 过程和过程文件 在Visual FoxPro中，模块可以是子程序（独立的命令文件），也可以是过程。 过程定义的格式为： PROCEDURE 过程名 语句序列 RETURN|ENDPROC 1. 过程文件的建立 格式：MODIFY COMMAND 过程文件名 一个过程文件具有如下结构： PROCEDURE 过程名1 语句序列1 RETURN PROCEDURE 过程名2 语句序列2 RETURN … PROCEDURE 过程名N 语句序列N RETURN 6.4 子程序、过程与自定义函数构 6.4.2 过程和过程文件 例6.20 对于例6.1求圆形的面积，使用过程调用 *带过程调用的求圆面积的程序。文件名：Circle_proc.prg SET TALK OFF S=0 INPUT 请输入圆的半径，半径= TO R DO Circle_P WITH R,S ? 半径为+ALLTRIM(STR(R))+的圆，面积=,S RETURN PROCEDURE Circle_P PARAMETERS X,Y Y=PI()*X