VFO程序设计复习

1、实用标准文案 VFO程序设计复习 1程序设计概述 一、程序的概念概念：具有一定功能的计算机能执行的指令的集合。 例1：显示表XSDA可编写成如下命令序 SET DEFA TO F:表 USE XSDA LIST CLOSE ALL 例2：求a=3,b=2,c=5 求a+b-c=? 程序test.prg 代码如下： a=3 b=2 c=5 x=a+b-c ?x 二、常见的程序设计方法1、 结构化程序设计（模块化） 结构化程序设计是一个面向过程的概念。把一个实际问题分为两部分，即数据和过程。通过动态的程序执行过程来对静态的数据进行处理，得出正确的结果。由VFP命令和程序设计命令的组合，需编制和调试

2、； 2、 面向对象的程序设计 精彩文档实用标准文案 3、结构化程序设计它是面向过程程序设计的另一种描述，面向过程程序设计有如下特点： 整个程序分为若干个模块，模块之间相衔接，且相对独立。第个模块只有一个入口和一个出口。第个模块都能单独执行，且在有限时间内执行完。采用自顶向下、逐步求精的方法。 三、程序三大基本结构1、顺序结构：执行是按命令出现的先后顺序执行。 2、分支结构：按给定的条件成立与否来决定程序起向，分单向选择分支、双向选择分支和多路分支。有以下两种 IF 语句 DO CASE ENDIF ENDCASE 3、循环结构：程序的执行发生了自下而上的往复，某一程序段将重复执行。 有以下三种

3、 Do While For SCAN ENDSCAN ENDFOR ENDDO 四、算法和流程图 解决某一问题的方法与步骤。见教材例。算法：图）S图和NANSI流程图：算法的描述，除用自然语言描述外，计算机领域常用流程图（ 描述。见教材例。 例如：乐山到成都怎么去？x +bx+c=0, 、1 解一元二次方程的算法。Ax求2SQRT(X ) 到 1-100 2、求出之间的质数。X / = 2 2程序的建立和执行 PRG一、程序的扩展名： 精彩文档实用标准文案 实质：文本文件（ASCII编码）执行时，会产生编译文件FXP后让计算机执行。 二、程序文件的建立和编辑 1、命令方式： MODI COMM

4、 程序名.PRG （.PRG可省） 2、菜单方式； 文件 = 新建 = 程序 3、项目管理器中建立的方法： 建立项目管理器 = 新建程序 4、其他方法： 其它可编辑文本的软件: 记事本写字板WORD其它程序编辑器 注意： 希望编写程序之前事先设置好默认目录（set defa to ）然后我们编写的程序就会 自动存储在那个目录中。例如：set defa to d:ks modi comm Test (相当于是：modi comm D:kstest.prg) 三、 程序的执行 1、命令方式 路径程序名 命令格式：DO 盘符 、菜单方式：2 -“运行”命令“程序”菜单 在“运行”窗口中输入被运行的程

5、序文件名，即可运行程序。 程序的分类：数学类程序、涉及到表操作的程序四、VFP 如果本程序是涉及到表操作的程序，那么： 精彩文档实用标准文案 1、在程序开始部分可以先加语句CLEAR 和 CLOSE ALL 2、程序最后可以使用命令CLOSE ALL 3、然后使用RETURN或CANCEL或QUIT 例：找出并显示所有三好生 CLEAR CLOSE ALL USE 学生 LOCATE FOR 三好生 DO WHILE NOT EOF() DISP CONTINUE ENDDO CLOSE ALL RETUREN 3顺序程序设计与常用语句 一、程序设计中的常用语句1、输入命令 （1）赋值命令 命

6、令一： 内存变量 表达式 TO = 内存变量 精彩文档实用标准文案 （2）交互式输入命令（注意：输入数据是在程序执行的时候 ） INPUT 提示信息 TO ACCEPT 提示信息 TO WAIT 提示信息 TO TIMEOUT .它会在屏幕上原样输出型, : 提示信息是C说明WAIT命令的功能：暂停程序执行，显示提示信息等待用户按键。 Wait命令中 输入的只能是一个字符（C型）。 Input 适用于全部类型内存变量，输入时需要加定界符 Accept只适用于C型，并且C型不加定界符 注意：Input和accept在编写程序时语句都一样，只是执行程序（do）时，主屏幕上要求输入的类型和格式不同。

7、 例1：输入a、b、c的值，对2ax+b=c 求 x的值。 Clear Input “现在计算2ax+b=c，请输入a的值：” to a Input “请输入b的值：” to b Input “请输入c的值：” to c x=(c-b)/(2*a) ?x的值为：,x 有何区别的值为：+str(x,3)? &比较使用xreturn 中的指定记录2例、查找学生.dbfclear close all use 学生 精彩文档实用标准文案 list accept “请输入您想查找的姓名: ” to xm Locate for 姓名=XM &或命令 SEEK XM if found() DISP else

8、 ?对不起，没有找到此人 endif list close all Return 思考：如果accept换成input，输入的时候该怎么输入？ 中的指定记录3、删除学生.dbf例clear close all use 学生 list input “请输入您想删除的记录号: ” to x dele reco x wait “你想彻底删除这条记录吗？(y/n)” to ask if ask=Y or ask=y pack 精彩文档实用标准文案 endif list close all 注意区分交换方式和程序方式：有的命令可以在两种状态下执行（例如：刚才的输入命令），但有些命令只能在程序方式下执行（

9、例如：循环语句和分支语句） ）格式输入命令（3格式一： 行,列 say 提示信息 格式二： 行,列 say 提示信息 get 变量 READ 格式三： 行,列 say 提示信息 get 变量 default常量 功能：在屏幕指定的坐标位置上显示提示信息，然后通过READ命令激活GET子句的变量值。 说明：GET后的变量可以是内存变量或当前打开的数据文件中的字段变量，若是内存变量，应在执行该命令前对内存变量赋值，否则就必须使用default参数赋初值。 输入的值类型应该与初值类型相同。READ命令与GET命令必须配合使用。多个GET 则表示只显示内容，不输入值。命令配合。如果没有readREAD

10、命令可以只用一个例1：编写程序完成在学生.DBF中追加记录 CLEAR USE 学生 精彩文档实用标准文案 APPEND BLANK 5,20 SAY “学号” GET 学号 5,40 SAY “姓名” GET 姓名 7,20 SAY “性别” GET 性别 7,40 SAY “出生年月” GET 出生年月 9,20 SAY “入校总分” GET 入校总分 9,40 SAY “三好生” GET 三好生 READ CLEAR LIST CLOSE ALLRETURN 例2：编程求长方形的面积。 CLEAR X=0 &X为内存变量，赋初值 Y=0 1,5 SAY “计算长方形的面积” 2,5 SA

11、Y “输入长方形的长：” GET X &第2行5列显示提示信息并等待输入 3,5 SAY “输入长方形的宽：” GET Y &第3行5列显示提示信息并等待输入 READ &从键盘输入X，Y的值 S=X*Y &计算长方形的面积 ? “长方形的面积：”,S &显示长方形的面积 精彩文档实用标准文案 CANCEL 思考题1:如将上述例1程序改为按照指定学号来修改记录应该怎样做?(答案见课件后)3、输出命令 ：非格式输出命令 ?和？ ：格式化输出命令 行,列 say 表达式 说明：行和列都可以是表达式，常常可以使用函数ROW( ) 和 COL( ) ROW( )表示返回当前行的行号 COL( )表示返

12、回当前列的列号例1： N=1 CH=“VF程序设计” N,26 SAY SPACE(60) N+1,26 SAY CH 例2：循环输入值 clear dime xh(10) store 0 to xh 10,10 say 请输入数字: get xh(1) i=2 do while i=10 row()+1,10 say 请输入数字: get xh(i) i=i+1 精彩文档实用标准文案 enddo read list memo like xh 4、其他程序运行命令 （1）终止程序执行命令 CANCEL 、QUIT 和 RETURN QUIT: 退出程序运行并且退出 Visual Foxpro

13、CANCEL : 退出程序运行 RETURN: 返回上级程序调用点，如果是主程序就表示退出程序。主程序可缺省此命令返回（结束），即默认使用了return 注意：上述命令执行完后都会自动clear memory。但是如果有数据库和表打开不会自动关闭，所以使用数据库和表后在程序结束时我们常常需要加命令： close all ）清屏命令（2CLEAR （3）注释命令（ NOTE 、* 和 &） 注释的含义：程序员对程序语句功能的说明，执行程序的时候不执行注释中的内容，注释只起到一个对语句说明的目的。一般复杂程序中应有30%以上的注释。 （4）TEXT语句：原样输出（参考书143例4.15） （5）系

14、统设置命令 set on/off 或者是 set to 1、设置会话状态 SET TALK ON/OFF 精彩文档实用标准文案 2、设置跟踪状态 SET ECHO ON/OFF 3、设置打印状态 SET PRINTER ON/OFF 、设置定向输出状态4SET DEVICE TO SCREEN 5、设置精确比较状态 SET EXACT TO ON/OFF 6、设置日期格式 SET DATE ANSI 7、色绘制系统提供的保护状态 SET SAFETY ON/OFF 8、设置删除记录标记状态（掌握） SET DELETED ON/OFF 功能：屏蔽或处理有删除标记的记录 说明：在命令格式中选择O

15、N时，各命令当不对有删除标记的记录进行操作，但索引除外。系统默认值为OFF :1答案思考题CLEAR USE 学生 ?呐尠请输入需修改记录的学号： TO NUM LOCATE FOR 学号=NUM 精彩文档实用标准文案 5,20 SAY 学号 GET 学号 5,40 SAY 姓名 GET 姓名 7,20 SAY 性别 GET 性别 7,40 SAY 出生年月 GET 出生年月 9,20 SAY 入校总分 GET 入校总分 9,40 SAY 三好生 GET 三好生 READ CLEAR LIST CLOSE ALL RETURN 4顺序结构和分支结构 一、顺序结构例1：求圆的面积（公式S=R）

16、2CLEAR INPUT “请输入半径R的值：” TO R S=3.1416*R*R ？”圆面积为：” ，S CANCEL 二、分支结构（选择结构） 1、IF语句 （1）单向选择： 双向选择： 精彩文档实用标准文案 IF 条件 IF 条件 执行语句 执行语句 ENDIF ELSE 执行语句 ENDIF 单向选择分支(2) 例如：求任意一个数值的绝对值CLEAR SET TALK OFF N TO ”INPUT “请输入数值： N=a AND STR1=A AND STR1=Z 精彩文档实用标准文案 ?SPACE(40)+STR1 ELSE ?您输入的不是英文字母 ENDIF ENDIF 2、多

17、向选择 DO CASE CASE CASE OTHERWISE &其它情况 命令序列B CASE 精彩文档实用标准文案 ?”A 大于B” AB CASE ?”A 小于B” CASE A=B ？”A等于B” ENDCASE 例2：邮局负责邮购小物品规则如下：50公里及以内收取额外金额5元，50-100公里收取10元，100-200公里收取20元，200-500公里收取40元，其余一律收取50元。 CLEAR INPUT “请输入您想邮购物品的路程（公里数）： ” TO X DO CASE CASE X50 AND X100 AND X200 AND X=500 Y=40 OTHERWISE Y=

18、50 ENDCASE 精彩文档实用标准文案 ?对不起, 您需要付款: ,Y,元人民币 5循环程序设计 、条件循环1格式一：DO WHILE 条件 命令序列 ENDDO 格式二： DO WHILE 条件 语句序列 LOOP 语句序列 EXIT 语句序列 ENDDO 要退出循环，需要条件为假的时候（条件=.F.时） 说明：（1） LOOP和EXIT 命令一般放在IF条件中，也可以出现在循环体内的任何位置。若执行循环体时遇到LOOP命令，则直接返回执行DO命令，测试条件以决定是否继续循环。 后面的命令。ENDDO若遇到EXIT命令，则不执行下面的命令序列，直接跳出循环，执行（2）条件表达式的值确定了

19、循环是否继续，当条件表达式的值始终为真（即永真循环），则应使用EXIT命令来控制循环结束 例1：将字符“欢迎进入乐山师范学院”从屏幕的顶部移至底部 CLEAR CH=“欢迎进入乐山师范学院”N=1 精彩文档实用标准文案 DO WHILE N=23 N,26 SAY SPACE(60) N+1,26 SAY CH &等待0.2秒 T=INKEY(0.2) N=N+1 ENDDO RETURN 注：INKEY （） 功能:等待用户按键或鼠标输入,等待时间由数值表达式确定(单位为秒)返回由按键而产生的一个整数值. 例2：实现显示出全部的男生 CLEAR CLOSE ALL USE 学生 DO WHI

20、LE NOT EOF() IF 性别=男 DISP ENDIF SKIP ENDDO CLOSE ALL 循环实例LOOP 精彩文档实用标准文案 例1： I=0 DO WHILE I0 IF Y0 EXIT QUIT ENDIF ENDIF ENDDO ENDDO 如果Y0，则退出本循环 如果Y0，则退出程序，退出VF DO WHILE .T. DO WHILE .T. IF Y0 IF Y0 RETURN CANCEL ENDIF ENDIF ENDDO ENDDO 如果Y0，则退出程序返回上层 如果Y0，则退出程序，回到VF中上述语句LOOP、EXIT、QUIT、RETURN、CANCEL

21、等也可以在后面讲的其它循环语句中使用。 例1：通过键盘输入三角形的边长，若边长正确，立即在屏幕上显示三角形的面积，若边长不正确，重新输入边长，若输入的边长中任意一边为0则程序立即结束。 CLEAR ?”现在计算三角型的面积，如果想退出程序请输入0。” DO WHILE .T. 精彩文档实用标准文案 INPUT “请输入边长a：” TO A INPUT “请输入边长b：” TO B INPUT “请输入边长 c：” TO C IF A=0 OR B=0 OR C=0 ?结束 RETURN ENDIF IF A+B=C OR A+C=B OR B+C=A ?错误的三角型，请重新输入！ LOOP E

22、NDIF S=(A+B+C)/2 AREA=SQRT(S*(S-A)*(S-B)*(S-C) ?该三角型的面积是： ,area ENDDO 例2：有下列表：book(书名 C(20),作者 C(8),出版日期 D,内容简介 M)编写程序：查询关于 foxpro 的图书. USE BOOK LOCATE FOR foxpro $ 书名 IF ! FOUND() ?没有关于foxpro的图书 ELSE DO WHILE ! EOF() 精彩文档实用标准文案 CLEAR ?书名,作者,出版日期 ?内容介绍 WAIT “是否继续查找?(Y/N)” TO M IF M$nN EXIT ENDIF CON

23、TINUE ENDDO ?”全部显示完成” ENDIF 2、计数循环 FOR 循环变量=初值 TO 终值 STEP 步长 语句序列 ENDFOR 说明: (1)当省略步长值时,系统默认步长值为1.当初值小于终止值时,步长值为正值,当初值大于终值时,步长值为负值.步长值不能为0,否则会造成死循环. (2)可在循环体内嵌入LOOP和EXIT命令,功能和用法与条件循环中该命令的用法相同. 例1：求1100的和 SUM=0 FOR n=1 TO 100 SUM=SUM+n 精彩文档实用标准文案 ENDFOR ?1100的总和为：,SUM 使用DO WHILE 实现： SUM=0 n=1 DO WHIL

24、E n INT(SQRT(I) ?I,是质数 ENDIF 特别: 2是个质数. 综上所叙述: 完成程序为: CLEAR ?2是质数 FOR I=3 TO 10 FOR J=2 TO INT(SQRT(I) 精彩文档实用标准文案 IF MOD(I,J)=0 EXIT ENDIF ENDFOR IF J INT(SQRT(I) ?I,是质数 ENDIF ENDFOR 3、库文件扫描循环 SCAN 范围 FOR/WHILE 条件 语句序列 ENDSCAN 例1：查询所有入校总分在570以上的人. CLEAR CLOSE ALL USE 学生 SCAN FOR 入校总分570 DISP ENDSCAN

25、 CLOSE ALL 例2：用户可以循环输入并查找入校总分,直到输入的是负数就退出. CLEAR 精彩文档实用标准文案 CLOSE ALL USE 学生 INPUT “请输入你要查找的入校总分,输入负数则退出: ” TO X DO WHILE X=0 SCAN FOR 入校总分=X DISP ENDSCAN INPUT “请输入你要查找的入校总分: ” TO X ENDDO 例3：编写程序，对于学生.dbf能够在程序末尾循环插入新记录 （掌握） CLEAR CLOSE ALL USE 学生 DO WHILE .T. APPE BLANK 5,20 SAY 学号 GET 学号 5,40 SAY

26、姓名 GET 姓名 7,20 SAY 性别 GET 性别 7,30 SAY 出生年月 GET 出生年月 9,20 SAY 入校总分 GET 入校总分 READ 你想继续插入新记录吗WAIT ?(Y/N) : TO X 精彩文档实用标准文案 IF X=N OR X=n EXIT ENDIF CLEAR ENDDO CLEAR LIST CLOSE ALL 例4：编写程序，该程序能够顺序修改表学生.DBF中的所有数据。（掌握）（要求：必须 say . get . 进行数据修改） 使用 行,列CLEAR CLOSE ALL USE 学生 DO WHILE .T. if eof() exit endi

27、f 5,20 SAY 学号 GET 学号 姓名 姓名5,40 SAY GET 性别7,20 SAY GET 性别 GET 出生年月 出生年月7,30 SAY 入校总分入校总分9,20 SAY GET 精彩文档实用标准文案 READ WAIT 你想继续修改记录吗?(Y/N) : TO X IF X=N OR X=n EXIT ENDIF CLEAR SKIP ENDDO CLEAR LIST CLOSE ALL 4、多重循环 （ ）n!=1*2*3*4.*(n-1)*n 的值，求1+1/2!+1/3!+1/4!+.+1/n! 阶乘 ：输入例1nCLEAR SUM=0 MUL=1 TO N 的值：

28、义啐?请输入n FOR i=1 TO N FOR j=1 TO i MUL=MUL*J ENDFOR SUM= SUM+1/MUL 精彩文档实用标准文案 ENDFOR ?求得的总和为: ,SUM 例2：打印九九表 方法一：CLEAR FOR A=1 T0 9 FOR B=1 TO A T=A*B ?STR(B,1)+“*”+STR(A,1)+“=”+STR(T,2)+“ ”ENDFOR ? ” “ENDFOR RETURN CLEAR 方法二： 1,1 say * for a=1 to 9 a+1,1say str(a,1) next for b=1 to 9 1,b*3 say str(b,

29、1) for c=1 to b p=c*b b+1,c*3 say str(p,2) 精彩文档 实用标准文案 next next cancel ：图形打印例3 CLEAR for a=1 to 5 外内for c=1 to a 循循环环 ?“* next ? next Cancel 说明：打印图形时，一般外循环控制打印行数，内循环控制每一行打印图形个数。 数组的应用6 数组的定义一、 2.) 1,DIMENTION 数组名(数值表达式数组表达式.F. 定义后单元默认值为 二、一维数组 、定义一个一维数组：1.F. 且所有单元默认值为,数组10dime a(10) -定义一个 、赋值：2 精彩文

30、档实用标准文案 例如： a= a(1)=20 a(3)=2002/09/23 a(7)=.T. . 循环赋值：dime a(10) i=1 do while ia(i+1) t=a(i+1) a(i+1)=a(j) a(j)=t endif endfor endfor list memo like a 例2:将1、2、3、10顺序输入一维数组，实现顺序输出和逆序输出。DIME A（10） FOR I=1 TO 10 A（I）=I 精彩文档实用标准文案 ENDFOR FOR I=1 TO 10 ？A（I） ENDFOR FOR J=10 TO 1 STEP 1 ？A（J） ENDFOR 例3：排

31、序问题 (要求:不一定能编写,但是重点地方能填空,基本方法要能理解) 输入5 个数，将它们按照从大到小的顺序排列 算法： （软件技术支持 第263页） 稳定的算法： 插入法排序（将一个数据插入到已经排列好的序列中） 冒泡排序（比较每次产生最大数） 归并排序（两两合并 ） 不稳定的算法：（相同数据位置可能交换） 选择排序（通过交换位置，最小的放在第一，次小的第二） 实现算法： 冒泡排序 n个数要比较n-1趟 (2) 每趟要比较的次数为 : n-趟数 (3)每次比较: 如果当前数 a(j)大于后一个数 a(j+1) 那么就交换,否则不交换 clear dime a(5) ?输入5个数: 精彩文档实

32、用标准文案 for i=1 to 5 湩異?请输入: to a(i) endfor for i=1 to 4 & 外循环是行(趟数), 内循环是列(比较次数) for j=1 to 5-I if a(j)a(j+1) t=a(j+1) a(j+1)=a(j) a(j)=t endif endfor endfor FOR I=1 TO 5 ?A(I) ENDFOR 对N个数排序（从小到大） clear 椠灮瑵尠请问你想对多少个数进行排序？ to n dime a(n) ?请输入,n,个数: for i=1 to n 湩異?请输入: to a(i) 精彩文档实用标准文案 endfor for i=

33、1 to n-1 for j=1 to n-i if a(j)a(j+1) t=a(j+1) a(j+1)=a(j) a(j)=t endif endfor endfor 算法二：每次比较将当前数和最后一个数据比 clear input “请问你想对多少个数进行排序？ ” to n dime a(n) : ,n,个数?请输入 for i=1 to n : to a(i) 请输入湩異?endfor for i=1 to n-1 for j=1 to n-i if a(j)a(n-i+1) t= a(n-i+1) a(n-i+1)=a(j) 精彩文档实用标准文案 a(j)=t endif endf

34、or endfor list memo like a 算法三: clear input “请问你想对多少个数进行排序？ ”to n dime a(n) : 请输入,n,个数? for i=1 to n : to a(i) 湩異?请输入endfor for i=1 to n-1 for j=1 to n-i if a(j)a(n-i+1) t= a(n-i+1) a(n-i+1)=a(j) a(j)=t endif endfor endfor 精彩文档实用标准文案 list memo like a 7子程序、过程和自定义函数 一、子程序 1.子程序的概念 2.子程序的建立和调用 3.子程序的嵌套

35、 a1.prg a2.prg a3.prg ?* ? ?$ do a2 do a3 return ?# ?999 return 思考：以上程序运行后结果是什么? * $ 999 # 说明：1、 如果将a2.prg或者a3.prg的return语句改成cancel,那么程序当执行到cancel 精彩文档实用标准文案 的时候就会结束，不返回 2、如果将a3.prg的return语句改成return to master想想结果会怎么样呢？ 请先看看书 P169页 二、变量的三种类型 1、全局变量（定义：用public命令或在命令窗口中赋值的变量） 有效范围：主程序和所有子程序 2、私有变量（定义：p

36、rivate）或变量屏蔽 有效范围：当前程序,在子程序中修改与主程序同名的变量，只要返回主程序，原来同名变量中的值不变 3、局部变量（可用LOCAL来定义，定义好后默认值为.F.，或是在当前程序中赋值的变量） 有效范围：当前程序及当前程序以下的所有子程序 例：主程序MAIN1.PRG CLEAR public i,j store 1 to i,j,k do 程序2 尿主程序的输出结果尺 ?I=+STR(I,2)+ J=+STR(J,2)+ K=+STR(K,2) Cancel 子程序：CLEAR PRIVATE J,K I=I*2 精彩文档实用标准文案 J=I+1 K=J+1 尿子程序的输出结

37、果尺 ?I=+STR(I,2)+ J=+STR(J,2)+ K=+STR(K,2) RETURN 例2： main.prg sc.prg xb.prg private m Clear y=x+10 Input “请输入x的值: ” to x m=143 m=y*10 do xb z=int(m/100) Private y Public z z=z+m return Do sc return y=sqrt(x)+sqrt(z) ?y return 三、参数传递（教材172功能和说明） 主程序中：命令： do with 实参 子程序中：parameters 形参 数据通过return语句传回 注意：变量表和参数表是个数一致的，也相互对应，但是名字可能不一样。 例： 精彩文档实用标准文案 MAIN.PRG P1.PRG X1=1