资源描述：
《VB编程循环结构-ppt课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、循环结构程序设计本章要点:While...Wend循环For...Next循环Do...Loop循环特点:重复相同或相似的操作步骤结构:循环体—要重复执行的语句序列。循环控制部分—规定循环的重复条件或重复次数，确定循环范围的语句语句块T循环条件While循环条件语句块Wend当循环格式：执行过程:(1)判断循环条件是否为真(2)若是,执行循环体（语句块）(3)然后返回While语句再次判断循环条件是否为真(4)重复1~3步骤。(5)否则，结束循环§1While循环结构(循环次数未知)F累加分析:累加器(变量)初值Sum=0循环体(重复执行)Su
2、m=Sum+i(i=1,2,…,N)【例1】求1+2+3+4+…+N√Text1Label3PrivateSubCommand1_Click()N=Val(Text1.Text):Sum=0i=1Whilei<=100Sum=Sum+ii=i+1WendLabel3.Caption=SumEndSub循环初值循环条件循环终值循环体循环变量增值特点:先判断表达式，后执行循环体说明:循环体有可能一次也不执行循环体可为任意类型语句退出while循环条件表达式不成立，值为.F.无限循环:While(.T.)循环体Wend【例2】显示1~10的平方√Pr
3、ivateSubForm_Click()k=1Whilek<=10Printstr(k)+”*”+str(k)+”=“+str(k*k)k=k+1WendEndSub运行结果：1*1=12*2=43*3=94*4=165*5=256*6=367*7=498*8=649*9=8110*10=100§2For循环结构(循环次数为已知)1.格式(For循环语句)For<循环变量>=<初值>To<终值>[Step<步长>]<语句组1>[ExitFor]<语句组2>Next[<循环变量>]循环体2.功能:执行过程如流程图所示例:求1~1000的和,但当和
4、超过3000时停止。s=0Fork=1to1000s=s+kifs>3000thenExitForEndifNexta=0Next循环变量=循环变量+步长k=k+1语句块FExitFor语句块T循环变量<=终值K<=10循环变量赋初值k=1FT3.说明(1)循环变量——数值变量(2)初值,终值,步长——数值表达式(3)步长>0，初值<终值（=1时,可省略）<0，初值>终值=0，死循环(4)循环次数=Max{Int(终值-初值)/步长+1),0}(5)ExitFor——退出循环，常放在条件语句中,又称“非正常出口”(6)Next之后的循环变量应与
5、For语句中的循环变量应一致，也可以省略a=0Fork=1to10a=a+kNext累加分析:已知量：累加器(变量)初值Sum=0N（输入）初值、终值和增量:1、N、1重复执行(循环体)Sum=Sum+i(i=1,2,…,N)PrivateSubCommand1_Click()DimN%,iAsInteger,Sum%N=Val(Text1.Text)Sum=0Fori=1ToNSum=Sum+iNextiLabel3.Caption=SumEndSubText1Label3【例1】求1+2+3+4+…+N√初值与终值换位可以吗？循环体的执行次
6、数是多少?i=1执行多少次？i<=N执行多少次？最后i的值是多少?i=1Whilei<=100Sum=Sum+ii=i+1WendFori=1ToNSum=Sum+iNext与前面所学While循环的不同PrivateSubCommand1_Click()EndSubN=Val(Text1.Text)Sum=0Label3.Caption=Sum【例2】求N！(N!=1×2×3×…×N)累乘分析:初始化:F=i循环体:F=F×i(i=1，2，3……N)程序:PrivateSubCommand1_Click()DimN%,iAsInteger,F
7、!’FASLongN=Val(Text1.Text)F=1Fori=1ToNF=F*iNextilabel3.caption=FEndSublabel3text1【例3】从键盘输入10个数，输出其中的最大值与最小值。PrivateSubCommand1_Click()N=Val(inputbox(“请输入一个数：”))max=N:min=NFori=1to9N=Val(inputbox(“请输入一个数：”))ifmaxNthenmin=NNextPrintmax,minEndSub例:判断以下程序段的执行结果:
8、Fori=5To1Step-1Printi*i;NextiPrintPrinti例:判断以下程序段的执行结果X=6ForK=1To10Step-2X=
