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

《面向过程顺序结构与分支结构编程》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、实验十面向过程顺序结构与分支结构编程结构化编程思想：程序是计算机能够分析执行的指令集合，包含两个部分：一是数据结构，二是算法。数据结构是对数据的描述，在程序中指定数据的类型和组织形式，是编程操作的对象。算法是对数据结果操作步骤的描述，某一问题而采取的方法和步骤。一、实验目的：了解命令文件的建立与运行方法掌握数据库面向过程与分支程序的设计方法。二、实验内容和操作步骤：在VisualFoxPro中，程序文件又称为命令文件，它是由VisualFoxPro中的命令和一些程序设计语句所组成的，扩展名为PRG。1、程序(命令)文件的建立方法(1)、项目管理中新建程序文

2、件打开项目管理器，选择“代码”一一“程序”一一单击“新建”(2)、菜单方式或工具按钮“文件”——“新建”——“程序”——“新建文件”或单击常用工具栏上的“新建”按一一“程序”一一“新建文件”(3)、命令方式——MODIFYCOMMAND〈程序文件名〉2、打开程序文件有以下方法：(1)、在项目管理器中选定程序文件名，单击“修改”(2)、单击常用工具栏上的“打开”一一打开程序文件；(3)、执行“文件”一一“打开”一一打开程序文件⑷、输入命令：MODIFYCOMMAND〈程序文件名〉3、程序文件或命令文件的调用调用程序也就是执行程序，程序文件的调用方法有：(1)

3、、在项目管理器中，选定程序文件，单击“运行”;⑵、执行“程序”菜单下的“运行”一一选定“程序文件”确定；(3)、在命令窗口中输入：DO〈程序文件名〉回车4、程序的顺序结构顺序结构是程序设计中最基本的结构。在该结构中，程序的执行是按命令出现的先后顺序依次执行的，其流程示意图如下：下面以给cjb.dbf添加表记录为例，练习顺序结构的编程：在表Cjb中添加记录一一添加表记录一般是追加一个空记录，然后使用输入的信息替换空记录相应的字段内容，其流程图如下：打开表文件输入学号、姓名、各科成绩追加空记录替换学号、姓名、各科成绩关闭表文件练习一新建程序文件，以TJJL.P

4、RG文件名保存。在编程窗口中输入下列语句:note功能：在成绩表屮添加记录。note程序名：tjjl.prgsettalkoffclearselectAusecjb&&打开表ACCEPT〃学号:"TOhxh&&输入学号ACCEPT〃姓名：〃TOhxm&&输入姓名&&输入语文分数&&输入高等数学分数&&输入计算机分数&&输入英语分数INPUT〃大学语文：〃TOhdxywINPUT〃高等数学:〃TOhgdsxINPUT〃计算机:〃TOhjsjINPUT〃英语：〃TOhyuAPPENDBLANK&&添加空记录REPLACEXHWITHHXH&&替换XH字段REP

5、LACEXMWITHHXM&&替换XM字段REPLACEdxywWITHhdxyw&&替换dxyw字段REPLACEgdsxWITHHgdsx&&替换gdsx字段REPLACEjsjWITHhjsj&&替换jsj字段REPLACEyuWITHhyu&&替换yu字段REPLACEzfWITHdxyw+gdsx+jsj+yu&&讣算总分USEreturn&&返回保存该程序，并运行之。然后查看CJB.DBF中的新记录。5、程序的分支结构分支结构是指在程序执行过程屮，根据一定的条件判断来确定程序走向的一种程序结构。VisualFoxPro分支语句有IF语句、DOC

6、ASE语句等。IF语句：IF语句是根据逻辑表达式值，有选择地执行一组命令。语法格式如下：TF逻辑表达式语句A[ELSE语句B]ENDIF功能：程序根据逻辑表达式的值决定如何运行。如果表达式的值为.T.,则执行语句A；否则，如果包含ELSE语句，则执行语句B,如果不包含ELSE语句，则忽略1F语句和END1F之间的所有语句。在练习一中没有考虑输入记录输入的重复问题，如果需要考虑记录重复，就需要使用IF语句。新的流程图如下：结束练习二根据此流程图创建TJJL2程序文件并输入下列语句:note功能：在成绩表中添加记录。*程序名:TJJL2.prgsettalko

7、ff关闭对话clearsetexactoff&&设置字符比较方式selectAusecjb&&打开表ACCEPT〃学号:"TOhxh&&输入学号ACCEPT〃姓名：〃TOhxm&&输入姓名&&输入语文分数&&输入高等数学分数&&输入计算机分数&&输入英语分数INPUT〃大学语文：〃TOhdxywINPUT〃高等数学：〃TOhgdsxINPUT〃计算机:〃TOhjsjINPUT〃英语：〃TOhyuLOCATFORXIM1XI1&&查找XII字段IFNOTFOUND()&&如果没有找到APPENDBLANK&&添加空记录REPLACEXHWITHHXH&&替换

8、XH字段REPLACEXMWITHHXM&&替换XM字段REPLA