《第7章结构化程序设计.ppt

程序如下： SET TALK OFF CLEAR USE 学生 ACCEP 请输入学生学号: TO xh LOCATE ALL FOR ALLTRIM(学号)=xh @2,2 SAY ********显示学生信息******** @3,2 SAY 学生姓名: GET 姓名 @3,20 SAY 性别: GET 性别 @4,2 SAY 学号: GET 出生年月 READ @5,2 SAY ******显示结束******** USE SET TALK ON RETURN 【程序说明】要求用户从键盘上输入学号。然后执行定位查询语句 找到该学生，然后用定位输出语句显示提示和字段内容。其中特别 要注意函数alltrim()的使用。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 7.3 分支结构程序设计 在例7-7中，我们已经能够实现一个简单的查询程序，但该例中没有 对语句“LOCATE ALL FOR ALLTRIM(学号)=xh“的执行情况进行判断， 这里可能存在两种情况：1.该记录存在 2. 该记录不存在。 因此，下面执行的语句将会根据情况的不同而不同。要解决这个问 题，我们将引入新的结构---分支结构。 所谓分支结构，是指在程序执行时，根据不同的条件选择执行不同的 程序语句。Visual FoxPro提供了以下3种分支结构语句： 单向分支语句：IF—ENDIF 双向分支语句：IF—ELSE—ENDIF 多向分支语句：DO CASE–ENDCASE Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 1．单向分支语句 【命令】IF 条件表达式 命令行序列 ENDIF 【功能】首先计算条件表达式的值，若其值为真，执行命令行序列 中的各条命令，然后执行ENDIF后面的命令；若其值为假，则直接执行 ENDIF后面的命令。 【说明】 （1）单向分支语句的执行流程图见图7-2分图左边所示。 （2）ENDIF是语句结束的标志，不能缺少 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 【例7-8】输入一个数，如果大于0则显示为正程序如下: INPUT 请输入一个数 TO num IF num0 ? 该数是正数 ENDIF WAIT 按任意键结束程序 RETURN 【程序说明】该程序运行时，要求用户从键盘上输入一个 数，然后程序根据所输入的数判断是否大于0，是的话则 执行语句 ? “该数是正数”，接着顺序执行ENDIF后的语句 WAIT按任意键结束程序。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 【例7-9】在学生表（学生.DBF）中输入学生学号，如果存在则按格 式显示该学生的姓名、性别和出生日期、入校成绩，并可对出生日期 和入校成绩做修改。学生表信息如上图7-10所示 【程序说明】该程序运行时，要求用户从键盘上输入学号，然后程序 根据所输入的学号在表中查找该学生。如果找到的话（即函数found() 的值为真），就按指定的格式显示并修改该学生的相关信息 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 程序如下: SET TALK OFF CLEAR USE 学生 ACCEPT 请输入学生学号 TO xh LOCATE ALL FOR ALLTRIM(学号)=xh IF FOUND() @2,2 SAY ********显示学生信息******** @3,2 SAY 学生姓名:+姓名 @3,20 SAY 性别:+性别 @4,2 SAY 出生年月: GET 出生年月 @4,