第四章 程序设计初步.ppt

3）MessageBox()函数 格式：MessageBox(信息内容[,对话框类型[,对话框标题]]) 功能：显示一个自定义对话框。 示例: MessageBox()函数应用举例 在命令窗口输入：MessageBox(请选择按钮) 2. 顺序结构： 按命令在程序中出现的选后次序依次执行。 为了表示程序的执行次序，经常用流程图来描述程序的执行，顺序结构流程图可表示为如图所示。从流程图可以看出，顺序结构程序执行时无分支，它是依据命令在程序中出现的次序（命令A—命令B—命令n）依次执行的，也就是顺序结构的流程是单一直线式的。 顺序结构流程图 命令A 命令B 命令… 命令n 顺序结构流程图 现实生活中许多任务往往比较复杂，经常需要根据不同的具体情况选择相应的解决方案。如“学生管理系统”中，如以每位同学的成绩（表 XSCJ.DBF中的CJ）来核定其课程的等级。是优秀还是良好…，就要根据各位同学CJ高低的不同来分别处理。这种情况反映到程序设计中，仅仅靠单一直线式流程的顺序结构程序解决起来就比较困难，这时就需要分支结构程序来完成。 4.4.2 分支结构 分支结构是指程序流程发生了分支，程序执行时根据条件选择其中某一分支执行的程序结构,又称选择结构。Visual FoxPro 6.0的分支结构按分支多少分为双分支（IF/ENDIF）和多分支（DO CASE/ENDCASE）两类。 1.双分支结构——IF/ENDIF语句 2.多分支结构——DO CASE/ENDCASE语句 双分支 单分支 格式：IF 条件 格式：IF 条件 [语句组1] [语句组] [ELSE ENDIF [语句组2]] ENDIF 1.双分支结构 双分支流程图 单分支语句流程图 条件 语句组1 语句组2 ENDIF的下一条语句 N 条件 语句组 ENDIF的下一条语句 Y N 条件 语句组1 ENDIF的下一条语句 条件 N 语句组2 ENDIF的下一条语句 条件 Y 语句组1 ENDIF的下一条语句 N ENDIF的下一条语句 Y Y 【例4.6】根据学生的年龄，输出学生的姓名和性别。年龄大于等于20输出大，年龄小于20且大于等于18的输出中，年龄小于18的输出小。 SNAME= SSEX= SOLD=0 10,10 SAY请输入学生姓名: GET SNAME 11,10 SAY请输入学生性别: GET SSEX 12,10 SAY ”请输入学生年龄: ” GET SOLD READ IF SOLD=20 ? SNAME,SSEX, 大 ELSE IF SOLD20 AND SOLD=18 ? SNAME,SSEX, 中 ELSE ? SNAME,SSEX, 小 ENDIF ENDIF 2.多分支结构 格式： DO CASE CASE 条件1 [语句组1] [CASE 条件2] [语句组2] … [CASE 条件n] [语句组n] [OTHERWISE [语句组n+1]] ENDCASE 采用DO CASE语句改写例4.6的程序。 SNAME= SSEX= SOLD=0 10,10 SAY请输入学生姓名: GET SNAME 11,10 SAY 请输入学生性别: GET SSEX 12,10 SAY 请输入学生年龄: GET SOLD READ DO CASE CASE SOLD=20 ? SNAME,SSEX, 大 CASE SOLD20 AND SOLD=18 ? SNAME,SSEX, 中 CASE SOLD18 ? SNAME,SSEX小 ENDCASE 4.4.3 循环结构 在程序设计过程中，经常会遇到反复执行某几条命令或程序段的问题。如“学生管理系统”中，要查询表XSCJ.DBF中符合给定条件的每位同学并显示，如用LOCATE命令将会非常复杂。 若采用顺序结构，将要重复给出相同或相似的命令组合，这样使得程序显得累赘，编码效率低。这时如果采用循