VF项目管理器解读.ppt

项目8 程序设计初步 任务8.4 循环程序设计 例8：求S=1+3+5+…+99的值 CLEAR S=0 FOR N=1 TO 99 STEP 2 S=S+N ENDFOR ?”S=”,S 项目8 程序设计初步 任务8.4 循环程序设计 8.4.3 SCAN-ENDSCAN 语句 命令格式： SCAN [范围] [FOR 条件] [WHILE 条件] 语句序列 [LOOP] [EXIT] ENDSCAN 项目8 程序设计初步 任务8.4 循环程序设计 8.4.3 SCAN-ENDSCAN 语句 命令格式： SCAN [范围] [FOR 条件] [WHILE 条件] 语句序列 [LOOP] [EXIT] ENDSCAN 命令功能：执行语句时，记录指针自动,依次地在当前表的指定范围内满足条件的记录上移动,对每一条记录执行循环体内的语句。 项目8 程序设计初步 任务8.4 循环程序设计 例9： 统计XSCJ.DBF中英语成绩及格的男、女生人数。 OPEN DATABASE XSQK STORE 0 TO M，N SCAN FOR 英语=60 IF 性别=“男” M=M+1 ELSE N=N+1 ENDIF ENDSCAN CLEAR ?“英语及格的男生人数：”,M ?“英语及格的女生人数：”,N CLOSE DATABASE RETURN 项目8 程序设计初步 任务8.4 循环程序设计 例10：求S=1!+2!+3!+…+20! CLEAR S=0 FOR I=1 TO 20 M=1 FOR J=1 TO I M=M*J ENDFOR S=S+M ENDFOR ?“1!+2!+3!+…+20!=”,S 项目8 程序设计初步 任务8.4 循环程序设计 例11：编写程序输出以下图形： CLEAR FOR N=1 TO 10 FOR M=1 TO n ??* ENDFOR ? ENDFOR 项目8 程序设计初步 任务8.4 循环程序设计 〖任务小结〗 在实际应用中，常常需要多次重复执行某些语句。这样的需求适合于用循环语句来处理。在vfp中提供了3种循环语句：do while循环、for循环及scan循环。 项目8 程序设计初步 任务8.5 子程序、过程与自定义函数设计 〖任务描述〗 程序设计时，常常有些运算和处理程序是相同的，只是每次以不同的参数参与运行。为了节省时间和存储空间，使人们能够共享一些公共的程序段，往往将重复出现的或者能够单独使用的程序写成程序段。它可以独立存在，可以被其它程序调用。这就是子程序。 〖技能目标〗 （1）掌握自定义函数和过程文件的定义、调用； （2）掌握子程序或函数时数据传递； （3）在结构程序设计中灵活使用过程与自定义函数； 〖任务分析〗 在Visual FoxPro 6.0中，子程序与主程序基本上相同，用同样的方法建立，以同样的文件格式存放，具有相同的扩展名，唯一不同的是，在子程序的最后必须加一条返回语句。主程序的末尾放不放返回语句都没有关系，执行完最后一句都是返回到命令窗口，如果在主程序的末尾加上返回语句，它就可以作为一个子程序被其它程序调用了。 项目8 程序设计初步 任务8.5 子程序、过程与自定义函数设计 例12：用子程序调用的方法计算m!/(n!(m-n)!) 计算机阶乘的任务由子程序来完成，程序如下： *l812.prg STORE 1 TO l,F DO WHILE L=X F=F*L L=L+1 ENDDO X=F RETURN 项目8 程序设计初步 任务8.5 子程序、过程与自定义函数设计 主程序需要调用三次子程序才能完成，程序如下 *l8-12.prg CLEAR INPUT 请入M的值： TO M INPUT 请入N的值： TO N X=M DO l812 C=X X=N DO l812 D=X X=M-N DO l812 ?m!/(n!(m-n)!)的值为,C/(D*X) 项目8 程序设计初步 任务8.5 子程序、过程与自定义函数设计 8.5.2过程文件的建立与使用 一个应用程序往往由若干个子程序组成