VFP第11部分(循环辅助语句及多重循环)

1、 3 3种循环结构种循环结构 Do whileDo while.enddo.enddo forfor.endfor.endfor scanscan.endscan.endscan 循环辅助语句 loop: loop: 通常又称为中途复始语句或通常又称为中途复始语句或 短路语句。短路语句。 exitexit：通常又称为中途退出语句或：通常又称为中途退出语句或 循环终止语句。循环终止语句。 流程图流程图： 条件条件 语句序列语句序列 LOOP EXIT enddoenddo的下一条命令的下一条命令 N Y 【例例】 将将1010到到2020中第一个能被中第一个能被3 3整除的数找出整除的数找出 来

2、。来。 For n=10 to 20For n=10 to 20 if n%3=0 if n%3=0 ?n ?n exit exit endif endif endforendfor 结束当前循环，跳出结束当前循环，跳出 exit所在的循环结构所在的循环结构 【例例】 求求300300以内能被以内能被1717整除的最大的数。整除的最大的数。 for x=300 to 1 step -1 if mod(x,17)=0 ?x exit endif endfor 找到满足条件的最找到满足条件的最 大数，结束循环大数，结束循环 从大数开始，第从大数开始，第 一次找到的就一次找到的就 是最大值是最大值

3、【例例】 将将1010到到2020中所有不能被中所有不能被3 3整除的数找出整除的数找出 来。来。 for n=10 to 20 for n=10 to 20 if n/3=int(n/3) if n/3=int(n/3) loop loop endif endif ?n ?n endfor endfor 结束本次循环，结束本次循环， 转入下一次循转入下一次循 环条件的判断环条件的判断 【例例】 求求300300以内能被以内能被1717整除的所有整数。整除的所有整数。 for x=1 to 300 if x%17!=0 loop else ?x endif endfor x=.t.x=.t.

4、s=0s=0 do whil xdo whil x s=s+1s=s+1 if s/8=int(s/8)if s/8=int(s/8) ?s?s elseelse looploop endiendi if s40if s40 x=.f.x=.f. endiendi enddendd returetu 例：写出程序例：写出程序 的结果的结果 实验实验13 13 任务任务1 1（2 2） 例：计算例：计算100100 以内的奇数和以内的奇数和 s=0s=0 i=0i=0 do while .t.do while .t. i=i+1i=i+1 if i100if i100 exitexit endi

5、fendif if i%2=0if i%2=0 loop loop elseelse s=s+is=s+i endifendif enddoenddo ? 100? 100以内的奇数和为：以内的奇数和为：,s,s cancelcancel 永真永真 循环循环 还有哪些等价 的表达式？ mod(I,2)=0 或 int(i/2)=i/2 例：逐条显示例：逐条显示xsda.dbfxsda.dbf中女生的记录并统中女生的记录并统 计人数。计人数。 cleaclea use xsda use xsda vs=0 vs=0 do whil not eof() do whil not eof() if i

6、f 性别性别= =“男男” scanscan skip if skip if 性别性别= =“男男” loop loop loop loop else elseelse else disp disp disp disp vs=vs+1 vs=vs+1vs=vs+1 vs=vs+1 skip endiskip endi endi endsendi ends endd endd ? ?”女生人数为：女生人数为：”,vs,vs retu retu 例：以下程序段与例：以下程序段与VFPVFP命令：命令： DELETE WHILE DELETE WHILE 性别性别=男男 .and. .and. 政治

7、面貌政治面貌=群众群众 等效，请填空完成。等效，请填空完成。 Go topGo top do while .not.eof()do while .not.eof() if if 性别性别男男 endif endif if if 政治面貌政治面貌=群众群众 endif endif skip skip enddoenddo exitexit deletedelete 例：下列程序判断一个自然数例：下列程序判断一个自然数n n是否为素是否为素 数，其方法是用数，其方法是用2 2到到 之间的数逐个去之间的数逐个去 除，若余数都不为除，若余数都不为0 0，则，则n n为素数，否则为素数，否则 不是素数不

8、是素数, ,请填空完成。请填空完成。 n INPUT INPUT 请输入一个大于请输入一个大于1 1的自然数的自然数: TO N: TO N Y=1 +allt(str(y)+; =+allt(str(s)+ =+allt(str(s)+ endfendf ? ? endfendf returetu 什么意思，可 以省略吗？ 例：编程打印如下图形：例：编程打印如下图形： * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * clearclear for i=1 to 5 from stu,fam ; where stu. where stu