VFP第六章课件2(循环结构)

本次课的教学内容：
分支结构、循环结构 本次课的教学目的与要求： 1、分支结构 2、循环结构 本次课的教学重点与难点： 重点：两个分支语句、三个循环语句 难点：三个循环语句 讲授课时：2学时
1
循环结构
循环结构则能够使某些语句或程序段重复执行若干次。 如果某些语句或程序段需要在一个固定的位置上重复操作， 使用循环是最好的选择。
执行过程： 当给定的条件满足时，执行DO WHILE 和ENDDO之间的命令组。命令组执行完毕 后，•程序自动返回到DO WHILE语句，再 一次判断DO WHILE语句中的<条件>。如果 <条件>仍然满足，则再执行一遍命令组， 如果<条件>不满足，则结束循环，转去执 行ENDDO之后的命令。 EXIT控制从循环体内跳出，转去执行 ENDDO后的第一条命令，可把EXIT•放在循 环体的任何地方。因此EXIT被称为无条件 结束循环命令，只能在循环结构中使用。 LOOP控制直接转回到DO WHILE语句， 而不执行LOOP和ENDDO之间的命令。因此 LOOP•称为无条件循环命令，只能在循环 结构中使用。
首先将数据表记录指针移动到指定范围内的第一条记录上，然后判断记 录指针是否超过指定范围以及该记录是否满足WHILE子句所描述的条件， 若记录指针超过指定范围或该记录不满足WHILE子句所描述的条件，则 结束扫描循环，执行ENDSCAN后面的语句。若记录指针未超过指定范围 且该记录满足WHILE子句所描述的条件，则判断该记录是否满足FOR子句 所描述的条件，若不满足，记录指针移到下一条记录，进行下一轮循环 判断，否则执行命令组后，记录指针下移一条记录，再进行下一轮循环 判断。
7
计数型循环语句
语句格式：
FOR <循环变量>=<初值> TO <终值> 执行过程： 首先计算初值、终值 和步长值，并将初值赋给 循环变量，再将循环变量 的值与终值比较，如果循 环变量的值在初值与终值 范围内，则执行FOR与 ENDFOR之间的命令，然后 循环变量按步长值增加或 减小，再重新比较，直到 循环变量的值不在初值与 终值范围内，结束循环， 转去执行ENDFOR后面的第 一条命令。

循环结构:前面我们学习的顺序结构和选择结构有一个共同点,即程序语句不能重复执行.而在实际应用中,常常需要多次重复执行某些语句.这样的需求适合于用循环语句来处理.在vfp中,提供了3种循环语句:do while循环、for循环及scan循环.1.while循环:格式:do while 条件语句序列[loop][exit]enddo说明:(1).\"do while 条件\"是循环说明语句,它标志循环的开始,并判断循环条件是否为真值;当条件为真值时,则执行语句序列;否则跳到enddo后面的语句继续执行.(2).do while和enddo之间的语句序列也被称作循环体,是需要多次重复执行的语句,由它完成规定的数据处理工作.(3).循环语句中的可选项exit,用于退出循环语句,可放在循环体语句的任意位置上.若在循环体中加上该可选项,当执行exit时,跳出循环体去执行enddo 后面的语句.通常,exit是在条件语句控制下,当条件得到满足时便跳出循环;否则永远不能执行exit后面的循环体语句.(4).可选项loop,是循环短路语句,也可以放在循环体语句的任意位置上.当执行loop时,其后的循环体语句部分不予执行,直接返回到循环起始语句.loop也通常放在条件语句的控制下.(5).enddo和do while必须成对出现.例:将\"职工档案\"表中所有职称是\"讲师\"的工资加200元,副教授加150元,无职称的加100元.首先,我们修改一下\"职工档案\"表的结构,为其增加一个\"工资\"字段: 在命令窗口依次执行如下命令:use 职工档案modify structure弹出\"表设计器\"窗口,添加一个新字段:工资 N6.1,单击\"确定\",保存更改.再执行browse命令,在弹出的browse窗口中为每条记录的\"工资\"填上值, 新建一个程序文件xiugai.prg,程序文件的内容如下:clearuse 职工档案do while .not.eof()do casecase 职称=\"讲师\"replace 工资 with 工资+200case 职称=\"副教授\"replace 工资 with 工资+150case 职称=\"无\"replace 工资 with 工资+100endcaseskipenddousereturn程序分析:循环程序由以下4个主要部分构成:A.循环的工作部分.它完成循环的主要工作,是循环体的主要部分.这里由do case---endcase组成.B.循环的修改部分.它保证循环体在循环过程中,有关的量能按一定的规律变化.这里的循环修改部分是skip语句,用来实现依次操作文件的各条记录.C.循环的控制部分.它保证循环体语句按规定的循环次数正常执行.此例中的循环控制部分是.not.eof()逻辑表达式,它表示做完所有记录的操作.D.循环的初始部分.它是循环控制初值.本程序中循环控制初值是隐含的,因为打开文件后,记录指针指向首记录,所以操作是从首记录开始的.2.for循环:在已知循环次数的情况下,使用for循环比较方便格式:for 变量=初值to 变量终值[step]步长语句序列[exit][loop]endfor|next功能:在循环控制变量的初值和终值的范围内执行循环语句,每执行一次循环,循环控制变量都要加上增量.当其值在规定范围内时就再次执行循环体语句序列,否则结束循环,执行循环终止语句下面的语句.跳出循环和循环短路语句exit和loop意义同前.具体执行步骤:(1).给变量赋初值;(2).判断变量的值是否小于等于终值;(3).若不是,则循环结束;(4).若是,则执行语句序列;(5).变量=变量+步长(若省略step,则步长=1);(6).转(2).例:在屏幕上输出乘法口诀表程序文件内容如下:?\"九九乘法表\"?for i=1 to 9for j=1 to i??alltrim(str(i))+\"*\"+alltrim(str(j))+\"=\"+alltrim(str(i*j))+\" \"next?next3.scan循环:格式:scan [范围][for 条件]语句序列endscan功能:对表中指定范围,满足条件的记录执行循环体语句,每执行一次循环,记录指针自动移动到下一条记录.操作表时,使用该语句功能强,效率高.例:使用scan语句编程,显示\"职工档案\"表中的女教师的姓名和职称.use 职工档案scan for .not.性别display 姓名,性别endscanusereturn。

例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；

二、循环结构do while 循环：当循环的次数事前未知，只知道什么时候退出循环时，要用 do while 语句；在循环体里应有使条件成立的语句；条件表达式的条件一定要与题目中给出的条件相反。

…………………………………………………………………………………………1.求12+42+72+……一直加直到和超过1000为止，输出和数和项数。

i=1sum=0n=0do while sum<=1000sum=sum+i^2i=i+3n=n+1enddo? "项数为",n? "sum=",sum2.求∏值，直到某项的绝对值小于0.000001为止。

4pi =1-31+51-71+…… sum=0s=1i=1t=s/ido while ABS(t)>=1E-06sum=sum+ts=-si=i+2t=s/ienddopi=4*sum? pi3.从键盘不断输入字符，统计其中数字字符的个数，一旦输入*，统计结束。

n=0accept "输入一个字符" to CHdo while CH<>"*"m=ASC(CH)if M>=48 and m<=57n=n+1endifaccept "输入一个字符" to CHenddo? "输入的字符中共有数字字符个数为",n4.键盘输入两个整数，求他们的最大公约数和最小公倍数。

input "输入一个整数" to minput "输入另一个整数" to nm1=mn1=nt=mod(m,n)do while t<>0m=nn=tt=mod(m,n)enddo? "最大公约数为",n? "最小公倍数为",m1*n1/n* 02年真题第2题：求两个整数m和n的最大公约数。