VFP程序命令文件的建立和执行.ppt

5.2 VFP常用编程命令及函数 2．清屏命令——CLEAR 命令格式：CLEAR 命令功能：清除VFP主窗口或当前用户自定义窗口。 4. 程序注释语句——NOTE/* 命令格式1：NOTE注释字符 命令格式2：* 注释字符 命令功能：标识一个非执行的注释行。 5.3 VFP流程图介绍 5.4 顺 序 执 行 5.5 判 断 分 支 例2 读程序清单,分析程序功能. Clear Input’请输入一个随机正整数:’ to n If mod(n,7)=0 ? ‘Pass!’ Endif 例5 用情况语句重新编制例4，比较情况语句与条件转向语句的用法。 5.6 循 环 结 构 例：将一张厚度0.1mm并充分大的纸对折多少次后厚度超过珠峰的高度？ 例：计算N！=1*2*3*……*N 例：计算∑I=1+2+3+……+N 例：找出3位的水仙花数，若一个3位正整数的各位数字的立方和等于该数本身，则称这样的数为水仙花数。 算法：枚举。把100-999之间的每一个数都检验一遍，输出满足定义的即可。 CLEAR SET PRINTER ON ? 姓名 工资 OPEN DATABASE 雇员管理 USE 职工 SCAN ? 姓名+ ??工资 ENDSCAN USE CLOSE DATABASE SET PRINTER OFF 采用SCAN语句，程序如下： CLEAR OPEN DATABASE 雇员管理 USE 职工 SCAN FOR 工资=600 AND工资=500 REPLACE 工资 WITH 工资+10 ENDSCAN USE CLOSE DATABASE 若采用DO WHILE语句，则程序其它部分不变，仅把循环部分改为： LOCA FOR工资=600 AND 工资=500 DO WHILE FOUND(?) REPL 工资 WITH 工资+10 CONT ENDDO 例15 令计算机从零开始计数，并将奇数累加求和。当奇数累加和大于300时，结束计数；否则，继续计数。依题意编程如下： X=0 JSH=0 DO WHILE .T. X=X+1 DO CASE CASE INT(X/2)=X/2 LOOP CASE INT(X/2)X/2 JSH=JSH+X IF JSH300 EXIT ENDIF ENDCASE ENDDO ? 奇数和= ?? JSH USE XSCJ SCAN REPLACE 主平均 WITH (语文+数学)/2 REPLACE 总平均 WITH ; (语文+数学+物理+化学+英语)/5 DO CASE CASE 主平均=60 REPLACE 升留判定 WITH 升级 CASE 主平均60.AND. 总平均60 REPLACE 升留判定 WITH 留级 CASE主平均60.AND. 总平均=60 REPLACE 升留判定 WITH 补考 ENDCASE ENDSCAN LIST FOR 升留判定=升级 TO PRINT LIST FOR 升留判定=留级 TO PRINT LIST FOR 升留判定=补考 TO PRINT USE CLEAR ? “ * FOR A=1 TO 9 ?? A ENDFOR ? FOR A=1 TO 9 ? A B=1 DO WHILE B=A P=A*B ?? P B=B+1 ENDDO ? ENDFOR CLEAR ? “ * FOR A=1 TO 9 ?? A ENDFOR ? FOR A=1 TO 9 ? A FOR B=1 TO A P=A*B ?? P ENDFOR