1、第四章 程序设计初步,工作方式,交互操作方式,程序执行方式,命令执行方式,界面操作方式,结构化程序设计,面向对象程序设计,结构化程序设计：传统的程序设计方法，是面向对象程序设计的基础。 面向对象程序设计：面向对象，用户界面可利用VFP提供的辅助工具来设计，应用于程序也可自动生成，但是仍需用户编写一些过程代码。,4.1 程序文件 (又叫命令文件),4.1.1程序文件的建立与执行 一、程序文件的建立与修改 建立、编辑程序文件有两种方式: 1.命令方式： MODIFY COMM 程序文件名 注意：文件名的书写例：MODI COMM ABC.PRGMODI COMM A:ABC.PRG程序文件由VFP
2、命令组成存盘CTRL+W , 不存盘2.菜单方式 文件菜单 新建 程序 二、程序的运行 命令格式：DO ,三、程序书写规则,1、命令分行： 用 “；” 续行 2、命令注释： 用“&” 注释 四、求解的基本逻辑与程序通用性 1程序的逻辑性要完成数据处理过程，通常应包括三个部分：（1）提出原始及其处理要求 输入 r=3（2）按指定要求进行数据处理 处理 s=3.1416*r*r （3）输入结果 输出 “圆面积=”，S 2程序的通用性程序应可反复执行，使程序的应用范围更广。通常可 采用： （1） 参数传替 （2） 键盘输入,4.1.2 程序文件中的专用命令,一、程序结尾的专用命令 RETURN：终止
3、程序执行，并返回上级程序继续执行，如无上级程序则返回命令窗口。 CANCEL：使程序运行终止，清除程序的私有变量，并返回到命令窗口。 QUIT：退出VFP系统。使用该命令正常退出，就不会出现数据丢失或打开的文件被破坏等情况，还会自动删去磁盘中的临时文件；程序终止运行后将返回到Windows。,二、输入输出专用命令,1屏幕格式：将整个屏幕划分为25行80例。 2. 非定位输入输出命令 键盘输入命令 命令格式：INPUT TO ACCEPT TO 功能：首先在屏幕上显示命令中的提示 信息，随后等待用户从键盘输入。待用户输入后，即把输入内容赋值给指定的内存变量。 说明：（1）INPUT命令能接受从键
4、盘输入的任何类型的表达式，需注意输入字符型数据时要加定界符，日期型数据要利用CTOD函数。 （2）ACCEPT命令只能接受字符型数据，对用户输入内容，系统自动加上定界符后再赋给指定的内存变量。 （3）提示信息可以是字符型表达式，执行时屏幕上将显示该表达式的结果值。, 文本输出命令,命令格式： TEXT ENDTEXT 其中TEXT与ENDTEXT必须成对出现。 3. 定位输入输出命令 命令基本格式： SAY GET DEFAULT 功能：在屏幕的指定行列输出SAY子句的表达式值，并可修改GET子句的变量值。,三、WAIT命令,命令格式： WAIT TO WINDOW AT ， NOWAIT C
5、LEAR | NOCLEAR TIMEOUT 功能：暂停程序的运行，直到用户输入一个字符。也可只用于输出一条提示信息。,4.2程序的控制结构,Visual FoxPro系统提供的命令丰富，且功能强大，把这些命令和程序设计语句有效地组织在一起，就形成了实现某一特定功能的程序。 Visual FoxPro系统的程序有两个特点： 一、程序控制流模式，由顺序、分支、循环三种 基本结构构成。 二、面向对象可视化的结构程序模块，在每个模块的内部也是由程序控制流组成。控制结构有：顺序结构、分支结构、循环结构。,4.2.1 顺序结构,该结构是程序中最简单、最普遍使用的一种基本结构。其特点是按照语句排列的先后顺
6、序依次执行。4.2.2 分支结构 分支结构是在程序执行时，根据不同的条件，选择执行不同的程序语句，用来解决有选择、有转移的诸多问题。 一、条件语句(单分支，双分支),二、宏代换函数,格式：&.功能: 替换出字符型内存变量的值。 例4-4 m=5 x=“m” & x为字符型内存变量 ? x & 显示m ? &x & 显示5，得到了变量x的值,三、多分支语句,格式 DO CASE CASE CASE CASE OTHERWISE ENDCASE,流程图,例1：计算半径为R的圆面积,INPUT 请输入圆半径: TO R IF R0S=3.14*R*R?圆面积为:,S ENDIF,例2：编一程序计算分
7、段函数 Y=,SET TALK OFF INPUT 请输入A: TO A INPUT 请输入B: TO B INPUT 请输入X: TO X IF A=BY=A*X+BELSEY=A*X-B ENDIF ?Y SET TALK ON RETURN,AX+B 当A=B,AX-B 当AB,例3：编一个程序解一个一元二次方程AX2+BX+C=0,SET TALK OFF INPUT 请输入第一个系数： TO A INPUT 请输入第二个系数： TO B INPUT 请输入第三个系数： TO C W=B*B-4*A*C DO CASECASE A=0?仅有一个实根为:,-C/BCASE W0X1=(-
8、B+SQRT(W)/(2*A)X2=(-B-SQRT(W)/(2*A)?X1=,X1 ?X2=,X2CASE W=0X1=-B/2*AX2=X1?X1=X2=,X1CASE W0?没有实根 ENDCASE SET TALK OFF RETU,4.2.3 循环结构,在用程序解决实际问题的过程中，往往需要在一定条件下重复某些相同的操作，即对某一部分程序进行循环操作。能够完成循环操作的程序即称为循环结构程序。 Visual FoxPro 提供了多种循环结构。 一、 条件循环 格式 :DO WHILE ENDDO 说明: ：循环条件 ：循环体,流程图,二、 步长循环,格式： FOR =初值 TO 终值
9、 STEP ENDFOR | NEXT 功能： 判断内存变量的取值是不否在指定范围（从初值到终值）之中来确定循环体内的命令序列是否重新执行。 说明： （1） 初值、终值、步长均可用表达式，其值在循环开始时计算读入，若其中含在变量，那么这些变量的值必须在执行循环之前已确定。 （2） 步长的值可正可负，缺省时默认为1。,三、 扫描循环,格式： SCAN FOR WHILE ENDSCAN 说明： SCAN循环针对当前表进行循环。 ：记录范围，缺省值为ALL。 语句执行时在中依次寻找满足FOR条件或WHILE条件的记录，并对找到的记录执行。,四、 循环辅助语句,在上述循环语句的循环体中可以插入LOOP、 EXIT语句，常在选择结构中使用。,LOOP 语句能使执行转向循环语句头部继续循环。 EXIT 语句用来立即退出循环，转去执行ENDDO，ENDFOR或ENDSCAN后面的语句。 注意：在FOR循环语句中执行LOOP语句，将会先修改循环变量的值，然后转向循环语句头部。 在SCAN循环语句中执行LOOP语句，将会先移动记录指针，然后转去判断循环条件。,五、 多重循环,若一个循环语句的循环体内又包含其它循环，就构成了多重循环，也称为循环嵌套。,六、条件、步长、扫描三种方式的比较,
