第6章程序设计

《第6章程序设计》由会员分享，可在线阅读，更多相关《第6章程序设计（94页珍藏版）》请在金锄头文库上搜索。

1、第6章 程序设计 v程序文件的建立与运行 v程序的控制结构 v过程程序设计 7.1 程序文件的建立与运行 7.1.1 程序文件的建立 1.命令方式建立程序文件 MODIFY COMMAND 功能：打开程序编辑窗口，修改或创建程 序文件。 指定修改或创建的程序文件名。 命令程序文件的扩展名是.PRG。 2. 在程序编辑窗口中输入命令 例 编写两个变量的加法运算程序。 步骤1：在命令窗口里输入： MODIFY COMMAND CX1 步骤2：在程序编辑窗口输入如下6条命令。 CLEAR &将屏幕输出窗口内容清空 a=12 &将数值12赋值给变量a b=18 &将数值18赋值给变量b c=a+b &

2、将变量a与b的和计算出来，赋值给变量c ?a,b,c &输出变量a、b、c的值 RETURN &表示程序结束。 在输入程序时，请注意以下几点： a. 一个命令语句中只能有一个命令动词； b. 每输入完一个语句按“回车”键表示该语句结束； c. 每一个程序最后一般应有一个结束语句，以表示该程序的结束。 3. 程序文件的保存、打开与关闭 （1）程序文件的保存 按快捷键Ctrl+W将文件进行保存退出。或 （2）程序文件的打开 在命令窗口里，利用“MODIFY COMMAND ”命令打开指定程序文件，进行编辑修改。 （3）程序文件的关闭 a. 单击菜单【文件(F)】【关闭(C)】命令； b. 单击程序

3、编辑窗口右上角的【】关闭按钮； c. 在“命令”窗口里输入命令：CLOSE ALL ； d. 按快捷键Ctrl+W，保存并关闭程序文件。 7.1.2 程序的运行 命令方式运行程序 DO 功能：将指定的程序文件调入内存并运行。 说明： a. 默认程序扩展名为.PRG，可不必输入； b. 该命令可在命令窗口里输入执行，也可以出现在另一个 程序文件中，后者可实现在一个程序中调用另一个程序。 如在命令窗口里输入：DO cx1 执行程序cx1后，将在屏幕输出程序计算结果： 12 18 30 在程序打开并且为当前程序的情况下，单击常用工具栏上【 !】命令按钮也可以执行程序。 7.1.3 程序中的辅助命令

4、1、程序书写规则： 一行只能写一条语句。 每输入完一个语句按“回车”键表示该语句结束。 如果希望把一行语句分两行写，应在第一行的尾部键入继行符 “；” 2. 程序注释命令 VFP提供了3种程序设计注释命令： 格式1： NOTE 格式2： * 功能：使 NOTE或* 后面的内容成为注释内容。 格式3： & 功能：对&左面的命令做出解释或给出运行 结果，又称为行尾注释命令。 3.程序结束命令 格式1：RETURN 功能：返回到上一级模块。如果本程序是以菜单方 式或在命令窗口中调用执行的，则返回到命令交互状 态即命令窗口。 格式2：CANCEL 功能：结束程序运行，关闭程序中所有的文件和变 量，返回

5、到交互状态即命令窗口。 格式3：QUIT 功能：关闭Visual FoxPro，返回到操作系统 对一个独立程序来说，一般在最后一条语句要用 RETURN命令，以表示程序的结束。 7.1.4 交互式的输入命令 根据解决实际问题的需要，往往在程序运行的过程中，由用 户向程序输入一些数据或信息，完成这种功能的一些命令称为 交互式输入命令。 a. 是在屏幕上出现的提示信息。它可以是字符串，也可以是 字符型内存变量，此时该内存变量必须预先赋值。 b. 用户在键盘输入的任何字符信息都被赋值给“内存变量”。输入的数据将 作为字符型数据处理，不需要定界符括起来。 c. 输入完需要的信息后，按Enter键结束本

6、命令的输入。如果没有输入其他 信息，只输入一个回车键，将把一个空字符赋值给内存变量。 1. 字符型数据输入命令ACCEPT ACCEPT TO 功能：暂停程序的执行，等待用户输入一个字符串给 变量 例 编一程序，将学生表打开，在程序运行中输入学生姓名 ，显示指定姓名的人员记录。该程序编写步骤为： 步骤1：在命令窗口里输入命令： MODIFY COMMAND CX2 步骤2：在打开的程序窗口里输入如下语句： NOTE 该程序查找指定姓名的人员信息。 CLEAR USE rsb ACCEPT “请输入要查找的姓名：” TO name1 LOCATE FOR ALLTRIM(姓名)=name1 DI

7、SPLAY RETURN 步骤3：按Ctrl+W保存该程序 步骤4：运行程序，在命令窗口里输入： DO CX2 请输入要查找的姓名：李明 a. ，同“ACCEPT”命令中的含义。 b. 用户可输入任何一个合法的数值型（N）、字符型（C）、日 期型（D）、逻辑型（L）表达式，表达式的值并将该值赋值 给内存变量。 c. 如果输入字符串信息，则必须加上双引号或单引号定界符， 如“ABC“。 d. 按Enter键结束输入，系统将表达式的值赋值给内存变量。 e. 如果输入的是非法表达式，系统将提示重新输入。 2. 表达式输入命令INPUT INPUT TO 功能：暂停程序的执行，接受用户输入合法表达式并

8、将表达 式的值赋值给内存变量。 例 已知圆半径为r，求圆面积s 假设圆的半径为r，则计算圆面积s的公式为： s=r2，计算圆面积公 式的表达式为：3.14*r2 。程序编写步骤如下： 步骤1：在命令窗口里输入： MODIFY COMMAND CX3 步骤2：在打开的程序窗口里输入如下语句： * 该程序用于计算指定半径的圆的面积。 CLEAR INPUT “请输入圆半径r=“ TO r s=3.14*r2 ?“该圆半径为：“,r ?“该圆面积为：“,s RETURN 步骤3：按Ctrl+W保存该程序文件。 步骤4：在命令窗口里输入运行命令： DO CX3 请输入圆半径r= 18 a. 指定要显示

9、的自定义信息。若省略该参数， 则显示信息“按任意键继续”。 例如下列命令显示一行有提示信息。 WAIT “请稍后，程序将继续执“ 此时单击鼠标按键、按下键盘上任意一个按键,程序继续执行. 3. 程序暂停、等待接收单字符命令WAIT WAIT TO 50 P=50*0.25+(w-50)*0.45 ENDIF ?“行李重量为：“,w ?“应付运费为：“,p RETURN 例 铁路托运行李，按规定每张客票托运行李不超过50公斤 时，每公斤0.25元，如超过50公斤，超过部分按每公斤0.45元 计算。编写一个程序，把行李重量输入计算机，计算出运费。 根据以上分析，该问题计 算机程序框图 2.双分支简

10、单结构 双分支选择结构也是由IF语句开头，以ENDIF语句结束，中 间由若干条命令组成的，但其中包含一条ELSE语句。 IF 命令序列1 ELSE 命令序列2 ENDIF a. 如果的逻辑值为.T.，就执行命令序列1，执行完 后就转到执行ENDIF之后的命令。如果的逻辑值为.F.， 就执行命令序列2，完成后转去执行ENDIF之后的命令。 b. ELSE语句单独占一行，IF语句和ENDIF语句必须成对出现 ，且各占一行。 例 铁路托运行李，按规定每张客票托运行李不超过 50公斤时，每公斤0.25元，如超过50公斤，超过部分按 每公斤0.45元计算。编写一个程序，把行李重量输入计 算机，计算出运费

11、。 CLEAR INPUT “请输入行李重量：“ TO w IF w50 P=50*0.25+(w-50)*0.45 else P=0.25*w ENDIF ?“行李重量为：“,w ?“应付运费为：“,p RETURN 1、设计简单分支程序。在“员工信息表”表 文件中查询“刘明”的基本情况，如果找到，显 示信息，否则显示“查无此人”。 1、设计简单分支程序。由键盘输入一个员 工的姓名,在“员工信息表”表文件中该员工的基 本情况，如果找到，显示信息，否则显示“查无 此人”。 v 例 设计选择分支程序，在“ZGSJ.DBF”表文 件中查看编号为“1002”的职工的月收入，若月收 入大于600元，显

12、示“该职工的月收入大于600”； 否则显示“该职工的月收入小于600”。 Use zgsj Locate for 编号=“1002” If found() Else “无此编号” endif If 月收入600 ?”该职工的月收入大于600” Else ?”该职工的月收入大于600” 3.分支嵌套结构 对于在分支结构中的，可以包含任何 VFP命令语句，也可以包括另外一个或几个合法的分 支结构语句，也就是说分支结构可以嵌套。对于嵌套 的分支结构语句，一定注意内外层分支结构层次分明 ，即注意各个层次的IF ELSEENDIF语句 配对情况。 4.多分支选择结构 Visual FoxPro提供了多分

13、支结构来解决多种不同情况下的程序选择问 题。 DO CASE CASE CASE CASE OTHERWISE ENDCASE a. 多分支选择结构执行的过程：系统依次判断各是否满足，若某一为.T.，就执行该 下的，执行后不再判断其它，而转 去执行ENDCASE后面的第一条命令。 如果没有一个为.T.，就执行OTHERWISE后 面的命令序列，直到ENDCASE；如果没有 OTHERWISE，则不作任何操作就转向ENDCASE之 后的第一条命令。 b. DO CASE语句和ENDCASE语句必须成对出现，各 占一行。 c. 多分支选择结构中各CASE语句后的是按 其先后顺序判断执行的，因此对实

14、际问题进行编程时 ，应认真考虑各个条件排列的先后顺序。 DO CASE ENDCAS E 条件1 命令组1 条件2 命令组2 条件 n 命令组n otherwise 编写一个程序,要求从键盘输入一个学 生的分数,判断该分数属于哪个等级. 分数:60分以下为不及格,60-70为及格,70-80为中,80- 90为良,90-100为优 Y= 根据键入的X值，计算下面的分段函数值， 并显示结果。 5X2+6X-1 (X0) X2-4X+1 (020) 【例6-7】输入考试成绩，显示成绩等级的程序。（90分以 上为“优秀”；80-89为“良好”；60-79为“合格”；60分以下 为“不合格”）。 SE

15、T TALK OFF INPUT “输入考试成绩：” TO X DO CASE CASE X=90 ? “成绩等级：优秀” CASE X=80 ? “成绩等级：良好” CASE X=60 ? “成绩等级：合格” OTHER ? “成绩等级：不合格” ENDCASE RETU 6.9 循环结构 循环结构有3种命令格式： nDO WHILEENDDO nFOR ENDFOR nSCANENDSCAN 6.2.3 循环结构 在程序设计中，有时需要从某处开始有规律地反复执行某些类似的操作 ，这些类似的操作一般用循环结构程序设计来解决。在VFP中，提供了“条 件循环”、“步长型”和“表扫描型”循环结构。

16、 1. 条件循环结构 DO WHILE 命令序列 ENDDO a. 当型循环执行的过程是：根据逻辑 值进行判断。如果为.T.，则执行 命令 序列，命令序列执行完返回到DO WHILE语句 ，每执行一遍就判断一次DO WHILE语句中的。如果仍然为.T.，则继续执行 命 令序列，直到的逻辑值为.F.，则结束 循环，转去执行ENDDO之后的第一条命令。 1. 条件循环结构 DO WHILE 命令序列 ENDDO b. DO WHILE和ENDDO语句应配对使用，各 占一行。 c. 在命令序列的适当位置可以放置 EXIT和LOOP语句，用以对循环过程作特殊 处理。EXIT的功能是：终止本层循环命令 。LOOP语句的功能是：终止本次循环命令 。 循环结构流程图 6.9 循环结构 Do While 条件 loop end