《Visual Forpro数据库设计与应用 教学课件 ppt 作者 安晓飞10VFP第9讲》由会员分享，可在线阅读，更多相关《Visual Forpro数据库设计与应用 教学课件 ppt 作者 安晓飞10VFP第9讲（23页珍藏版）》请在金锄头文库上搜索。
1、第9讲,第6章 程序设计基础,2,教学内容,第6章 程序设计基础 6.1 程序文件的建立和运行 6.2 程序的基本结构,第6章 程序设计基础,3,教学重点 熟练掌握命令文件的建立 熟练掌握分支结构：IF、DO CASE 语句 教学难点 IF、DO CASE 语句使用,第6章 程序设计基础,4,6.1程序文件的建立和运行,6.1.1程序文件的建立与编辑,【引例】对学生表先按“性别”升序排序，再按“入学成绩” 降序排序，生成新表“学生入学成绩”。,要实现程序功能，这些语句都需要在命令窗口中输入,把这些语句组织在一起，存放在一个文件中程序文件。这个文件可以随时被调用执行，以完成相应功能,程序是能够完
2、成一定任务的命令的有序集合,将这一组命令组织在一起,存放在一个文件中,这个文件就是程序文件.,第6章 程序设计基础,5,6.1程序文件的建立和运行,6.1.1程序文件的建立与编辑 程序文件的建立 菜单方式： “文件” “新建” 命令方式：MODIFY COMMAND 程序文件的编辑 “文件打开”,在这里输入和编辑程序代码,第6章 程序设计基础,6,6.1程序文件的建立和运行,6.1.2程序文件的运行 菜单方式 “程序运行” 命令方式 DO 工具栏中的“ ”按钮,程序中遇到以下命令，则程序终止执行： RETURN：返回到调用它的上级程序或命令窗口 CANCEL：清除所有私有变量，返回到命令窗口
3、QUIT：退出Visual FoxPro，返回到操作系统。,用DO命令若不指定扩展名，按以下顺序查找同名文件执行,第6章 程序设计基础,7,6.1程序文件的建立和运行,6.1.3常用辅助命令 SET TALK ON/OFF ON：显示程序中数据处理命令的中间结果 OFF：不显示程序中数据处理命令的中间结果 注释语句,以NOTE或*开始注释语句：一般放在代码行的开头， 称为注释行，对整个或部分程序段功能起到说明作用 以&开始的注释语句：放在命令行后，注释当前命令 行的功能,第6章 程序设计基础,8,6.1程序文件的建立和运行,6.1.3常用辅助命令 【例6.1】注释语句的使用,* 计算圆的面积
4、CLEAR &清屏 r=6 &r为圆的半径 s=pi()*r*r &计算圆的面积 ?“圆的面积为：“,s &输出圆的面积 RETURN &程序结束语句,此题的功能为：计算半径为6的圆的面积并输出，如果要计算任意半径的圆的面积，可以吗？应该怎样更改程序？,程序运行时需要用户输入数据交互,第6章 程序设计基础,9,6.1程序文件的建立和运行,6.1.4常用交互输入语句 ACCEPT命令,【格式】ACCEPT TO 【功能】等待用户从键盘输入字符串，按回车键后，将键盘输入的值赋给,【说明】 的值为提示信息，引导用户输入数据。 用户输入的数据将作为字符串类型数据赋给 如果不输入任何内容直接按回车键，系
5、统会把空字符串赋给内存变量,第6章 程序设计基础,10,6.1程序文件的建立和运行,6.1.4常用交互输入语句 【例6.2】根据学号查询学生信息,SET TALK OFF ACCEPT “请输入学生的学号：“ TO xh SELECT 学号,姓名,出生年月 FROM 学生 WHERE 学号=xh CLOSE DATABASE RETURN,等待用户输入数据,用户输入的数据赋给了变量xh，注意xh的类型,第6章 程序设计基础,11,6.1程序文件的建立和运行,6.1.4常用交互输入语句 INPUT命令,【格式】 INPUT TO 【功能】等待用户从键盘输入数据，按回车键后，将键盘输入的值赋给,【
6、说明】 的值为提示信息 用户输入的数据可以是任何合法的形式 用于保存输入的数据，其类型取决于输入数据的类型,第6章 程序设计基础,12,6.1程序文件的建立和运行,6.1.4常用交互输入语句 【例6.23】用INPUT命令修改【例6.2】,SET TALK OFF CLEAR INPUT “请输入学生的学号：“ TO xh SELECT 学号,姓名,出生年月 FROM 学生 WHERE 学号=xh CLOSE DATABASE RETURN,注意此时变量xh的类型,等待用户输入数据,“09010001”,第6章 程序设计基础,13,6.1程序文件的建立和运行,6.1.4常用交互输入语句 WAI
7、T命令,【格式】 WAIT TO WINDOWTIMEOUT 【功能】程序暂停执行，等待用户按任意键或单击鼠标,【说明】 接收从键盘输入的字符，变量的类型为字符型 WINDOW：提示信息显示在提示窗口中，如果没有WINDOW子句，提示信息将显示在系统主窗口中 TIMEOUT ：设置等待用户输入的时间（秒），超时后系统将自动继续执行程序,第6章 程序设计基础,14,6.1程序文件的建立和运行,6.1.4常用交互输入语句 WAIT命令,WAIT “您输入的学号不存在，请重新输入” ； TO answer WINDOW TIMEOUT 5,第6章 程序设计基础,15,6.2 程序的基本结构,6.2.
8、1顺序结构 【例6.5】修改学生入学成绩,SET TALK OFF CLEAR OPEN DATABASE 教学 USE 学生 ACCEPT “请输入学号：“ TO xh LOCATE FOR 学号=xh DISPLAY REPLACE 入学成绩 WITH 入学成绩+10 DISPLAY RETURN,第6章 程序设计基础,16,6.2 程序的基本结构,6.2.2选择结构 条件语句,【格式】 IF ELSE ENDIF 【功能】根据的值进行判断，然后选择不同 的语句序列执行。此种结构可以分解为单分支 选择结构和双分支选择结构两种不同的类型,第6章 程序设计基础,17,6.2 程序的基本结构,6
9、.2.2选择结构 条件语句,条件表达式,语句序列,ENDIF后面的语句,假,真,条件表达式,语句序列1,ENDIF后面的语句,假,真,语句序列2,IF ENDIF,IF ELSE ENDIF,单分支选择结构,双分支选择结构,第6章 程序设计基础,18,6.2 程序的基本结构,6.2.2选择结构 条件语句 【例6.6】输入两个非零数，按照由小到大的顺序输出,SET TALK OFF CLEAR INPUT “输入第一个非零数：“ TO num1 INPUT “输入第二个非零数：“ TO num2 IF num1num2 t=num1 num1=num2 num2=t ENDIF ?num1,nu
10、m2 RETURN,第6章 程序设计基础,19,6.2 程序的基本结构,选择结构 条件语句 【例6.7】用双分支选择结构改写上例,SET TALK OFF CLEAR INPUT “输入第一个非零数：“ TO num1 INPUT “输入第二个非零数：“ TO num2 IF num1num2 ?num1,num2 ELSE ?num2,num1 ENDIF RETURN,第6章 程序设计基础,20,6.2 程序的基本结构,6.2.2选择结构 条件语句 【例6.8】通过课程号查询 课程的基本信息,SET TALK OFF CLEAR OPEN DATABASE 教学 USE 课程 ACCEPT
11、 “请输入课程号：“ TO kch LOCATE FOR 课程号=kch IF .NOT. EOF() ?“课程号：“,课程号 ?“课程名：“,课程名 ?“教师号：“,教师号 ?“学时：“,学时 ?“学分：“,学分 ELSE ?“您输入的课程号不存在“ ENDIF CLOSE DATABASE RETURN,第6章 程序设计基础,21,6.2 程序的基本结构,6.2.2选择结构 情况语句,【格式】 DO CASE CASE CASE CASE OTHERWISE ENDCASE,【功能】 依次判断的值，根据取值的真或假，执行不同的,第6章 程序设计基础,22,6.2 程序的基本结构,【例6.9】计算下面分段函数的值（自变量x的值必须大于100）,SET TALK OFF CLEAR INPUT “输入x(x100)的值：“ TO x DO CASE CASE x100 .AND. x=1000 fx=0.32*x CASE x=5000 fx=0.28*x+40 CASE x=10000 fx=0.24*x+240 OTHERWISE fx=0.2*x+640 ENDCASE ?“函数值为：“,fx RETURN,第6章 程序设计基础,23,课外作业 实训教材：第6章P143(1,2,5,8) 上机实验 实验6.1 程序的创建和运行 实验6.2 选择结构程序设计,
