《vfp程序设计课件7》由会员分享，可在线阅读，更多相关《vfp程序设计课件7（80页珍藏版）》请在金锄头文库上搜索。
1、第9章 结构化程序设计,VFP提供一种程序执行方式，这种方式就是预先把需要执行的多条命令按一定的结构组成一个有机序列以文件的形式存储在磁盘上，这个文件就称为程序文件，这个序列的设计、编码和调试的过程就是程序设计。,9.1 程序设计基础,9.1.1 程序设计的概念,9.1.2 程序的控制结构 任何复杂的程序都由3种基本控制结构组成。它们是顺序结构、选择结构和循环结构。,图9.1程序的控制结构,9.1.3 结构化程序设计方法 结构化程序设计采用自顶向下、逐步求精和模块化的分析方法。 自顶向下是指对设计的系统要有一个全面的理解，从问题的全局入手，把一个复杂问题分解成若干个相互独立的子问题 。逐步求精
2、是指程序设计的过程是一个渐进的过程，先把一个子问题用一个程序模块来描述，再把每个模块的功能逐步分解细化为一系列的具体步骤 。模块化是结构化程序的重要原则。所谓模块化就是把大程序按照功能分为较小的程序。,9.1.4 程序文件的建立与执行,1命令方式建立或修改程序文件,命令格式： MODIFY COMMAND ? MODIFY.FILE.文件名? 功能：启动VFP提供的文本编辑器来建立或编辑程序文件。,2菜单方式建立编辑程序文件,命令格式： DO 程序文件名 功 能 ： 将程序文件从磁盘调入内存, 编译成.FXP目 标文件后并执行。,3.程序文件的执行,菜单方式：.CANCEL：终止程序运行，清除
3、所有的私有变量，返回命令窗口。 .RETURN：结束程序执行，返回调用它的上级程序，若无上级程序则返回命令窗口。 .QUIT：结束程序执行并退出Visual.FoxPro系统，返回操作系统。,9.2 顺序结构程序,顺序结构是最简单、最基本的一种程序结构。在顺序结构程序中，各命令按照各自出现的先后顺序，依次执行。,9.2.1 程序文件中的辅助命令,一输入类语句,格 式1： STORE 表达式 TO 内存变量名表 格 式2： 内存变量 表达式 功 能：给内存变量赋值。,. 赋值语句,. 交互式语句/键盘输入命令,1. 字符串数据输入命令,格式： ACCEPT TO ,功能：在屏幕上显示提示信息，等
4、待用户从键盘输入，再把输入内容赋值给指定的内存变量。,注：ACCEPT命令只能接受字符型常量，输入时不需加定界符。,键盘输入命令主要用于程序执行过程中原始数据的输入。,例9-1：要求用户从键盘上输入用户名，然后把输入的用户名显示出来。,ACCEPT “请输入用户名：” TO NAME,？NAME,格式：INPUT TO ,2. 数据输入命令,功能：在屏幕上显示提示信息，等待用户从键盘输入，再把输入内容赋值给指定的内存变量。,注：INPUT命令能接受任何类型的表达式： 输入C 型数据时，要使用 或 “ ” 作为定界符； 输入L 型数据时，.T. 和 .F. ，两边的 . 不能省； 输入D 型数据
5、时，要用 或CTOD( ) 将字符串转成日期型变量。,例9-2：求任意两数之和。,INPUT “请输入一个数x：” TO X,？X+Y,INPUT “请输入另一个数y：” TO Y,J=2800 INPUT “输入 J+200 ：” TO A ACCEPT “输入 J+200 ：” TO B ？“A=”，A ? “B=”，B 注：执行时，先后两次输入同样的内容：J+200,例9-3： 给出下列A、B的结果,格式：WAIT TO TIMEOUT ,3. 只能输入一个字符的命令,功能：当程序执行某一处需要暂停时使用此命令。,注：WAIT命令响应速度快，它只接受一个字符，不需用户键入回车键。,* 数
6、据表操作命令菜单 * 打开工作数据表 增加数据表记录 删除数据表记录 修改数据表记录 打印数据表记录 关闭工作数据表,？ “您选择的是第” + CHOICE + “个选项”,WAIT “请选择相应代码：” TO CHOICE,例9-4：,格式： SAY GET RANGE ， READ,4. 格式输入语句,功能：在屏幕指定的坐标位置上显示提示或输入数据。, READ 一般与GET 联合起来用： 当有READ时， GET 的内容可以从键盘上修改； 没有READ时，GET 后的变量只能显示内容，不能修改； 一个READ可以修改它前面的多个GET项的内容，但它可以由CLEARGETS命令隔断。,注：
7、 ：该变量应在其前面定义过,( 赋初值 ) 。, 8, 18 SAY “* 数据表操作命令菜单 *” 9, 18 SAY “ 1.打开工作数据表 ” 10, 18 SAY “ 2. 增加数据表记录 ” 11, 18 SAY “ 3. 删除数据表记录 ” 12, 18 SAY “ 4. 修改数据表记录 ” 13, 18 SAY “ 5. 打印数据表记录 ” 14, 18 SAY “ 6. 关闭工作数据表 ”, 18, 28 SAY “您选择的是:” + LTRIM(STR(CHOICE), 16, 28 SAY “ 请选择相应代码：” GET CHOICE,READ,例9-5：,二输出类语句,1
8、. 非格式输出语句,格式1： ？ 内存变量名表,格式2： ？ 内存变量名表,注：语句1 是在光标所在行的下一行开始显示， 语句2 则是在当前光标位置开始显示。,功 能：显示内存变量、常量或表达式的值。,格式： SAY FUNCTION PICTURE ,2. 格式输出语句,功能：按指定的坐标位置在屏幕上输出表达式的值。,注： 若选用PICTURE、 FUNCTION子句，则按一定的格式输出 ，分别见教材P131的表6.1、6.2。,格式： TEXT ENDTEXT,3. 文本输出语句,功能：在屏幕上原样显示TEXT和ENDTEXT之间的内容。,注： TEXT、ENDTEXT是一条子句，不能省略
9、其中任一条子句。,* 数据表操作命令菜单 * 打开工作数据表 增加数据表记录 删除数据表记录 修改数据表记录 打印数据表记录 关闭工作数据表,？ “您选择的是第” + CHOICE + “个选项”,WAIT “请选择相应代码：” TO CHOICE,例6-6,TEXT,ENDTEXT,三. 设置会话状态语句,语句格式2： SET TALK OFF,功能 语句1：设置会话状态开通。 语句2：设置会话状态关闭。,语句格式1： SET TALK ON,四. 清屏与注释语句,语句格式： CLEAR,1. 清屏语句,功 能 ：清除屏幕上所有显示内容，光标回到屏幕左上角。,2. 注释语句,语句格式2： *
10、 ,注：语句1、2、3 在程序中，系统不执行。,语句格式1： NOTE ,功 能 ： 在程序中加入说明性语句。,语句格式3： & ,五. RETURN命令,注：一般RETURN出现于程序末尾。,格式： RETURN /TO MASTER/TO ,功能 ： 结束一个程序的执行。,六. 终止程序执行语句,语句格式2： QUIT,注: 语句1：在终止程序执行后，返回到VFP命令状态； 语句2：返回到操作系统状态。,语句格式1： CANCEL,功能：终止程序执行，关闭所有打开的命令文件。,顺序结构程序：按语句的先后顺序组织的程序，即把处理过程的各个步骤按执行的先后顺序列出。 其流程图如右图所示。,顺序
11、结构程序设计,A,B,C,N,图中箭头表示程序执行的方向，方框代表不同的可执行语句。,例9-7 变量的初始化和变量的赋值。,SET TALK OFF STORE 0 TO X，Y，Z A=3 B=A+1 C=A*B ? X, Y, Z ? A, B, C SET TALK ON,例9-8 执行以下命令序列，问答问题：,最后显示的值是： 所有职工的平均工资； 所有工资在1000元以上的职工的平均工资； 所有工资在1000元以上的职工人数； 所有职工人数 。,USE zgb SUM 基本工资 FOR 基本工资1000 TO SGZ COPY FOR 基本工资1000 TO GZK2 USE GZK
12、2 num=reccount( ) ave=sgz/num ? ave,在计算机应用的许多场合，要求程序根据不同的条件采用不同的处理方法。如果条件满足，则执行某一些语句；如果条件不满足，则执行另一些语句。这些需要根据判断条件来控制程序走向的程序设计称为选择结构程序设计，又称分支结构程序设计。 Visual FoxPro提供双分支选择语句、多分支选择语句两种选择结构。,9.3 选择结构程序设计,语句格式： IF 条件 语句序列1 ENDIF,9.3.1 双分支选择语句(选择判断语句),.T.,.F.,.Y.,.N.,ELSE 语句序列2,注： (1) IF和ENDIF必须配对使用，而ELSE可选
13、。 (2) IF、ELSE、ENDIF必须各占一行。 (3) 可以为关系表达式、逻辑表达式。 (4)在语句序列1和语句序列2中可以嵌套IF语句。,执行过程： 如果成立，就执行语句序列1； 如果不成立，执行语句序列2。,例 请改用分支结构语句编程计算电费: 不超过50度, 每度0.52元; 超过50度时, 超出部分每度0.75元。,SET TALK OFF INPUT “请输入所用电量:“ TO DL DF=IIF（DL=50，0.52*DL，0.52*50+0.75*(DL-50)） ? “应缴电费为:” + LTRIM(STR(DF,10,2) + “元“ SET TALK ON RETUR
14、N,SET TALK OFF INPUT “请输入行李重量:“ TO W IF 1 YF=0.22*W ELSE YF= 0.22*40 + 1 ENDIF ? “应交托运费为:“+LTRIM(STR(YF,10,2)+“元“ SET TALK ON RETURN,例 火车托运行李: 每人不超过40公斤,每公斤0.22元；超过40公斤时, 超出部分每公斤0.40元。填空完成以下程序。,W 40,(W-40) * 0.4,SET TALK OFF Set defa to f:jfvfpprg USE zgb ACCEPT “请输入要查找人的姓名: ” TO N LOCATE ALL FOR XM
15、=N IF FOUND( ) DISP ELSE ? 查无此人 ENDIF USE SET TALK ON RETURN,例 编程：在ZGB.DBF中查找某人。,9.3.2 多分支选择语句(选择语句|情况语句),说明： DO CASE和第一个CASE子句之间不能插入任何语句。 DO CASE和ENDCASE必须配对使用，且DO CASE，CASE，OTHERWISE和ENDCASE各子句必须各占一行。 在语句序列中可嵌套情况语句。,语句格式: DO CASE CASE 条件表达式1 语句序列1 CASE 条件表达式2 语句序列2 CASE 条件表达式n 语句序列n OTHERWISE 语句序列n+1 ENDCASE,功能：系统依次测试语句中各个条件表达式的值: 若为真，即执行相应条件表达式后的语句序列, 然后脱离情况语句,执
