第13讲 循环结构程序设计

本文格式为Word版，下载可任意编辑——第13讲循环结构程序设计

VFP教程

《VFP程序设计》

第13讲循环结构程序设计

2023-8-4

VFP教程

《VFP程序设计》

8.3.3循环结构1.“当〞型循环控制语句“当〞型循环控制语句，即根据条件表达式的值决定循环体内语句的执行次数。注意这中间格式：有一个空格DoWhile条件表达式命令行序列EndDo

2023-8-4

VFP教程

《VFP程序设计》

8.3.3循环结构功能：通过条件表达式的值来控制循环。执行该语句时，反复判断条件表达式的值，当条件表达式的值为“真〞时，执行命令行序列,否则，终止循环并执行EndDo后面的第一个命令。

2023-8-4

VFP教程

《VFP程序设计》

8.3.3循环结构

2023-8-4

VFP教程

《VFP程序设计》

8.3.3循环结构例1:计算1~100之间自然数的和。(见：l10_14_1循环程序设计.prg,l10_14_2循环程序设计(累加器).prg,l10_14_3循环程序设计(逐行显示累加结果).prg)

Cleari=1sum1=0赋初值dowhilesum1=10sum1=sum1+ii=i+1增值enddo?1~+str(i-2,2)+自然数的和是,sum1-(i-1)*注意最终参与的值应当是i-2,此时sum1的值已经10

2023-8-4

VFP教程

《VFP程序设计》

8.3.3循环结构例2:根据“员工〞表，统计物业部的员工人数。(见：l10_15循环程序设计(统计物业部员工).prg)

Clearuse员工.dbfExclusivers=0dowhile.not.eof()if所属部门=物业部rs=rs+1endifskipenddo?rs2023-8-46

VFP教程

《VFP程序设计》

8.3.3循环结构2.“计数〞型循环控制语句“计数〞型循环控制语句，即根据循环变量的初值、终值和步长，决定循环体内语句的执行次数。格式：For循环变量=循环变量初值To循环变量终值[Step循环变量步长]命令行序列EndFor|Next

2023-8-4

VFP教程

《VFP程序设计》

8.3.3循环结构功能：用循环计数器循环变量来控制命令行序列的执行次数。执行该语句时，系统首先将循环变量初值赋给循环变量,然后判断循环变量是否大于(当循环变量步长大于零)或小于(当循环变量步长小于零)循环变量终值,若结果为“真〞,则终止循环，执行EndFor后面的第一条命令；否则，执行命令行序列,循环变量自动按循环变量步长增加或减少，再重新判断循环变量当前的值是否大于或小于循环变量终值,直到其结果为“真〞。

2023-8-4

VFP教程

《VFP程序设计》

8.3.3循环结构

2023-8-4

VFP教程

《VFP程序设计》

8.3.3循环结构

2023-8-4

VFP教程

《VFP程序设计》

8.3.3循环结构例3:计算10!。(见：l10_16循环程序设计(阶乘).prg)clearp=1fori=1to10p=p*iendfor?p

2023-8-4

VFP教程

《VFP程序设计》

8.3.3循环结构例4:计算2!+4!+6!+8!+10!。(见：l10_17循环程序设计(阶乘累加).prg)

clearp=1sum=0fori=1

to10p=p*iifint(i/2)=i/2sum=sum+pendifendfor?sum2023-8-412

VFP教程

《VFP程序设计》

8.3.3循环结构3.“指针〞型循环控制语句“指针〞型循环控制语句，即根据表中的当前记录指针决定循环体内语句的执行次数。格式：Scan[范围][For条件表达式1][While条件表达式2]命令行序列EndScan

2023-8-4

VFP教程

《VFP程序设计》

8.3.3循环结构功能：在指定的范围内用数据记录指针来控制循环次数。执行该语句时，首先判断函数EOF()的值，若其值为“真〞,则终止循环，执行EndScan后面的第一条命令；否则，结合条件表达式1或条件表达式2执行命令行序列,记录指针移动到指定的范围和条件内的下一条记录，重新判断函数EOF()的值，直到函数EOF()的值为真时终止循环。

2023-8-4

VFP教程

《VFP程序设计》

8.3.3循环结构

2023-8-4

VFP教程

《VFP程序设计》

8.3.3循环结构例5:计算“员工〞表中所属“物业部〞的职工的人数。(见：l10_18、2循环程序设计(scan结构).prg)clearuse员工.dbfExclusivei=0gotopscanif所属部门=物业部i=i+1endifendscan?i2023-8-416

VFP教程

《VFP程序设计》

例：求10个数中的最大值最小值(见：l10_19求10个数中的最大值最小值.prg)2023-8-4

cleari=1ii=str(i,2)input请输入第+ii+个数据toxmax1=xmin1=xfori=2to10ii=str(i,2)input请输入第+ii+个数据toxifxmax1max1=xendififxmin1min1=xendifendfor?最大的数：,max1,最小的数,min117

VFP教程

《VFP程序设计》

8.3.3循环结构4.使用循环语句的本卷须知(1)dowhile和enddo、for和endfor、scan和endscan必需配对使用。(2)命令行序列可以是任何FoxPro命令或语句，也可以是循环语句，既可以为多重循环。(3)exit和loop命令嵌入在循环体内，可以改变循环次数，但是不能单独使用。Exit的功能是跳出循环，转去执行enddo、endfor、endscan后面的第一条命令；loop的功能是转回到循环的开始处，重新对“条件〞进行判断。

2023-8-4

VFP教程

《VFP程序设计》

举例1、用星号输出菱形以下图形(for循环举