VF第讲循环结构课件

第五讲程序设计基础（三）程序设计基础（VisualFoxPro）

杨劲副教授

电话：VF第讲循环结构第五讲程序设计基础（三）程序设计基础（Visual1本讲要点

程序文件的建立与编辑程序文件的执行程序文件中常用的命令程序的基本结构控制VF第讲循环结构本讲要点程序文件的建立与编辑VF第讲循环结构2常见的循环结构有：1）条件循环2）步长循环3）扫描循环循环结构则能够使某些语句或程序段重复执行若干次。如果某些语句或程序段需要在一个固定的位置上重复操作，使用循环是最好的选择。程序的循环结构VF第讲循环结构常见的循环结构有：1）条件循环2）步长循环3）扫描循环循环结31、条件循环（DOWHILE…ENDDO）格式：

DOWHILE<循环条件>…[LOOP][EXIT]…ENDDO

说明：

1、循环结构从DOWHILE开始，到ENDDO结束，两者必须成对出现；

5、循环结构能自身嵌套，还能与选择结构的各种形式嵌套。2、循环是否继续取决于条件的当前取值，一般情况下循环体中应含有改变条件取值的命令或跳出循环的EXIT语句，否则将造成死循环。3、[EXIT]：将控制权交给紧接在ENDDO后面的命令。4、[LOOP]：将控制权直接交给DOWHILE子句，不再执行LOOP与ENDDO之间的语句。DOWHILE<循环条件>ENDDO语句序列.F..T.VF第讲循环结构1、条件循环（DOWHILE…ENDDO）格式：说明：4DOWHILE流程图DOWHILE<循环条件>语句序列ENDDO语句序列LOOP条件分支语句序列.T..F.DOWHILE<循环条件>语句序列ENDDOEXIT条件分支语句序列.T..F.VF第讲循环结构DOWHILE流程图DOWHILE<循环条件>语句序5

第1步，计算0+1； 第2步，计算(0+1)+2； 第3步，计算(0+1+2)+3；

………

第i步，计算(0+1+…+i-1)+i；

……….

第100步，计算(0+1+…+99)+100；

递归算法EXM6：计算s=1+2+3+…+100前i-1次累加和第i次累加项VF第讲循环结构 第1步，计算0+1；递归算法EXM6：计算s=16算法：确定循环变量（计数器）i并赋初值为1

定义s存放累加和,初值为0 确定循环条件i<=100 s:=s+i确定循环变量的变化趋势i=i+1

输出结果s递推公式s=1+2+3+…+100VF第讲循环结构算法：递推公式s=1+2+3+…+100VF第讲循环结构7i<=100s=s+ii=i+1s=0，i=1开始结束输出sYN循环变量赋初值循环条件（i大于100就结束）循环变量的变化趋势从1变到100VF第讲循环结构i<=100s=s+is=0，i=1开始结束输出sY8cleas=0i=1dowhilei<=100 s=s+i i=i+1enddo?"1+2+3+...+100=",sreturn循环体VF第讲循环结构clea循环体VF第讲循环结构9程序及运行结果VF第讲循环结构程序及运行结果VF第讲循环结构10*程序例21.PRGSETTALKOFFCLEARi=0DOWHILEi<10i=i+1?iENDDOSETTALKONSETTALKOFFCLEARi=0DOWHILEi<10?iENDDOSETTALKON死循环SETTALKOFFCLEARi=0DOWHILEi<10i=1i=i+1?iENDDOSETTALKON死循环SETTALKOFFCLEARi=0DOWHILEi>10i=i+1?iENDDOSETTALKON无效循环SETTALKOFFCLEARi=0DOWHILEii=i+1?iENDDOSETTALKON语法错误*程序例21-1.PRGSETTALKOFFCLEARi=0DOWHILEi<10?ii=i+1ENDDOSETTALKON*程序例21-2.PRGSETTALKOFFCLEARi=0DOWHILEi<10i=i+1ENDDO?iSETTALKON逻辑值或逻辑表达式VF第讲循环结构*程序例21.PRG死循环死循环无效循环语法错误*程序例2111SETTALKOFFCLEARi=0DOWHILE.T.i=i+1?iENDDOSETTALKONSETTALKOFFCLEARi=0DOWHILE.T.i=i+1?iIFi=10EXITENDIFENDDOSETTALKON死循环SETTALKOFFCLEARi=0DOWHILE.T.i=i+1?iACCEPT‘是否继续’TOAIFUPPER(A)<>‘Y’EXITENDIFENDDOSETTALKON定数循环用户控制循环VF第讲循环结构死循环定数循环用户控制循环VF第讲循环结构12基本方法:属于“累加（乘）器”类型问题（1）在进入循环前先给累加（乘）器赋初值累加一般为0，累乘一般为1（2）用循环语句实现累加（乘）循环变量（计数器）赋初值；循环条件；循环变量的改变规律（3）循环体语句的设计累加器当前值=累加器原值+循环变量当前值累乘器当前值=累乘器原值*循环变量当前值VF第讲循环结构基本方法:属于“累加（乘）器”类型问题（1）在进入循环前先13EXM7：计算s=1+2+3+…+n。(P59例3-8)

VF第讲循环结构EXM7：计算s=1+2+3+…+n。(P59例3-8)V14“计算”命令按钮的“click”事件代码：n=thisform.text1.values=0x=1dowhilex<=n s=s+x x=x+1enddothisform.text2.value=sVF第讲循环结构“计算”命令按钮的“click”事件代码：VF第讲循环结构15

提示：①循环结构从dowhile开始，到enddo结束，两者必须成对出现。②循环是否继续取决于循环条件的当前取值，一般情况下循环体中应含有改变条件取值的命令或语句，否则将造成死循环。③循环结构能自身嵌套(多重循环)，还能与选择结构的各种形式嵌套。VF第讲循环结构提示：VF第讲循环结构162、计数循环（FOR…ENDFOR）格式：FOR<内存变量>=<初始值>TO<终值>[STEP<步长>]<语句序列>[LOOP][EXIT]ENDFOR/NEXT说明：

1、<内存变量>：指定作为循环计数器的内存变量或数组元素，用于控制循环的次数。在执行FOR…ENDFOR语句之前，此内存变量不一定存在。

2、<初始值>TO<终值>：<初始值>是计数器的初始值，而<终值>是计数器的终止值。

3、[STEP<步长>]：是计数器递增或递减的步长。步长可正可负，缺省为1。

4、循环体中一般不包含改变循环变量值的命令，否则循环次数将随之改变。流程图：FORi=aTOi=bSTEPc语句序列ENDFOR语句序列LOOP条件分支语句序列i<=bi>bi=i+cFORi=aTOi=bSTEPcENDFOR语句序列i>bi<=bi=i+cFORi=aTOi=bSTEPc语句序列ENDFOREXIT条件分支语句序列i<=bi>bi=i+cVF第讲循环结构2、计数循环（FOR…ENDFOR）格式：说明：流程图：FO17计算s=1+2+3+…+100cleas=0fori=1to100 s=s+iendfor?"1+2+3+...+100=",sreturnstep1VF第讲循环结构计算s=1+2+3+…+100cleastep1VF第讲循18(教材P60)【例3-9】设计如图所示表单，在文本框text1中输入N的值，求N!。VF第讲循环结构(教材P60)【例3-9】设计如图所示表单，在文本框tex19输入ni=1，fac=1i<=n

fac=fac*ii=i+1输出fac

求n！的N-S图输入nfac=1n>=1

fac=fac*nn=n-1输出fac

求n！的N-S图VF第讲循环结构输入n求n！的N-S图输入n求n！的N-S图VF第讲循环20“计算”命令按钮的“Click”事件代码：p=1fori=1tothisform.text1.value p=p*iendforthisform.text2.value=pVF第讲循环结构“计算”命令按钮的“Click”事件代码：VF第讲循环结构21关于步长循环的提示：

①步长可正可负，缺省为1。②循环体中不应包含改变循环变量值的命令，否则循环次数将随之改变。③如果循环次数可以通过计数器来控制，则计数循环较为简洁。VF第讲循环结构关于步长循环的提示：VF第讲循环结构22a=0FORi=2TO100STEP2 a=a+iENDFOR?aRETURN提示：计数循环完全可以使用条件循环替代，不过前者更为简洁。例：求1到100中偶数的和a=0i=2DOWHILEi<=100 a=a+ii=i+2ENDDO?aRETURNVF第讲循环结构a=0提示：计数循环完全可以使用条件循环替代，不过前者更为简23

条件循环步长循环

input“请输入终值：”

toninput“请输入步长：”

toki=1fori=1tonstepkdowhilei<=n<命令序列><命令序列>endfor|nexti=i+kendddoVF第讲循环结构条件循环24EXM8

：求100以内的奇数和。A=1+3+5+…+99循环变量初值x=1循环条件x<100循环变量的变化趋势x=x+2请同学们自己写出程序循环体累加语句：A=A+xVF第讲循环结构EXM8：求100以内的奇数和。A=1+3+5+…+99循25EXM9

：求循环变量初值x=1循环条件x<n循环变量的变化趋势x=x+1请同学们自己写出程序循环体累加语句：K=K+x2VF第讲循环结构EXM9：求循环变量循环条件x<n循环变量的变化请同学们自26EXM10：求所有的水仙花数。(所谓水仙花数是指一个三位数，其各位数字的立方和等于该数本身。VF第讲循环结构EXM10：求所有的水仙花数。(所谓水仙花数是指一个三位数，27编程方法：“枚举法”按问题本身的性质，一一列举出该问题所有可能的解，并在逐一列举的过程中，检验每个可能解是否是问题的真正解，若是，我们采纳这个解，否则抛弃它。对于所列举的值，既不能遗漏也不能重复。VF第讲循环结构编程方法：“枚举法”VF第讲循环结构28查找范围：三位数100~999

：任意一个三位数X百位数字X1十位数字X2个位数字X3判断这个三位数x是水仙花数的条件：X=x13+x23+x33VF第讲循环结构查找范围：三位数100~999：任意一个三位数X百位数字X29VF第讲循环结构VF第讲循环结构30例：1+2+…+n1到n的奇数和（或偶数和）

100以内能够被X整除的数之和。

请同学们自己写出程序VF第讲循环结构例：1+2+…+n请同学们自己写出程序VF第讲循环结构31(教材P60-61)【例3-10】设计如图1所示表单。运行该表单，在文本框Text1中输入一串字符，单击“逆序显示”命令按钮后，逆序显示该字符串，如图2所示。

图1图2VF第讲循环结构(教材P60-61)【例3-10】设计如图1所示表单。运行32操作对象：x=“Av56:YijB>8"基本思路：从右到左逐个取出,操作次数为len(x)次。Av56:YijB>81110987654321计数器i(循环变量):len(x)=11c=c+substr(x,i,1)"8>BjiY:65vA"substr(x,i,1)VF第讲循环结构操作对象：x=“Av56:YijB>8"基本思路：从右到左逐33确定变量：x：操作对象x="Av56:YijB>8

"i：计数器len(x)到1c：累加器c=c+substr(x,i,1)，初值为“”确定算法：用循环在原字符串中从右到左逐个截取字符，重新组装成逆序字符串确定循环三要素：循环变量:i(i初值为len(x),终值为1)循环条件:i>=1循环条件改变：i=i-1(从右到左截取)VF第讲循环结构确定变量：确定算法：用循环在原字符串中从右到左逐个截取字符，34例：

如图所示一程序界面。文本框TEXT1已经输入一串文字，单击“转换”命令按钮后，文本框的值将变为什么？“转换”命令按钮的CLICK事件代码：N=LEN(THISFORM.TEXT1.VALUE)Y=''DOWHILEN>0X=SUBSTR(THISFORM.TEXT1.VALUE,N,1)IFASC(X)>=ASC('a')X=UPPER(X)ELSEX=LOWER(X)

ENDIFY=X+YN=N-1ENDDOTHISFORM.TEXT1.VALUE=YtHISISAcpu.VF第讲循环结构例：如图所示一程序界面。文本框TEXT1已经输入一串文字，35例：输入一串ASCII字符，显示数字字符串。假设输入：Av56:YijB>8显示：568。操作方法：1、从左到右逐个取出字符存入x变量中；2、对X变量中的字符进行判断，满足条件的连接到字符串累加器上。判断x是数字字符的条件：或者：x>=‘0’andx<=‘9’x=‘0’orx=‘1’or…x=‘9’VF第讲循环结构例：输入一串ASCII字符，显示数字字符串。假设输入：Av536ACCEPT“请输入一个任意字符串：”tosn=LEN(s)y=''FORi=1TOnx=SUBSTR(s,i,1)IFx>=‘0‘andx<=‘9‘y=y+xENDIFENDFOR?“过滤后的字符串为”,y例：输入一串ASCII字符，显示数字字符串。假设输入：Av56:YijB>8显示：568。VF第讲循环结构ACCEPT“请输入一个任意字符串：”tos例：输37例：表单程序，输入一串ASCII字符，显示大写字母串或小写字符串。例如，输入“Av56:YijB>8”，点击“筛选大写字母”按钮，显示“AYB”；点击“筛选小写字母”按钮，显示“vij”。请同学们自己写出程序VF第讲循环结构例：表单程序，输入一串ASCII字符，显示大写字母串或小写字38第五讲程序设计基础（三）程序设计基础（VisualFoxPro）

杨劲副教授

电话：VF第讲循环结构第五讲程序设计基础（三）程序设计基础（Visual39本讲要点

程序文件的建立与编辑程序文件的执行程序文件中常用的命令程序的基本结构控制VF第讲循环结构本讲要点程序文件的建立与编辑VF第讲循环结构40常见的循环结构有：1）条件循环2）步长循环3）扫描循环循环结构则能够使某些语句或程序段重复执行若干次。如果某些语句或程序段需要在一个固定的位置上重复操作，使用循环是最好的选择。程序的循环结构VF第讲循环结构常见的循环结构有：1）条件循环2）步长循环3）扫描循环循环结411、条件循环（DOWHILE…ENDDO）格式：

DOWHILE<循环条件>…[LOOP][EXIT]…ENDDO

说明：

1、循环结构从DOWHILE开始，到ENDDO结束，两者必须成对出现；

5、循环结构能自身嵌套，还能与选择结构的各种形式嵌套。2、循环是否继续取决于条件的当前取值，一般情况下循环体中应含有改变条件取值的命令或跳出循环的EXIT语句，否则将造成死循环。3、[EXIT]：将控制权交给紧接在ENDDO后面的命令。4、[LOOP]：将控制权直接交给DOWHILE子句，不再执行LOOP与ENDDO之间的语句。DOWHILE<循环条件>ENDDO语句序列.F..T.VF第讲循环结构1、条件循环（DOWHILE…ENDDO）格式：说明：42DOWHILE流程图DOWHILE<循环条件>语句序列ENDDO语句序列LOOP条件分支语句序列.T..F.DOWHILE<循环条件>语句序列ENDDOEXIT条件分支语句序列.T..F.VF第讲循环结构DOWHILE流程图DOWHILE<循环条件>语句序43

第1步，计算0+1； 第2步，计算(0+1)+2； 第3步，计算(0+1+2)+3；

………

第i步，计算(0+1+…+i-1)+i；

……….

第100步，计算(0+1+…+99)+100；

递归算法EXM6：计算s=1+2+3+…+100前i-1次累加和第i次累加项VF第讲循环结构 第1步，计算0+1；递归算法EXM6：计算s=144算法：确定循环变量（计数器）i并赋初值为1

定义s存放累加和,初值为0 确定循环条件i<=100 s:=s+i确定循环变量的变化趋势i=i+1

输出结果s递推公式s=1+2+3+…+100VF第讲循环结构算法：递推公式s=1+2+3+…+100VF第讲循环结构45i<=100s=s+ii=i+1s=0，i=1开始结束输出sYN循环变量赋初值循环条件（i大于100就结束）循环变量的变化趋势从1变到100VF第讲循环结构i<=100s=s+is=0，i=1开始结束输出sY46cleas=0i=1dowhilei<=100 s=s+i i=i+1enddo?"1+2+3+...+100=",sreturn循环体VF第讲循环结构clea循环体VF第讲循环结构47程序及运行结果VF第讲循环结构程序及运行结果VF第讲循环结构48*程序例21.PRGSETTALKOFFCLEARi=0DOWHILEi<10i=i+1?iENDDOSETTALKONSETTALKOFFCLEARi=0DOWHILEi<10?iENDDOSETTALKON死循环SETTALKOFFCLEARi=0DOWHILEi<10i=1i=i+1?iENDDOSETTALKON死循环SETTALKOFFCLEARi=0DOWHILEi>10i=i+1?iENDDOSETTALKON无效循环SETTALKOFFCLEARi=0DOWHILEii=i+1?iENDDOSETTALKON语法错误*程序例21-1.PRGSETTALKOFFCLEARi=0DOWHILEi<10?ii=i+1ENDDOSETTALKON*程序例21-2.PRGSETTALKOFFCLEARi=0DOWHILEi<10i=i+1ENDDO?iSETTALKON逻辑值或逻辑表达式VF第讲循环结构*程序例21.PRG死循环死循环无效循环语法错误*程序例2149SETTALKOFFCLEARi=0DOWHILE.T.i=i+1?iENDDOSETTALKONSETTALKOFFCLEARi=0DOWHILE.T.i=i+1?iIFi=10EXITENDIFENDDOSETTALKON死循环SETTALKOFFCLEARi=0DOWHILE.T.i=i+1?iACCEPT‘是否继续’TOAIFUPPER(A)<>‘Y’EXITENDIFENDDOSETTALKON定数循环用户控制循环VF第讲循环结构死循环定数循环用户控制循环VF第讲循环结构50基本方法:属于“累加（乘）器”类型问题（1）在进入循环前先给累加（乘）器赋初值累加一般为0，累乘一般为1（2）用循环语句实现累加（乘）循环变量（计数器）赋初值；循环条件；循环变量的改变规律（3）循环体语句的设计累加器当前值=累加器原值+循环变量当前值累乘器当前值=累乘器原值*循环变量当前值VF第讲循环结构基本方法:属于“累加（乘）器”类型问题（1）在进入循环前先51EXM7：计算s=1+2+3+…+n。(P59例3-8)

VF第讲循环结构EXM7：计算s=1+2+3+…+n。(P59例3-8)V52“计算”命令按钮的“click”事件代码：n=thisform.text1.values=0x=1dowhilex<=n s=s+x x=x+1enddothisform.text2.value=sVF第讲循环结构“计算”命令按钮的“click”事件代码：VF第讲循环结构53

提示：①循环结构从dowhile开始，到enddo结束，两者必须成对出现。②循环是否继续取决于循环条件的当前取值，一般情况下循环体中应含有改变条件取值的命令或语句，否则将造成死循环。③循环结构能自身嵌套(多重循环)，还能与选择结构的各种形式嵌套。VF第讲循环结构提示：VF第讲循环结构542、计数循环（FOR…ENDFOR）格式：FOR<内存变量>=<初始值>TO<终值>[STEP<步长>]<语句序列>[LOOP][EXIT]ENDFOR/NEXT说明：

1、<内存变量>：指定作为循环计数器的内存变量或数组元素，用于控制循环的次数。在执行FOR…ENDFOR语句之前，此内存变量不一定存在。

2、<初始值>TO<终值>：<初始值>是计数器的初始值，而<终值>是计数器的终止值。

3、[STEP<步长>]：是计数器递增或递减的步长。步长可正可负，缺省为1。

4、循环体中一般不包含改变循环变量值的命令，否则循环次数将随之改变。流程图：FORi=aTOi=bSTEPc语句序列ENDFOR语句序列LOOP条件分支语句序列i<=bi>bi=i+cFORi=aTOi=bSTEPcENDFOR语句序列i>bi<=bi=i+cFORi=aTOi=bSTEPc语句序列ENDFOREXIT条件分支语句序列i<=bi>bi=i+cVF第讲循环结构2、计数循环（FOR…ENDFOR）格式：说明：流程图：FO55计算s=1+2+3+…+100cleas=0fori=1to100 s=s+iendfor?"1+2+3+...+100=",sreturnstep1VF第讲循环结构计算s=1+2+3+…+100cleastep1VF第讲循56(教材P60)【例3-9】设计如图所示表单，在文本框text1中输入N的值，求N!。VF第讲循环结构(教材P60)【例3-9】设计如图所示表单，在文本框tex57输入ni=1，fac=1i<=n

fac=fac*ii=i+1输出fac

求n！的N-S图输入nfac=1n>=1

fac=fac*nn=n-1输出fac

求n！的N-S图VF第讲循环结构输入n求n！的N-S图输入n求n！的N-S图VF第讲循环58“计算”命令按钮的“Click”事件代码：p=1fori=1tothisform.text1.value p=p*iendforthisform.text2.value=pVF第讲循环结构“计算”命令按钮的“Click”事件代码：VF第讲循环结构59关于步长循环的提示：

①步长可正可负，缺省为1。②循环体中不应包含改变循环变量值的命令，否则循环次数将随之改变。③如果循环次数可以通过计数器来控制，则计数循环较为简洁。VF第讲循环结构关于步长循环的提示：VF第讲循环结构60a=0FORi=2TO100STEP2 a=a+iENDFOR?aRETURN提示：计数循环完全可以使用条件循环替代，不过前者更为简洁。例：求1到100中偶数的和a=0i=2DOWHILEi<=100 a=a+ii=i+2ENDDO?aRETURNVF第讲循环结构a=0提示：计数循环完全可以使用条件循环替代，不过前者更为简61

条件循环步长循环

input“请输入终值：”

toninput“请输入步长：”

toki=1fori=1tonstepkdowhilei<=n<命令序列><命令序列>endfor|nexti=i+kendddoVF第讲循环结构条件循环62EXM8

：求100以内的奇数和。A=1+3+5+…+99循环变量初值x=1循环条件x<100循环变量的变化趋势x=x+2请同学们自己写出程序循环体累加语句：A=A+xVF第讲循环结构EXM8：求100以内的奇数和。A=1+3+5+…+99循63EXM9

：求循环变量初值x=1循环条件x<n循环变量的变化趋势x=x+1请同学们自己写出程序循环体累加语句：K=K+x2VF第讲循环结构EXM9：求循环变量循环条件x<n循环变量的变化请同学们自64EXM10：求所有的水仙花数。(所谓水仙花数是指一个三位数，其各位数字的立方和等于该数本身。VF第讲循环结构EXM10：求所有的水仙花数。(所谓水仙花数是指一个三位数，65编程方法：“枚举法”按问题本身的性质，一一列举出该问题所有可能的解，并在逐一列举的过程中，检验每个可能解是否是问题的真正解，若是，我们采纳这个解，否则抛弃它。对于所列举的值，既不能遗漏也不能重复。VF第讲循环结构编程方法：“枚举法”VF第讲循环结构66查找范围：三位数100~999

：任意一个三位数X百位数字X1十位数字X2个位数字X3判断这个三位数x是水仙花数的条件：X=x13+x23+x33VF第讲循环结构查找范围：三位数100~999：任意一个三位数X百位数字X67VF第讲循环结构VF第讲循环结构68例：1+2+…+n1到n的奇数和（或偶数和）

100以内能够被X整除的数之和。

请同学们自己写出程序VF第讲循环结构例：1+2+…+n请同学们自己写出程序VF第讲循环结构69(教材P60-61)【例3-10】设计如图1所示表单。运行该表单，在文本框Text1中输入一串字符，单击“逆序显示”命令按钮后，逆序显示该字符串，如图2所示。

图1图2