面向过程顺序结构与分支结构编程.doc

实验十 面向过程顺序结构与分支结构编程 结构化编程思想： 程序是计算机能够分析执行的指令集合，包含两个部分：一是数据结构，二是算法。数据结构是对数据的描述，在程序中指定数据的类型和组织形式，是编程操作的对象。算法是对数据结果操作步骤的描述，某一问题而采取的方法和步骤。一、 实验目的:了解命令文件的建立与运行方法掌握数据库面向过程与分支程序的设计方法。二、 实验内容和操作步骤：在Visual FoxPro中，程序文件又称为命令文件，它是由Visual FoxPro 中的命令和一些程序设计语句所组成的，扩展名为PRG。1、程序（命令）文件的建立方法(1) 、项目管理中新建程序文件 打开项目管理器，选择“代码”“程序”单击“新建”(2)、菜单方式或工具按钮 “文件”“新建”“程序”“新建文件”或单击常用工具栏上的“新建”按“程序”“新建文件”(3)、命令方式MODIFY COMMAND 2、打开程序文件有以下方法：(1)、在项目管理器中选定程序文件名，单击“修改”(2)、单击常用工具栏上的“打开”打开程序文件；(3)、执行“文件”“打开”打开程序文件(4)、输入命令：MODIFY COMMAND 3、程序文件或命令文件的调用调用程序也就是执行程序，程序文件的调用方法有：(1)、在项目管理器中，选定程序文件，单击“运行”；(2)、执行“程序”菜单下的“运行”选定“程序文件”确定；(3)、在命令窗口中输入：DO回车 4、程序的顺序结构 顺序结构是程序设计中最基本的结构。在该结构中，程序的执行是按命令出现的先后顺序依次执行的，其流程示意图如下：开始语句A语句B结束下面以给cjb.dbf添加表记录为例，练习顺序结构的编程：在表cjb中添加记录添加表记录一般是追加一个空记录，然后使用输入的信息替换空记录相应的字段内容，其流程图如下:打开表文件输入学号、姓名、各科成绩替换学号、姓名、各科成绩关闭表文件开始结束追加空记录练习一 新建程序文件，以TJJL.PRG 文件名保存。在编程窗口中输入下列语句：note 功能：在成绩表中添加记录。note 程序名：tjjl.prgset talk offclearselect Ause cjb &打开表ACCEPT 学号：TO hxh &输入学号ACCEPT 姓名：TO hxm &输入姓名INPUT 大学语文:TO hdxyw &输入语文分数INPUT 高等数学:TO hgdsx &输入高等数学分数INPUT 计算机:TO hjsj &输入计算机分数INPUT 英语:TO hyu &输入英语分数APPEND BLANK &添加空记录REPLACE XH WITH HXH &替换XH字段REPLACE XM WITH HXM &替换XM字段REPLACE dxyw WITH hdxyw &替换dxyw字段REPLACE gdsx WITH Hgdsx &替换gdsx字段REPLACE jsj WITH hjsj &替换jsj字段REPLACE yu WITH hyu &替换yu字段REPLACE zf WITH dxyw+gdsx+jsj+yu &计算总分USEreturn &返回保存该程序，并运行之。然后查看CJB.DBF中的新记录。5、程序的分支结构分支结构是指在程序执行过程中，根据一定的条件判断来确定程序走向的一种程序结构。Visual FoxPro分支语句有IF语句、DO CASE语句等。IF语句： IF语句是根据逻辑表达式值，有选择地执行一组命令。语法格式如下：IF 逻辑表达式 语句AELSE语句BENDIF功能：程序根据逻辑表达式的值决定如何运行。如果表达式的值为.T.,则执行语句A；否则，如果包含ELSE语句，则执行语句B，如果不包含ELSE语句，则忽略IF语句和ENDIF之间的所有语句。在练习一中没有考虑输入记录输入的重复问题，如果需要考虑记录重复，就需要使用IF语句。新的流程图如下:是打开表文件输入学号、姓名、各科成绩替换学号、姓名、各科成绩关闭表文件开始结束是否存在该学生增加空记录否练习二 根据此流程图创建TJJL2程序文件并输入下列语句：note 功能：在成绩表中添加记录。* 程序名：TJJL2.prgset talk off &关闭对话clearset exact off &设置字符比较方式select Ause cjb &打开表ACCEPT 学号：TO hxh &输入学号ACCEPT 姓名：TO hxm &输入姓名INPUT 大学语文:TO hdxyw &输入语文分数INPUT 高等数学:TO hgdsx &输入高等数学分数INPUT 计算机:TO hjsj &输入计算机分数INPUT 英语:TO hyu &输入英语分数LOCAT FOR XH=HXH &查找XH字段IF NOT FOUND() &如果没有找到 APPEND BLANK &添加空记录 REPLACE XH WITH HXH &替换XH字段 REPLACE XM WITH HXM &替换XM字段 REPLACE dxyw WITH hdxyw &替换dxyw字段 REPLACE gdsx WITH Hgdsx &替换gdsx字段 REPLACE jsj WITH hjsj &替换jsj字段 REPLACE yu WITH hyu &替换yu字段 REPLACE zf WITH dxyw+gdsx+jsj+yu &计算总分ENDIFUSE &关闭表return &返回保存并运行该程序。查看CJB.DBF中的新记录.练习三 新建程序文件：password.prg 实现口令验证功能。在编程窗口输入以下语句：NOTE 实现口令验证功能NOTE 文件名：password.prgSET TALK OFFSET EXACT OFF &设置字符比较方式CLEAR &清屏USE CJB2ACCEPT 输入姓名： TO hxm &输入姓名ACCEPT 输入口令： TO hkl &输入口令LOCAT FOR xm=hxm AND kl=hkl &验证姓名和口令IF FOUND() &如果找到相关记录 10,2 SAY 此用户是合法用户！ELSE 10,2 SAY 此用户是非法用户！ENDIFCLOSE ALL &关闭表RETURN &返回 输入完毕，保存并运行。DO CASE 语句语法格式如下：DO CASECASE 条件表达式1语句1 CASE 条件表达式2语句2 CASE 条件表达式3语句3CASE 条件表达式N语句NOTHERWISE语句N+1ENDCASE功能说明：自上而下判断CASE语句后所给，执行第一个满足条件的CASE后的命令系列。无条件成立，如果存在OTHERWISE子句则执行它下面的命令系列，无OTHERWISE就不执行多分支语句而执行ENDCASE后的命令系列。练习四 按CJB中数学单科成绩评定等级的编程语句如下：练习三：建立程序文件按数学评定等级.prg输入下列语句：NOTE 按高等数学单科成绩评定等级SET TALK OFFCLEAR &清屏USE CJBDO CASE CASE GDSX=85 REPLACE DJ WITH 优 CASE GDSX=75.AND.GDSX=65.AND.GDSX=60.AND.G