[农林牧渔]第1章 数据库基本理论ppt.pptVIP

第5讲　VFP程序设计基础(3) 西南民族大学 教师: 肖明 xm0928@ 第5讲 VFP程序设计基础(3) 知识回顾 本讲题要 学习新知 实例演练 课堂小结 课后练习 知识回顾 交互式输入命令: INPUT [提示信息] TO 内存变量 ACCEPT [提示信息] TO 内存变量 WAIT [提示信息][TO内存变量][TIMEOUT 等待时间] 格式输入命令: 命令1: @行，列 SAY 提示信息 GET 变量 [FUNCTION 功能符] [PICTURE格式符] [RANGE数值表达式1，数值表达式2][VALID逻辑表达式] 命令2: READ 知识回顾 输出命令: 1. ？ 内存变量名表 2. ？？内存变量名表 3. TEXT 输出显示内容 ENDTEXT @行，列 SAY 提示信息 [FUNCTION 功能符] [PICTURE格式符] 本讲题要 本次课程，我们将学习程序的三种基本结构,即顺序结构、选择分支结构和循环结构的实现方法和语句格式；并通过举例进一步加深对程序设计的基本思想和原则的把握。 学习新知 顺序结构 单向分支 双向分支 多向分支 条件循环 计数循环 指针循环 多重循环 1. 顺序结构 顺序程序设计是按处理实际问题的逻辑步骤，把相关的命令按执行的先后顺序排列在一起，执行该程序时，系统自动按自上而下的顺序执行。顺序程序结构的流程图如下所示： 1. 顺序结构 例1： 查询学生选课情况： CLEAR CLOSE DBF SET DEFAULT TO E:\教材用数据表 SELECT 1 USE 学生 INDEX ON 学号 TAG XH SELECT 2 USE 课程 INDEX ON 课程号 TAG KCH SELECT 3 USE 选课 SET RELATION TO 学号 INTO A, 课程号 INTO B LIST 学号,A.姓名,B.课程名,成绩 CLOSE DBF CANCEL 1. 顺序结构 例2：鸡兔同笼，已知鸡兔的总头数为H，总脚数为 F,求鸡兔各有多少只？ 鸡兔同笼问题的算法为： X=(4H-F)/2 Y=(F-2H)/2 程序编制如下： clear input 请输入总头数H： to h input 请输入总脚数F： to f x=(4*h-f)/2 y=(f-2*h)/2 ? 共有鸡:+alltrim(str(x))+只 ? 共有兔:+alltrim(str(y))+只 cancel 2. 单向分支结构 即根据用户设置的条件表达式的值,决定某一操作是否执行. 语句: IF 条件表达式 命令序列 ENDIF 功能: 当条件表达式的值为真时,执行命令序列,否则执行ENDIF后的命令. 说明: 条件表达式为逻辑型, 命令序列可为一条或多条语句. IF、ENDIF必须各占一行， IF和ENDIF必须成对使用. 2. 单向分支结构 例3：按输入的记录号修改学生表文件中的记录(单向) CLEAR USE E:\教材用数据表\学生 LIST WAIT CLEAR INPUT 请输入欲修改记录的记录号: TO JLH IF RECCOUNT()=JLH EDIT RECORD JLH LIST ENDIF USE CANCEL 3. 双向分支结构 语句: IF 条件表达式 命令序列1 ELSE 命令序列2 ENDIF 功能: 当条件表达式的值为真时,执行命令序列1,然后执行ENDIF后的命令;否则,执行命令序列2,然后执行ENDIF后的命令; 说明: IF、ELSE 和ENDIF必须配对使用，且应各占一行。 命令序列1和命令序列2中可以嵌套IF命令。 3. 双向分支结构 流程图: 3. 双向分支结构 例3：按输入的记录号修改学生表文件中的记录(双向) CLEAR USE E:\教材用数据表\学生 LIST WAIT CLEAR INPUT 请输入欲修改记录的记录号: TO JLH IF RECCOUNT()=JLH EDIT RECORD JLH LIST ELSE ? 所输入记录号超过范围! ENDIF USE CANCEL 4. 多向分支结构 语句:DO CASE CASE 条件表达式1 命令序列1 C