中的一个。系统执行DO CASE…ENDCASE语句时，首先逐个检查每个 CASE项中的条件表达式，只要遇到某个条件表达式的值为 .T. 时，就去 执行这一CASE项下的语句行序列，然后结束整个DO CASE…
ENDCASE语句，接着执行ENDCASE后面的语句。若所有的CASE项下 的条件表达式都为 .F
教学小结（5 分钟）
本节课着重介绍了Visual FoxPro程序设计的基础知识，包括程序 的常用命令及程序的建立方法、程序的三大基本结构。学生在学习过程
学 进 程 与 设 计
首先通过提问的形式将上一讲中的重点知识进行回顾；说明本节实 践课程需要操作的程序基本结构的格式。
教学讲授（30 分钟）
例7.1：请用程序的方式修改人事信息表RS.DBF中新评为教授的教 师记录，其职称一栏由副教授改为教授。
CLEAR
SET TALK OFF USE RS
ACCEPT "请输入要修改记录的教师名：" to xm LOCATE FOR 姓名=xm
REPL 职称 WITH "教授"
USE
SET TALK ON RETURN
例7.2：从键盘输入一个正整数，判断其是否为偶数。
*****P2.PRG*****
SET TALK OFF clear
INPUT "请输入一个正整数:" TO X IF INT(X/2)=X/2
?X,"为偶数!"
ELSE
?X,"为奇数!"
ENDIF
SET TALK ON
例7.3：根据键入X的值，计算下面分段函数的值，并显示结果。
程序代码如下：
SET TALK OFF clear
教
INPUT “X=” TO X 备注学 进 程 与 设 计
IF X>0 IF X>10 Y=X*X+1 ELSE
Y=3*X*X-2*X+1 ENDIF
ELSE
Y=X*X+4*X-1 ENDIF
?”分段函数值为：”+STR(Y,10,2) SET TALK ON
RETURN
例7.4：IIF（成绩>=60,“及格”，“不及格”）
当成绩＞＝60时，函数返回“及格”，否则返回“不及格”字符串。
（3）多路选择分支结构 格式：DO CASE
CASE < 条件表达式1 >
< 语句系列1 >
[ CASE < 条件表达式2 >
< 语句系列 2 >
…
CASE < 条件表达式 n >
< 语句系列n > ] [ OTHERWISE
< 语句系列 n+1 > ] ENDCASE
功能：依次判断<条件表达式 I >，当值为真时执行对应的< 语句 系列 I>；当所有<条件表达式 >的值为假时，则执行 OTHERWISE 下 面的< 语句系列 N+1>。
（6 分钟）
学 进 程 与 设 计
Y=3*X*X-2*X+1 CASE X>10
Y=X*X+1 ENDCASE
?”分段函数值为：”+STR(Y,10,2) SET TALK ON
RETURN
教学小结（5 分钟）
通过程序的设计，学生应该掌握程序的三种结构格式的使用。
实践环节（45 分钟）
编写程序实现：对指定院系不同英语成绩段统计学生人数。
实践环节小节（5 分钟）
本次实践主要内容是让学生进行程序的设计，学生通过对具体程序 的编程，加深理解顺序结构和选择结构的流程。
上机内容指导、答疑，注意共性问题的讲解与总结。
学 生 注 意 记 录 操 作 结 果 ， 以 备 检 查 。 教 师 要 对 本 次 实 验 进 行 验 收 ， 并 记 入 平 时 成绩。
习题作业
1.编写程序，输出乘法表。
2.编写程序，在表单上显示由“*”组成的三角形。
3.编写程序，输入一个字符串，完成字符串的逆序存放，如输入 abcd，得到 dcba。
课后小结
章节名称
第 7 章 程序设计基础授课时间
第十三周（第 25 次课）
授课
学时
2教学
课型
理论课教学目的 与要求
目的：
通过程序设计的讲解，使学生能够了解循环结构的概念，同时掌握循环结构的使用 场合和语法结构,掌握利用循环结构解题的思路,使用多重循环解决实际问题。
要求：
通过本节课程的讲授，使学生能够了解循环结构三要素；掌握 DO WHILE … ENDDO型循环的语法和使用场合, FOR … ENDFOR 型循环的语法和使用场合, FOR … ENDFOR型循环的语法和使用场合；重点掌握 DO WHILE … ENDDO 型循环。
教学重点
DO WHILE … ENDDO型循环的使用, FOR … ENDFOR 型循环的使用。教学难点
SCAN … ENDSCAN型循环的使用。教学方法
利用启发式和多媒体课件教学相结合的方法进行循环结构的概念的讲解，并通过 VF 软件进行利用循环结构解题的思路的演示，最后通过案例教学法进行 DO WHILE … ENDDO型循环, FOR … ENDFOR 型循环, FOR … ENDFOR 型循环讲解。
时间分配
教学导入（10 分钟）
1．分析本章的目的和要求；2．教师 针对本章的目的和要求进行提问； 3．教 师总结分析本章知识点，并举例详细讲 解。
教学讲授（75 分钟）
第 7 章 程序设计基础
7.4 循 环 结 构 程 序 设 计 （ 10 分 钟）
7.5 多重循环（65 分钟）
教学小结（5 分钟）
理论与演示相结合，通过程序文件给学 生演示 3 种循环结构的操作。观察各操作 结果，给定实现目标，总结各方法。
实践环节（0 分钟）
实践环节小节（0 分钟）
教 学 进 程 与 设 计
教学导入：（10 分钟）
首先通过提问的形式将上一讲中的重点知识进行回顾；然后进行分析 选择结构每条语句最多执行一次,如果某条语句需要执行多次,该如何处理 从而引出循环结构，进而介绍循环结构的概念和特点导入本次课程内容 教学讲授：（75 分钟）
第 7 章 程序设计基础 7.4 循环结构程序设计
7.5 多重循环
定义： 循环结构是指根据问题的需要任意次地重复执行一行或多行 语句。具体地说就是某些语句在某一条件成立时,需要重复执行,直到条件 不成立时,才结束重复执行。循环结构要特别注意的是在重复执行语句过程 中，要有控制条件的语句，以避免出现死循环现象。
在 VFP 中有三种循环语句：
DO WHILE … ENDDO FOR … ENDFOR SCAN … ENDSCAN
7.4.1条件循环语句 DO WHILE ¼ ENDDO 格式： DO WHILE < 条件表达式 >
<语句序列 >
< EXIT >
< LOOP >
ENDDO
功能： 当< 条件表达式 >的值为真时，重复执行 DO WHILE … ENDDO之间的<语句序列 >，直到< 条件表达式 >的值为假时结束
任选项说明
EXIT--结束当前循环操作，跳到 ENDDO 后面的语句。
LOOP--跳 过 LOOP 后 面 的 语 句 ， 直 接 回 到 循 环 起 始 语 句 DO WHILE。
1)循环结构:能够使一段语句被反复执行 n 次 2)循环体:被反复执行的语句
3)循环条件:能够使循环执行若干次后终止的条件 4)循环变量:每次执行循环都被改变的量
备注
固定语法结构 要熟练记忆
教
说明： 备注学
DO WHILE i<=99 s=s+i