Visual Foxpro程序设计第四章第6讲 DO WHILE循环结构
《Visual-Foxpro程序设计》教学大纲精选全文完整版
可编辑修改精选全文完整版《Visual Foxpro程序设计》教学大纲一、课程的性质和任务Microsoft Visual Foxpro关系数据库是新一代小型数据库管理系统的杰出代表。
它具有强大的性能、完整而丰富的工具、较高的处理速度、友好的界面以及完备的兼容性等特点。
是用户收集信息、查询数据、创建集成数据库系统、进行应用系统开发较为理想的工具软件。
目前在我国有广泛的应用基础和用户群。
《Visual FoxPro程序设计》课程是目前国内各高校普遍开设的一门计算机公共课程，学习本课程将有助于学生巩固、加深和拓展已有的计算机和信息技术知识；掌握基本的数据库应用技术和基于数据库的应用程序设计技术；培养逻辑思维能力，以及分析问题和解决问题的能力。
将专业知识与计算机信息管理知识和技能结合起来，使之在今后的学习和工作中适应新时代的要求。
二、课程教学目标（一）知识教学目标本课程为必修课，按照本大纲采用同一程序设计语言开课的各专业统一内容、统一要求、统一考试。
通过本课程的课堂教学与上机实训，要求学生：1、了解信息（Information）、数据（Data）、数据库（Data Base）、数据库管理系统（DBMS）和数据库系统（DBS）的基本概念，以及数据库技术在当今社会各个层面管理中应用的重要性。
2、熟悉Visual FoxPro的用户界面和运行方式，掌握Visual FoxPro的各种数据类型，以及常量、变量、表达式、函数等各种数据元素，掌握Visual FoxPro 的命令格式和主要文件类型等基础知识。
3、掌握数据表的创建方法，以及数据记录的插入、删除、修改、排序、索引、查找、统计汇总等基本操作，同时掌握多个数据表之间的关联、更新等操作。
4、掌握数据库创建与维护的方法，以及数据字典、数据视图、数据库表之间的永久关系和参照完整性等知识，掌握应用数据库技术管理大量信息的基本技能。
5、熟悉SQL结构化查询语言，了解该语言的特点；着重掌握SQL的数据定义语言、数据修改语言和数据查询语言，能够使用基本SQL命令创建、维护和查询数据库和数据表。
Visual Basic 程序设计基础知识-循环
WHILE循环结构一、语法结构WHILE <条件><循环体>WEND注:1.执行过程：先判断条件是否成立，如果成立就执行循环体（while与wend之间的语句）；循环体执行完后，再判断条件是否依旧成立，如果成立继续执行循环体，否则退出循环，执行wend后的语句。
2.while－wend结构的循环必须在循环体内改变循环控制变量的值，否则会出现死循环例1 求s＝2＋3＋……＋100s=0:n=1while n<=00s=s+nn=n+1wendprint “s=”;s例2．如果我国工农业生产每年以12%速度增长,问多少年后产值翻一番:基值设为100。
（逐年计算产值，看是否达到200）p=100r=0.12n=0WHILE p<200p=p*(1+r)n=n+1WENDPRINT n，p例3．一张纸厚度为0.5毫米，问对折多少次后厚度超过8844米 n =0h = 0.5Do while h<=8844000h =2*hn =n+1LoopPrint nFor-next循环结构1、格式FOR <变量>=<初值> TO <终值> STEP <增量>循环体NEXT <变量>如： for i=1 to 10 step 2print inext i2、说明（1）FOR与NEXT必须配对；（2）FOR必须在NEXT的前面；（3）FOR中的循环变量与NEXT的变量一致；（4）步长为1时“ STEP 1”可省略；（5）循环终止的条件是循环变量赋值超过终值，而不是等于终值。
终止条件:当步长>0时,循环变量>终值当步长<0时,循环变量<终值当步长=0时,永不终止（6）循环次数的计算次数=(终值一初值)/步长+1（7）循环变量尽量用整型变量；（8）循环变量初值和终值、步长值均可以是正值、负值或零，也可是整数或小数；例题1for i=1 to 100print "a"next I例题2for I=1 to 100 step 2 s=s+Inext I例题3for I=100 to 1 step -5 print Inext i 例题4 百钱买白鸡For g=1 to 19For m = 1 to 31x=100-g-mif 5*g+3*m+x/3=100 thenprint g , m , xend ifNext mNext g。
VFP第6部分(循环结构)
例2：写出程序 的结果store源自0tox,s
do whil .t. x=x+1 s=5*x if s>20
结果为：5 10 15 20
exit else ?s endi endd retu
例3：写出程 序的结果
结果为：8 16 24 32
x=.t. s=0 do whil x s=s+1 if s/8=int(s/8) ?s else loop endi if s>30 x=.f. endi endd retu
2）步长循环（for…endfor计 数循环） 格式：
例2：求n的阶乘
例3：计算s=1+2+3+…+100
clea s=0 for i=1 to 100
s=s+i
enddo
?"1+2+3+...+100=",s
return
说明：
①步长可正可负，缺省为1。
②循环体中不应包含改变循环 变量值的命令，否则循环次数将 随之改变。
③如果循环可以通过计数来控 制，则本循环比条件循环更为方 便。
当循环
inpu “请输入终值：” to n inpu “请输入步长：” to k i=1
步长循环
for i=1 to n step k
do whil i<=n
<命令序列>
<命令序列>
endf|next
i=i+k
endd
例4：写出本程序的执行结果
第一步， 计算 0+1； 第二步， 计算 (0+1)+2； 递归 第三步， 计算 (0+1+2)+3； 算法 ……… 第 i 步， 计算 (0+1+…+i-1)+i； ………. 第100步，计算 (0+1+…+99)+100；
Visual FoxPro 程序设计教程概要
■ 多分支条件选择语句DO CASE
4.3 提供简单选择的控件
■ 命令按钮组
4.1 条件表达式
4.1.1 关系运算符与关系表达式
关系运算符有8种：<、<=、>、>=、=、<>、#、
!=、$、= =
4.1.1 逻辑运算符与逻辑表达式
逻辑运算符有3种：AND、OR、NOT
4.1.1 运算符的优先顺序
教学进程
y = (1 + x1)^5 * a ENDCASE mes = ALLT(STR(a)) + “元” + mes + CHR(13) + “到期时, 本息共计:" + ALLT(STR(y,12,2)) + "元" MESSAGEBOX(mes, 0 , "利息计算")
教学进程
●选项组与选项组生成器
教学进程
【例4-10】利用选项组控制文本的对齐方式与字体，如图4-18。 设计步骤如下： (1) 建立应用程序用户界面。 (2) 设置对象属性。 (3) 编写程序代码。 ●编写表单的Activate事件代码： THIS.Text1.SetFocus ●编写OptionGroup1的Click事件代码： n = THIS.Value DO CASE CASE n = 1 THISFORM.Text1.Alignment = 0 CASE n = 2 THISFORM.Text1.Alignment = 2 CASE n = 3 THISFORM.Text1.Alignment = 1 ENDCASE
设计步骤如下： (1) 建立应用程序用户界面与设置对象属性。
教学进程
VFP第4、5、6部分(程序算法、顺序分支循环)
l ( a b c) / 2
(其中a，b，c为三角形的三边，area为三角形的面积)
“计算”按钮的“Click”事件代码如下： a=thisform.text1.value 数据输入 b=thisform.text2.value c=thisform.text3.value l =(a+b+c)/2 数据处理 area=sqrt( l *( l -a)*( l -b)*( l -c)) thisform.text4.value=round(area,1)
“求解”命令按钮的“Click”事件代码如下： a=thisform.text1.value b=thisform.text2.value c=thisform.text3.value if a=0 messagebox("二次项系数为0，这不是一个一元二次方程") thisform.text1.setfocus else d=b^2-4*a*c if d>=0 x1=round((-b+sqrt(d))/(2*a),2) x2=round((-b-sqrt(d))/(2*a),2) thisform.text4.value=x1 thisform.text5.value=x2 else messagebox("该方程没有实数根！") endif endif
l
(教材P54) 【例3-4】设计如图3-13所示表单，其中 文本框Text1中可以接受日期型数据，运行表单后在 Text1中输入日期：08/25/11，单击命令按钮 “Command1”，则标签Label2显示什么？其中 command1控件的click事件代码： 填什么？ d=thisform.text1.value y=year(d) IF ____________________ y1="是" ELSE y1="不是" ENDIF bel2.caption=y1
精品课件-Visual FoxPro6.0程序设计-第6章
第6章 循环结构程序设计
(1) 建立应用程序用户接口与设置对象属性，参见图6-1 所示。
(2) 编写程序代码。 运行程序，结果如图图6-1 求1 + 2 + 3 + … + 100的值
第6章 循环结构程序设计
【例6-2】 输入一个正整数，判断该数是否为素数。 (1) 建立用户接口及设置对象属性，参见图6-2所示。 (2) 编写事件代码。 运行程序，结果如图6-2所示。
THISFORM.Text1.ReadOnly= .T.
运行程序，结果如图6-3所示。
第6章 循环结构程序设计
任务6.2 列表框、组合框、页框控件
任务导入 学习目标 任务实施 1. 列表框的常用属性和方法 列表框(ListBox)显示一个项目列表，用户可以从中选择 一项或多项，但不能直接编辑列表框中的数据。 1) 列表框的常用属性 列表框的常用属性，见表6-1。
第6章 循环结构程序设计 图6-6 加减法算术练习
第6章 循环结构程序设计
进入窗体设计器，首先增加两个文本框Text1(随机出题)、 Text2(用户输入答案)、一个列表框List1(保存做过的题目)、 一个命令按钮Command1、一个图像Image1和一个卷标Label1， 属性的设置参见图6-7所示。
第6章 循环结构程序设计
2) 列表框的常用方法 列表框的常用方法，见表6-2。
第6章 循环结构程序设计
表6-2 常用列表框方法
方法程序 AddItem
Clear RemoveItem
说明 在列 表框中添加新的 数据项 清除 列表中的各项 从列 表框中移去一个 数据项
第6章 循环结构程序设计
2. 列表框使用示例 【例6-5】 输出如图6-4所示的“九九”乘法表。 (1) 建立应用程序用户接口和设置对象属性。 设计窗体接口，其中List1的属性设置，见表6-3。 其他控件的属性设置参见图6-5所示。
VFP课件(第六章)
【例6-13】列表框选择多个项目。
（1）设计表单和控件属性：
(2) 设置对象属性 List对象的属性： 对象的属性： 对象的属性 MoverBars=.t. 设置每个列表项行首有可移动按钮 MultiSelect=.f. 可连续删除多项
(3) 编写事件代码
“删除”按钮的Click 事件 删除”按钮的
【例6-14】显示学生情况 。
（1）设计界面：
（2）设计属性：
“班级编号”组合框： 班级编号”组合框：
ControlSource = 学生情况.班级编号 RowSourceType = 1-值 RowSource = 951202,951603,951801,951201 Style = 2
下拉组合框（即 属性默认为0）则兼有列表框和文 下拉组合框 即Style属性默认为 属性默认为 本框的功能。用户可以单击下拉组合框上的按钮查看选择项的 列表，可以直接在按钮旁边的框中直接输入一个新项。
组合框常用属性 属性
ControlSource RowSourceType RowSource Style ListCount Selected Value DisplayValue
作用
指定用于保存用户选择或输入值的表字段 指定框中数据源的类型 指定框中数据项的来源 指定组合框是下拉列表框还是下拉组合框 返回框中列表项的个数 用于分辨框中某一列表项是否被选中,选中时Selected 属性返回.T.，否则返回.F. 返回在列表中选定的项 返回组合框中键入的文本
（1）下拉列表框 如果想节省表单上的空间， 如果想节省表单上的空间 ， 并且希望强 调当前选定的项，可以使用下拉列表框。 调当前选定的项，可以使用下拉列表框
【例6-10】求1~1000之间的全部完数。
Visual Foxpro程序设计第四章第6讲 DO WHILE循环结构
DO WHILE .NOT. EOF()
DO CASE
CASE zcmc="教授"
t1=t1+1
CASE zcmc="副教授"
t2=t2+1
8
CASE zcmc="讲师"
中国矿业大学计算机学院 李向群
t3=t3+1
OTHERWISE
t4=t4+1
ENDCASE
SKIP
ENDDO
@1,10 SAY " 教授的人数："+STR(t1)
@3,10 SAY "副教授的人数："+STR(t2)
@5,10 SAY "讲师的人数："+STR(t3)
@7,10 SAY "助教的人数："+STR(t4)
USE
RETURN
9
中国矿业大学计算机学院 李向群
（1）DO WHILE循环又称_____循环。 （2）当循环条件为______是开始执行DO WHILE循环。 （3）LOOP语句的功能是_________。 （4）EXIT语句的功能是________。
EXIT语句的功能是退出循环。EXIT语句可以放在循环 体内的任何位置，当执行EXIT语句时，直接退出循环， 执行ENDDO后面的语句。通常，EXIT语句是在条件语 句控制下，当条件得到满足时便跳出循环。
6
DO WHILE 循环
中国矿业大学计算机学院 李向群
例1:计算 S=1+2+……+100
ENDDO
3
DO WHILE 循环结构
中国矿业大学计算机学院 李向群
visual foxpro 课件 顺序结构程序设计
4. 事件与方法的程序调用
• 事件过程由事件的激发而调用其代码，也可以在运行中由程序 调用其代码，在程序中调用事件代码的格式是: 表单名.对象名.事件名 mand1.click • 方法的代码只能在运行中由程序调用. • 在程序中调用对象方法的格式是 • [[〈变量名〉] = ]〈表单名〉.〈对象名〉.〈方法名〉( ) • Thisform.release() • 例:日期时间
•
容器 命令按钮组 容器 自定义 表单集 表单 表格列 表格 选项按钮组
能包含的对象 命令按钮 任意控件 任意控件、页框、容器、自定义对象 表单、工具栏 页框、任意控件、容器或自定义对象 标头对象以及除了表单集，表单，工具栏，计时器和其他列对象以 外的任意对象 表格列 选项按钮
页框页面 工具栏源自页面• • • • • • • • • • • • • Load Event —— 调用（运行）该表单前发生的事件（例题：启动） Init Event —— 表单初始化、创建对象时事件 Activate事件 —— 当表单被激活时发生。 Click Event —— 点击表单（鼠标左键）事件(例题变大小） DblClick Event —— 双击表单事件 Error Event —— 运行表单时出错的事件 Hide —— 隐藏表单方法 KeyPress Event —— 按键时发生的事件 RightClick Event —— 右击表单事件 Destroy Event —— 在对象释放时引发 UnLoad Event —— 当表单被关闭时发生。 在表单运行时首先运行Load Event ，然后Init Event、 Activate事件 在表单关闭时首先运行Destroy Event，然后UnLoad Event
2. 对象的事件
visual foxpro程序设计中循环结构的分析
visual foxpro程序设计中循环结构的分析VisualFoxpro(VFP)一种强劲的对象关系数据库管理系统，它支持复杂的数据库应用程序的开发。
在Visual Foxpro中，循环结构是一种重要的程序设计语言，它提供了一种有效的方法来控制程序的执行和控制程序的流程。
本文就Visual Foxpro程序设计中循环结构的分析进行简要介绍。
一、Visual Foxpro中的循环结构Visual Foxpro中的循环结构分为三种：Do While循环结构、For 循环结构和For Each循环结构。
1、Do While循环结构Do While循环由“Do While”子句开始，该子句包括一个条件表达式，如果该条件表达式为真，则循环会一直执行，否则循环将终止。
Do While循环可以连续执行，直到条件为假或者循环体结束，它也可以将循环体执行指定的次数。
2、For循环结构For循环由for循环头和for循环尾构成，for循环头包括一个变量和初始值、最终值以及变量的变化量。
for循环尾包括一个step 语句，它用于指定变量增量。
for循环可以表示一次性累计计算，也可以表示分级循环或者嵌套循环。
3、For Each循环结构For Each循环是一种特殊的循环结构，它用于处理多维数组，还可以处理文件和记录集中的一组记录。
For Each循环结构有foreach语句、while条件修饰符和end for each语句组成，while条件修饰符用于确定for each语句的执行条件，在for each语句与end for each语句之间的语句将会被循环执行。
二、Visual Foxpro中循环结构的应用Visual Foxpro中循环结构可以用于各种类型的应用，从简单的任务到复杂的任务都可以使用循环结构。
1、统计与分析使用循环结构可以轻松实现数据库中的数据统计和分析，例如，可以使用For循环结构来统计数据库中的总结果或者对结果进行分类。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
中国矿业大学计算机学院 李向群
第四章第6讲 DO WHILE循环结构 讲课结束 谢谢收看
I=1
S=0
DO WHILE I<=100
S=S+I
I=I+1
ENDDO
?S，I
100以内的奇数和、偶数和？
7
DO WHILE 循环
中国矿业大学计算机学院 李向群
【例2】 统计教师表中职称名称为教授、副教授、 讲师、助教的各有多少人。
CLEAR
USE js.dbf EXCLUSIVE
STORE 0 TO t1, t2, t3, t4
EXIT语句的功能是退出循环。EXIT语句可以放在循环 体内的任何位置，当执行EXIT语句时，直接退出循环， 执行ENDDO后面的语句。通常，EXIT语句是在条件语 句控制下，当条件得到满足时便跳出循环。
6
DO WHILE 循环
中国矿业大学计算机学院 李向群
例1:计算 S=1+2+……+100
DO WHILE .NOT. EOF()
DO CASE
CASE zcmc="教授"
t1=t1+1
CASE zcmc="副教授"
t2=t2+1
8
CASE zcmc="讲师"
中国矿业大学计算机学院 李向群
t3=t3+1
OTHERWISE
t4=t4+1
ENDCASE
SKIP
ENDDO
@1,10 SAY " 教授的人数："+STR(t1)
LOOP
2
DO WHILE 循环
中国矿业大学计算机学院 李向群
DO WHILE循环又称条件循环，是根据条件表达式 的值来决定循环体的执行次数的一种循环结构。
适用条件：循环次数未知
格式：
DO WHILE <条件表达式>
<语句行序列>
[LOOP]
循 环
[EXIT]
体
【语句功能】语句格 式中的<条件表达式> 称为循环条件，循环 体是需要多次重复执 行的程序段。
@3,10 SAY "副教授的人数："+STR(t2)
@5,10 SAY "讲师的人数："+STR(t3)
@7,10 SAY "助教的人数："+STR(t4)
USE
RETURN
9
中国矿业大学计算机学院 李向群
（1）DO WHILE循环又称_____循环。 （2）当循环条件为______是开始执行DO WHILE循环。 （3）LOOP语句的功能是_________。 （4）EXIT语句的功能是________。
4
DO WHILE 循环
执行流程
循环体中要有使得条件表 达式最终为.F.的语句或通
过EXIT强制退出
中国矿业大学计算机学院 李向群
.F.
条件表达式
.T.
循环体
ENDDO后面的语句
5
DO WHILE 循环结构
中国矿业大学计算机学院 李向群
• 说明
LOOP语句的功能是返回到循环的开始处，重新对循环 条件进行判断。LOOP语句一定要用在循环体内才有意 义，LOOP语句使它后面的语句在本次循环时不被执行。 LOOP语句可以出现在循环体内的任何位置，经常包含 在分支语句中。
中国矿业大学计算机学院 李向群
第四章 Visual FoxPro程序设计基础 第6讲 DO WHILE循环
循环结构程序设计
中国矿业大学计算机学院 李向群
循环结构是指从程序的某处开始有规律的重复执行某一 程序段的程序结构。
三种循环结构： FOR 循环
DO WHILE循环
SCAN 循环
两个命令： EXIT
ENDDO
3
DO WHILE 循环结构
中国矿业大学计算机学院 李向群
语句执行时，若循环条件的值为.T.，则执行 循环体
一旦程序执行遇到ENDDO就自动返回到循环条 件部分，DO WHILE会重新判断循环条件是否为. T.，以决定是否再次执行循环体。
若循环条件的值为.F.，循环就结束，然后执 行ENDDO后面的语句。