06FoxPro程序设计基础.ppt

《06FoxPro程序设计基础.ppt》由会员分享，可在线阅读，更多相关《06FoxPro程序设计基础.ppt（31页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、1江西财经大学信息管理学院数据库应用课程组2007例子：排序(4)*输出排序后的结果for i=1 to n?A(i)nextreturn2江西财经大学信息管理学院数据库应用课程组20076.6 Visual FoxPro程序调试方法 n详细内容见书6.6节6.2 结构化程序设计基础结构化程序设计基础6.2.1 程序设计过程程序设计过程见课本137页图6.56.2.2 算法算法一、算法：是指解决某个问题的一种逻辑方案，即解决某个问题而采取的确定的有限的处理步骤，它可以和具体的计算机语言完全脱离。算法应具有以下特性：1.有限性2.确定性3.可行性6.2.3 程序流程图及示例程序流程图及示例一、A

2、NSI流程图ANSI流程图的基本符号：开始/结束框处理框输入/输出框子程序或过程连接符ABCPABTFPATFPAFT顺序结构：选择分支：循环结构：开关分支：二、N-S图ABCPTFABPAPTFA三种基本程序结构流程图表示方法顺序结构：选择分支：循环结构：开关分支：用流程图表示以下算法：用流程图表示以下算法：输入两个实数，按代数值由小到大次序输出这两个数。输入两个实数，按代数值由小到大次序输出这两个数。2、输入三个整数分别到变量a、b、c，按降序降序输出这三个数问题：问题：如果是4个、5个、数之间的比较呢？分别有 4！=24、5！=120、种情况！a,b,ca,c,bc,a,bFbcTFac

3、TTa,b,cFabb,a,cc,b,ab,c,aFacTFcbTa,b,cTFaba bTFaca cTFbcb ca,b,c 开始N 0 ,S 0N100S S+NN N+1输出S结束TF直到型循环3、求、求123100之和。之和。4。对于一元二次方程 AX*X+BX+C=0 有实根输出实根，无实根输出“无解”。4 4、输入一个百分制成绩、输入一个百分制成绩到变量到变量x x，输出对应的等输出对应的等级级A,B,C,DA,B,C,D或或E E。思考以下问题：思考以下问题：x100 x100 或或 x0?x=90yFx=80TFx=70Fx=60Fy=Ay=By=Cy=Dy=ETTT改进后的

4、流程图为：开始x结束x=90yFx=80TFx=70Fx=60Fy=Ay=By=Cy=Dy=ETTTx100|x0FTy=O90,10080,90)70,80)60,70)0,60)某单位有某单位有50位职工，要求统计单位职工工资超过位职工，要求统计单位职工工资超过500元的元的职工人数。职工人数。6.3 Visual FoxPro程序的控制语句结构程序的控制语句结构6.3.1顺序结构程序顺序结构程序顺序结构程序就是程序的执行按照语句的先后顺序逐条执行。顺序结构是程序结构形式中最基本、最普遍、也是最简单的结构形式，同时又是组成其它复杂程序的基础。命令格式：IF ELSE ENDIF命令功能：根

5、据条件表达式的值来决定执行语句组还是语句组6.3.2 分支结构程序PABTFPTFAB一、双重分支注意事项：条件表达式为合法的且能计算出逻辑值的式子；命令执行时，系统依次查询每一个CASE后的条件表达式，其逻辑值为“真”时，执行该条件表达式后的语句组，执行完后，跳至ENDCASE后；系统只执行最先满足条件的语句组；如果所有条件表达式都不满足时，若存在语句OTHERWISE，则执行其后的语句组。命令格式：DO CASE CASE CASE CASE OTHERWISE ENDCASE二、多重分支命令格式（情形一）：IF ELSE IF ELSE ENDIFENDIF注意事项：每层的IF，ELSE

6、和ENDIF必须一一对应；书写格式要按嵌套层次逐次缩进，使程序结构清晰，便于阅读和维护。命令格式（情形二）：IF IF ELSE ENDIFELSE ENDIF命令格式（情形三）：IF IF ELSE ENDIFELSE IF ELSE ENDIFENDIF三、多重分支6.3.3 循环结构程序循环结构程序一、DO WHILE循环格式：DO WHILE ENDDOPAFTPA二、循环结构中的LOOP和EXIT命令在循环体中使用LOOP和EXIT必须放在分支结构中。LOOP的功能是终止本次循环的执行，返回到循环起始句，再判断循环条件是否为真，以决定是否继续执行下一次循环。EXIT的功能是退出循环，

7、执行循环语句后面的语句。例:输入一个大于1的正整数，判断该数是否为素数。所谓素数是指它除了被1和它本身整除外不再被其它整数整除。（数学家已经证明了，在判断素数时，并不需要一直判断到该数减1，而只需要判断到该数的平方根即可）set talk offset talk offinput input 请输入一个大于请输入一个大于1 1的整数的整数:to numto numm=int(sqrt(num)m=int(sqrt(num)i=2i=2do while i=mdo while imif im?输入的是一个素数。输入的是一个素数。elseelse?输入的不是一个素数。输入的不是一个素数。endif

8、endifreturnreturnn三、FOR 条件循环n命令格式：n FOR=TO STEP n n LOOPn n EXITn n ENDFOR/NEXT使用方法：为循环控制变量的初始值；为循环控制变量的终了值；每循环一次，控制变量的值都变化一次（加上）；的值可正可负，也可缺省，未指定步长时，默认为；当循环一次后，若按步长改变后循环控制变量的值超过，则退出 FOR ENDFOR/NEXT 循环；LOOP和EXIT为可选项，作用同 DO WHILE ENDDO 中的一样；ENDFOR与NEXT等价；同样允许使用嵌套循环。五、循环的嵌套循环体内又嵌套循环的情况称为多重循环或嵌套循环。6.3.4

9、 程序设计举例程序设计举例【例】例】在屏幕上输出如下图案：第10行第30列分析：分析：第第 I I 行输出的字符行输出的字符数为数为 2*2*I-1I-1 个，在个，在屏幕上的位置是第屏幕上的位置是第 9+I 9+I 行。行。第第 I I 行第行第 1 1 个字个字符的位置在符的位置在 30-30-I+1I+1 列。列。第第 I I 行第行第 J J 个字个字符的位置在符的位置在 30-30-I+JI+J 列。列。J=1J=1I=1I=1在在9+9+I I行行30-30-I+JI+J列列输出字符输出字符“*”J=J+1J=J+1F FJ=2*I-1J=2*I-1T TI=I+1I=I+1I=5

10、I=5F FT TENDSTARTSET TALK OFFCLEARI=1DO WHILE I=5ENDDORETURN J=1J=1I=1I=1在在9+9+I I行行30-30-I+JI+J列列输出字符输出字符“*”J=J+1J=J+1F FJ=2*N-1J=2*N-1T TI=I+1I=I+1I=5I=5F FT TENDSTART J=1 DO WHILE J=2*I-1 ENDDO I=I+19+I,30-I+J SAY*J=J+16.4 数组的应用数组的应用数组是按一定顺序排列的一组内存变量，数组中的各个变量称为数组元素，数组元素用数组名以及该元素在数组中排列位置的下标一起表示。二、

11、数组元素的赋值二、数组元素的赋值 语句格式（）：语句格式（）：STORE表达式表达式TO 数组名数组名 命令功能：该命令将表达式的值赋给命令功能：该命令将表达式的值赋给指定的数组中的每指定的数组中的每个元素。个元素。命令格式（）：命令格式（）：STORE表达式表达式TO 数组名（下标，数组名（下标，下下标标2.下标下标n)命令功能：该命令将表达命令功能：该命令将表达 式的值式的值赋给数组中的某个赋给数组中的某个 元素元素。例：向长度为20的一维数组中随机地输入20个数，然后对数组元素按由大到小顺序降序排列，最后再输出排列后的数组。12168242481612248482第1遍共需N-1次比较假

12、设共有N个待排序的数（N=6）第2遍162412488共需N-2次比较第3遍16244812共需N-3次比较第4遍244816共需N-4次比较第5遍4824共需N-5次比较结 论：有 N 个待排序的数共需比较 N-1 遍 第 i 遍需要比较 N-i 次6.程序的模块化方法程序的模块化方法一个实际的系统由许多功能模块所组成。相应地，一个实际的应用程序一个实际的系统由许多功能模块所组成。相应地，一个实际的应用程序系统应由根据每一个功能模块编制的程序或过程组成。模块间从上到下逐系统应由根据每一个功能模块编制的程序或过程组成。模块间从上到下逐级调用，然后从下到上逐级返回，相应地，程序也从上到下逐级调用

13、，然级调用，然后从下到上逐级返回，相应地，程序也从上到下逐级调用，然后从下到上逐级返回。后从下到上逐级返回。通常，被调用的程序称为通常，被调用的程序称为子程序子程序，调用程序的程序称为，调用程序的程序称为主程序主程序，或者说，程序之间存在调用关系，被调用者称为子程序，调用者称为或者说，程序之间存在调用关系，被调用者称为子程序，调用者称为主程序。可见，主程序。可见，主程序与子程序的概念是相对的主程序与子程序的概念是相对的，当子程序又调用下，当子程序又调用下一级子程序时，则此子程序相对于下一级子程序便是主程序了，而对一级子程序时，则此子程序相对于下一级子程序便是主程序了，而对于调用它的主程序而言，

14、它仍然是子程序。因此，于调用它的主程序而言，它仍然是子程序。因此，“主主”和和“子子”要要看相对于看相对于“谁谁”而言。而言。对于一个用对于一个用FoxPro开发的应用系统，通常只有一个主程序，其余开发的应用系统，通常只有一个主程序，其余均为分级调用的子程序。在均为分级调用的子程序。在FoxPro中，中，子程序与主程序一样，均为程子程序与主程序一样，均为程序文件（序文件（.PRG文件）文件），都可由，都可由MODIFY COMMAND命令来建立。子命令来建立。子程序的最后一条语句通常为程序的最后一条语句通常为RETURN或或RETRY命令，以便当子程序命令，以便当子程序执行结束后能将控制转到调

15、用它的上级程序处。执行结束后能将控制转到调用它的上级程序处。子子 程序的嵌套程序的嵌套DO sub1DO sub2RETURNDO sub11DO sub21RETURNDO sub11RETURNRETURNRETURN TO MASTER通常，被调用的程序称为通常，被调用的程序称为子程序子程序，调用程序的程序称为，调用程序的程序称为主程序主程序，或者说，程序之间存在调用关系，被调用者称，或者说，程序之间存在调用关系，被调用者称为子程序，调用者称为主程序。可见，为子程序，调用者称为主程序。可见，主程序与子程序主程序与子程序的概念是相对的的概念是相对的，当子程序又调用下一级子程序时，则，当子程

16、序又调用下一级子程序时，则此子程序相对于下一级子程序便是主程序了，而对于调此子程序相对于下一级子程序便是主程序了，而对于调用它的主程序而言，它仍然是子程序。因此，用它的主程序而言，它仍然是子程序。因此，“主主”和和“子子”要看相对于要看相对于“谁谁”而言。而言。对于一个用对于一个用VF开发的应用系统，通常只有一个主程开发的应用系统，通常只有一个主程序，其余均为分级调用的子程序。在序，其余均为分级调用的子程序。在FoxPro中，中，子程序子程序与主程序一样，均为程序文件（与主程序一样，均为程序文件（.PRG文件）文件），都可由，都可由MODIFY COMMAND命令来建立。子程序的最后一条命令来建立。子程序的最后一条语句通常为语句通常为RETURN或或RETRY命令，以便当子程序执行命令，以便当子程序执行结束后能将控制转到调用它的上级程序处。结束后能将控制转到调用它的上级程序处。