vf第8章节程序设计gj.pptVIP

SET TALK OFF SET DEFAULT TO d:\学生管理 OPEN DATA 学生管理 SELECT AVG(成绩) FROM 成绩 WHERE; 课程号=“101” INTO ARRAY m1 SELECT AVG(成绩) FROM 成绩 WHERE; 课程号=“101” AND LEFT(学号,4)=“2010”; AND SUBS(学号,5,2)=“03” INTO ARRAY m2 CLEAR ?”所有学生的平均成绩:” font “宋体”,20,m1(1) font “宋体” ?”指定学生的平均成绩:” font “宋体”,20, m2(1) , font “宋体” CLOSE DATASE SET TALK ON RETURN 【例8.30】利用子程序计算圆的面积： *主程序： Clear ymj=0 初始化用于接收圆面积的变量 Input “请输入圆的半径：“ To bj Do zcx2 With bj,ymj 带参数调用子程序 @7,10 Say 圆的面积为：+Str(ymj,10,2) Return *子程序zcx2： Parameters cj, s S=3.14*cj**2 Return 变量bj初始值为0 计算后的面积 函数名 （实际参数表） 3. 自定义函数 自定义函数与子程序的区别在于自定义函数必须返回一个函数值，而子程序则无此限制。 主程序调用格式： [Function 函数名] [Parameters 形式参数表] 命令序列 Return 表达式 如果是单独的程序，就可以省略这一句，如果自定义函数和主程序是一个程序，不能省略。 从表达式返回函数值到主程序 自定义函数格式： 例如: 主程序： ?a1 (bb) 自定义函数： Parameters bb …… Return bb 【例8.31】利用自定义函数计算圆的面积： *主程序： clear Input “请输入圆的半径：“ To bj @7,10 Say 圆的面积为：+str(zcx3(bj),10,2) Return 带参数调用自定义函数zcx3 *自定义函数zcx3： Parameters r S=3.14*r**2 Return s 调用时bj是半径，返回时，bj是面积 *主程序： clear Input “请输入圆的半径：“ To bj @7,10 Say 圆的面积为：+str(zcx3(bj),10,2) Return *自定义函数 Function zcx3 Parameters r S=3.14*r**2 Return s 如果主程序和自定义函数放在一个文件中，那么一定要加上这么一句。 8.4.2 过程文件 多个过程可以保存在一个过程文件中。过程文件打开后，其中的过程能被任何其它程序调用。称为内部过程调用。要调用内部过程，需在主程序中首先打开过程文件，然后再调用过程文件中的过程。 打开过程文件： 调用过程： 关闭过程文件： Set Procedure To 过程文件名 Do 过程名 [ with 参数表] Set Procedure To 1. 打开、调用、关闭过程文件 2. 过程的建立 1、Procedure 表示一个过程的开始，并命名过程名，过程名必须以字母或下划线开始。为1～8 个字符； 2、过程执行到Return处返回到调用程序或命令窗口。 定义过程： Procedure 过程名1 命令序列 Return [To Master] Procedure 过程名2 命令序列 Return …… 说明： 过程文件可以单独建立成命令文件，也可以放在主程序的后面 【例8.32】有2个文件：程序文件Prog1.Prg是主文件，Pp1.Prg过程文件。 Clear Set Procedure To pp1.prg Input 请从键盘输入一个数： To a Input 请从键盘输入一个数： To b Do P1 Do P2 Set Procedure To ?a=,a,b=,b ?a+b=,a+b,a-b=,a-b ?a*b=,a*b,a/b=,a/b Return *PP1.PRG Procedure P1 C=1 D=2 C=C+D D=D+C