VFP第5章课件.ppt

* SET TALK OFF V1=10 V2=15 Do sub ?v1,v2 PRIVATE v1 v1={^2008/07/31} v2=100 ?”v1 v2” ?v1,v2 retu 主程序 main.prg 子程序sub.prg 例5-28 局部变量示例。 * Public x,y A=50 B=100 Do P1 ?A,B *P1.PRG PRIVATE A A=80 LOCAL B DO P2 ?A,B retu 主程序 MM.prg 例5-29 内存变量示例。 *P2.PRG A=[ATCM] B=[(0551)5169268] retu * 1)调用子程序、过程、函数的命令格式 DO 程序名 WITH 参数表 2)被调用程序的命令格式 PARAMETERS 参数表 注:两条命令中参数表中参数的个数,类型,位置必须一致,各参数之间用逗号隔开. 3.参数传递 * 参数传递主要有两种形式： （1）按值传递 例如：do sum with 100,x+10,(x) （2）按地址传递 例如: do sum with x,y 其中按地址传递的参数必须是变量名，而 且变量将在被调用模块中可以被任意修改 * SET TALK OFF INPUT ‘请输入一个正整数: ’ TO A P=0 DO SUB WITH A,P ? ‘阶乘值=’,P DO SUB WITH A,(P) ? ‘阶乘值=’,P DO SUB WITH 8,P ? ‘阶乘值=’,P DO SUB WITH A+1,P ? ‘阶乘值=’,P RETU PARA K,P P=1 FOR I=1 TO K P=P*I ENDFOR RETU 例5-29：当输入3时,求程序的运行结果. 主程序main.prg SUB.PRG * 上 机 练 习 1. 编程利用自定义函数计算： S=1！+2！+……+20！ 2. 通过键盘输入一个数，利用自定义函数判断其是否为素数。编程要求：若是素数，则输出该数。否则，可继续输入其他数。当输入一个非正数时，中止程序执行。 * * * 方法二：利用嵌套 SET TALK OFF CLEAR FOR I=1 TO 4 FOR J=1 TO I @I,J SAY ‘*’ ENDFOR ? ENDFOR RETURN * * *** ***** ******* ******* ***** *** * * ** *** **** **** *** ** * 上机练习：修改上例程序实现打印如下图形 **** *** ** * 1 2 3 4 5 6 7 8 9 * set talk off f1=1 f2=1 for I=1 to 20 ?f1,f2 f1=f1+f2 f2=f2+f1 endfor 例5-21:求斐波那契数列的前40数 F1=1 n=1 F2=1 n=2 Fn=Fn-1+Fn-2 n=3 操作 * 上机习题: 1.利用FOR-ENDFOR语句改写求素数程序。 2.求水仙花数 (153=13+53+33 ) 3.求1000之内的完数. 一个数恰好等于它的因子之和称其为完数.如6=1+2+3. * 3.SCAN-ENDSCAN 专门用于数据表记录的循环处理. SCAN [范围] FOR 逻辑表达式1 WHILE逻辑表达式2 语句块 [LOOP] [EXIT] ENDSCAN * 例5-22:显示CJ表中成绩高于80的学生. SET TALK OFF CLEAR USE CJ SCAN ALL FOR 成绩80 DISP =INKEY(3