2007第7章程序设计.pptVIP

第七章 VFP程序设计基础 引 言 #DEFINE PI 3.1415926 R=6 R=R/2 S=PI*R*R L=2*PI*R ?S ??L 程序 为了完成某一具体任务而编写的一系列指令 程序设计 编写程序的过程 优点 自动执行多条命令 可被修改,可多次运行 可调用其他程序 7.1 创建、修改和运行应用程序 创建 项目管理器 菜单“新建” MODIFY COMMAND 程序文件名 VFP程序行的规则 一个命令行内只能写一条命令 一个命令行可由若干物理行组成 采用“缩进”格式书写 修改 “打开”/“修改”按钮 MODIFY COMMAND 程序文件名 运行 “运行”按钮 DO 程序文件名 扩展名为.prg 7.2 Visual FoxPro基本语法结构 7.2.1 常用命令 ?/?? @ 行，列　SAY　＜表达式＞ CLEAR NOTE/*/ STORE ＜表达式＞　TO　变量1,变量2，... WAIT WINDOWS 提示信息　TO 变量 INPUT 提示信息　TO 变量 ACCEPT 提示信息　TO 变量 例1： Use js Append blank Edit Delta=b*b-4*a*c DO CASE CASE delta0 ?“方程有两个不等的实数根：” ??(-b+sqrt(delta))/(2*a) ?? (-b-sqrt(delta))/(2*a) CASE delta=0 ?“方程有两个相等的实数根：” ?? –b/(2*a) CASE delta0 ?“方程有两个复根：” real_part=-b/(2*a) img_part=sqrt(-delta)/(2*a) ?alltrim(str(real_part))+”+”+alltrim(str(img_part))+”I” ?alltrim(str(real_part))+”-”+alltrim(str(img_part))+”I” ENDCASE SCAN……ENDSCAN FOR……ENDFOR DO WHILE……ENDDO SCAN…ENDSCAN SCAN [范围][FOR条件][WHILE条件] 语句组 ENDSCAN 例 显示JS表中全部记录的jsgh,jsxm Use js scan ?js.jsgh ,js.jsxm endscan use 例 显示JS表中记录号为偶数的jsgh,jsxm Use js scan for recno()%2=0 ?js.jsgh ,js.jsxm endscan use FOR……ENDFOR FOR 循环变量=初值 TO 终值 [STEP 步长] 语句组 ENDFOR / NEXT 适用于已知循环次数的场合 改错题4下列程序的功能是统计所有的“水仙花数”的个数.(“水仙花数”是指一个三位数，其各位数字立方和等于该数本身，例如153=13+33+53） ncount=1 for n=100 to 999 n1=val(substr(str(n,3),3,1)) n2=val(substr(str(n,3),2,1)) n3=val(substr(str(n,3),1,1)) if n1^3+n2^3+n3^3=n ncount=ncount+1 endif endfor wait windows ‘”水仙花数”的个数为’+ncount LOOP命令和EXIT命令 双重循环 计算 S=1!+2!+3!+……+20! s=0 For i=1 to 20 p=1 for j=1 to i p=p*j next j s=s+p next i （可以用单循环） S=0 P=1 FOR I=1 TO 20  P=P*I S=S+P NEXT I 产生50个随机数 DIMENSION A(50), B(5,10) FOR I=1 TO 50 A(I)=RAND()  ENDFOR FOR I=1 TO 5 FOR J=1 TO 10 B(I,J)=RAND() NEXT J NEXT I 产生10个(10~50)之间的随机整数。 DIMENSION X(10) FOR I=1 TO 10 N=5 赋初值 DO WHILE N10 .OR. N50 N=