VFP复习资料01.ppt

例3.15：显示输出“学生”表中的获得奖学金的女学生的姓名和奖学金数额。 ***** P_ 15.PRG ***** SET TALK OFF CLEAR USE 学生 SCAN FOR 奖学金0 .AND. !性别 ?姓名,奖学金 ENDSCAN USE SET TALK ON 一、过程与过程文件的定义 过程是一个由 PROCEDURE过程名开头，ENDPROC结尾的子程序段，其所处的文件称为过程文件，即过程文件是由若干个过程构成的，而过程必须存放在一个过程文件中。过程文件的扩展名为.PRG。 过程的存在格式如下所示： PROCEDURE 过程名 [语句序列] ENDPROC 图3.25和3.26画出了主、子程序的调用关系。 ******主程序：***** SET TALK OFF CLEA ?’下面通过P1计算1+3+5+…+99‘ DO P1 ？’下面通过子程序P2计算1*2*3*…*9‘ DO P2 *****P2。PRG**** ***P1.PRG*** T=1 S=0 FOR J=1 TO 9 FOR I=1 TO 99 STEP 2 T=T*J S=S+I ENDFOR ENDFOR ？’T=‘，T ？’S=‘，S RETURN *计算1!+3!+5!+…+9! SET TALK OFF CLEA S=0 T=1 FOR I=1 TO 9 STEP 2 DO FACT WITH T,I S=S+T ENDFOR ?’S=‘,S PROCEDURE FACT 子程序FACT PARA N,M 定义子程序中的形参（放在子程序的最前面） N=1 FOR J=1 TO M N=N*J ENDFOR ENDPROC 自定义函数 自定义函数在过程文件中的存在形式为： FUNCTION 自定义函数名 PARAMETERS 变量列表 [语句序列] RETURN 表达式 ENDFUNC *自定义函数FACT 求N！ FUNCTION FACT PARA N T=1 FOR I=1 TO N T=T*I ENDFOR RETURN T ENDFUNC ?FACT(5) S=FACT(3)+FACT(5) 一、利用内存变量属性传递参数 （一）自然属性。 主程序?子程序 （二）公用属性。PUBLIC 主程序??子程序 （三）私有属性。 PRIVATE 屏蔽主程序中的同名字段 ? (四)本地属性。LOCAL屏蔽主程序中的同名字段，只在本程序中起作用 二、利用DO 文件名 WITH 参数表达式列表传递参数 输出图形 通过循环输出图形 一般用双重循环输出多行符号 1输出 * *** ***** 2输出 A 3输出 BBB 1 CCCCC 123 DDDDDDD 12345 1234567 SET TALK OFF CLEA FOR I=1 TO 4 ?SPACE(5-I) FOR J=1 TO 2*I-1 ??CHR(64+I) ENDFOR ENDFOR SET TALK OFF