VB程序设计基础循环结构.pptx

《VB程序设计基础循环结构.pptx》由会员分享，可在线阅读，更多相关《VB程序设计基础循环结构.pptx（145页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、4.4 循环结构 n计算机最擅长的功能之一就是按规定的条件，重复执行某些操作。nVB中提供了两种类型的循环语句：1.计数循环语句-循环次数固定；2.条件型循环语句-循环次数不固定，由循环条件决定。第1页/共145页4.4 循环结构 nVB中提供的循环语句：1.循环次数固定：For循环语句2.循环次数不固定的循环（1）While循环语句（2）Do Loop循环语句：循环次数不固定 第2页/共145页4.4 循环结构4.4.1 For循环语句循环语句 4.4.2 While循环语句循环语句 4.4.3 DoLoop循环语句循环语句 4.4.4 循环嵌套循环嵌套 第3页/共145页认识循环结构1问题

2、：在窗体上显示10行*(每行10个*)直接用顺序结构实现：Form1.Print String(10,*)Form1.Print String(10,*)Form1.Print String(10,*)Form1.Print String(10,*)Form1.Print String(10,*)Form1.Print String(10,*)Form1.Print String(10,*)Form1.Print String(10,*)Form1.Print String(10,*)Form1.Print String(10,*)用循环结构实现：Dim n as Integerfor n=1

3、 to 10 Form1.Print String(10,*)next n第4页/共145页前例循环结构分析：用循环结构实现：Dim n as Integer n是循环控制变量 for n=1 to 10 n的初值1，终值10，每循环1次增加1 Form1.Print String(10,*)循环体语句 next n 循环结束循环结束第5页/共145页 For循环语句 格式For 循环变量初值 To 终值 Step 步长循环体语句块Next 循环变量例:Dim n as Integerfor n=1 to 10 step 1 Print String(10,*)next n第6页/共145页

4、For循环语句使用注意事项 For 循环变量初值 To 终值 Step 步长循环体语句块Next 循环变量注意：1.循环变量必须为数值型。2.Step 步长缺省为1.例:Dim n as Integerfor n=1 to 10 Print String(10,*)next n第7页/共145页For循环语句的理解 Dim n as Integer n是循环控制变量for n=1 to 10 step 1 n的初值的初值1，终值，终值10 Print String(10,*)循环体语句next n 循环体结束u理解:对于变量n=1,2,3.到不超过10,分别执行:Print String(10

5、,*)循环体结束,产生下一个n(n=n+步长)u注意:(1)循环全部执行完后,循环变量的值为超过终值的值（如此处循环结束时n=11）(2)如果循环变量的初值一开始就超过终值,则一次也不执行循环体第8页/共145页说明：循环变量的作用有2个：之一:控制循环次数，如前例之二:不仅用于控制循环次数，而且在循环体中使用，即参与运算，这种情况更多见。第9页/共145页循环变量的作用之一:控制循环次数for n=11 to 20 step 1 Print String(10,*)next nfor n=1 to 20 step 2 Print String(10,*)next nfor n=10 to 1

6、 step -1 Print string(10,*)next n对n=10,9,8.到1，分别执行:.循环结束后n的值?循环次数的计计算：循环次数循环次数=int(20-1)/2+1)=10循环次数=int(20-11)/1+1)=10循环次数=int(1-10)/(-1)+1)=10第10页/共145页循环变量的作用之一:控制循环次数循环语句的3种情况：1.步长0:初值终值：最多见，循环变量从初值逐渐增加最后变化为终值2.步长终值循环变量从初值逐渐减少变化为终值3.如步长为0-死循环(永久循环):按crel+break终止死循环 第11页/共145页例：如下程序会输出什么？for n=1

7、to 10 step 1 Print n;String(10,*)next n循环变量的作用之二:在循环体中使用例：For n=1 To 10 Step 1 Print n;String(n,*)Next n仅用于控制循环次数不仅用于控制循环次数，还在循环体中使用第12页/共145页For循环举例问题：求：s=1+2+3+4+5+100 分析：用循环实现 1.求和结果存放在变量s中，s的初值应：s=0 2.循环控制变量用i表示，i从1,2,3，100，变化到1003.求和的过程就是让变量i从1开始,2,3.到100,要循环(反复)执行:s=s+i第13页/共145页问题：循环结束后,i的值是多

8、少?For循环举例问题：求：s=1+2+3+4+5+100Dim i%,s%i是循环控制变量，s结果变量s=0 初始值0,作为累加器(清零)for i=1 to 100 step 1 s=s+inext iForm.Print 1到100累加和=;s101第14页/共145页For循环举例问题：求：s=1+2+3+4+5+100Dim i%,s%i是循环控制变量，s结果变量s=0 初始值0,作为累加器(清零)for i=1 to 100 step 1 s=s+inext iForm.Print 1到100累加和=;s改成:for i=100 to 1 step-1 s=s+inext i第15

9、页/共145页For循环课堂练习1问题分析：对于变量 i=1,3,5，.到不超过100,分别执行:s=s+i next in问题：计算1100的奇数和 求：s=1+3+5+99第16页/共145页Dim i%,s%i是循环控制变量，s结果变量s=0 初始值,作为累加器for i=1 to 100 step 2 s=s+inext iPrint 1到100奇数和=;s结束后i的值?n问题：计算1100的奇数和 求：s=1+3+5+99For循环课堂练习1答案101第17页/共145页For循环课堂练习2n问题：计算1100之间的奇数的倒数的和 求：s=1/1+1/3+1/5+.+1/99问题分析

10、：对于变量 i=1,3,5，.到不超过100,分别执行:s=s+1/i next I特别注意：s是带小数的！第18页/共145页Dim i%,s!i是循环控制变量，s结果变量,单精度型s=0 初始值,作为累加器for i=1 to 100 step 2 s=s+1/inext iPrint 1到100奇数和=;sFor循环课堂练习2答案n问题：计算1100之间的奇数的倒数的和 求：s=1+1/3+1/5+.+1/99第19页/共145页For循环课堂练习3n问题：求：s=1-1/3+1/5-1/7+.+1/99n问题分析：n正负号交叉问题：定义一个用于处理符号的控制变量变量sign，初始值为+

11、1，再随着循环的进行，改为-1，再改为+1，再改为-1,改变的方法：sign=-signn对于变量 i=1,3,5，.到不超过100,分别执行:s=s+sign/I sign=-sign next In特别注意：s是带小数的！第20页/共145页Dim i%,s!i是循环控制变量，s结果变量,有小数,单精度Dim sign%存+1 或-1，是控制变量sign=1s=0 初始值,作为累加器for i=1 to 100 step 2 s=s+sign/i sign=-signnext iPrint s=;sFor循环课堂练习3答案n问题：求：s=1-1/3+1/5-1/7+.+1/99第21页/共

12、145页For循环课堂练习4n问题：编写一个程序 求15!n问题分析：1.m=1*2*.*152.注意15！超过1012，应该用单精度或双精度型3.参考：求：s=1+2+3+4+5+100Dim i%,s%i是循环控制变量，s结果变量s=0 初始值,作为累加器for i=1 to 100 step 1 s=s+inext iForm1.Print 1到100累加和=;s第22页/共145页For循环课堂练习4答案n问题：编写一个程序 求15!Dim i%,m#为什么用双精度?m=1 为什么=1?For i=1 To 15 Step 1 m=m*iNext iForm1.Print 15!=;m

13、第23页/共145页表 3.1 基本数据类型数据类型数据类型关键字关键字类型符类型符前缀前缀占字节数占字节数范范 围围字节型字节型Byte无无byt10255逻辑型逻辑型Boolean无无bln2True与与False整型整型Integer%int2-3276832767长整型长整型Long&lng4-21474836482147483647单精度型单精度型Single!sng4-3.402823E383.402823E38双精度型双精度型Double#dbl8-1.79769313486232D3081.79769313486232D308货币型货币型Currencycur8-9223372

14、03685477.5808922337203685477.5907日期型日期型Date无无dtm801,01,010012,31,9999 0:00:0023:59:59字符型字符型String$str与串长有关与串长有关065535个字符个字符对象型对象型Objiect无无obj4任何对象引用任何对象引用变体型变体型Variant无无vnt据分配确定据分配确定第24页/共145页参考程序：求参考程序：求15！Dim i%,m!m=1 为什么=1?For i=1 To 15 Step 1 m=m*iNext iForm1.Print 15!=;mFor循环课堂练习循环课堂练习5n问题：参考求

15、15!的程序，编写一个程序，要求能求任意数 n!第25页/共145页Dim i%,m#,n%n=inputbox(“输入输入n”)m=1For i=1 To n Step 1 m=m*iNext iMsgBox n&!=&mFor循环课堂练习循环课堂练习5答案答案n问题：参考求 15!的程序，编写一个程序，要求能求任意数 n!第26页/共145页For循环课堂练习循环课堂练习6n问题：求n至m之间自然数的累加参考求s=1+2+3+4+5+100的程序，做适当修改，使程序能对任意2个数n到m之间的自然数累加参考程序：求s=1+2+3+4+5+100Dim i%,s%i是循环控制变量，s结果变量s

16、=0 初始值0,作为累加器(清零)for i=1 to 100 step 1 s=s+inext iPrint 1到100累加和=;s第27页/共145页For循环课堂练习循环课堂练习6答案答案n问题：求n至m之间自然数的累加参考求s=1+2+3+4+5+100的程序，做适当修改，使程序能对任意2个数n到m之间的自然数累加Dim i%,sum%,n%,m%n=inputbox(“输入输入n”)m=inputbox(“输入输入m”)sum=0For i=n To m Step 1 sum=sum+iNext iMsgBox n&至至&m&累加累加=&sum 第28页/共145页注意存放累加与连乘

17、的变量初值是不同的！累加初值为0，连乘初值为1Dim i%,sum%,n%n=inputbox(“输入输入n”)sum=0For i=1 To n Step 1 sum=sum+iNext iMsgBox sum Dim i%,m#,n%n=inputbox(“输入输入n”)m=1For i=1 To n Step 1 m=m*iNext iMsgBox n&!=&m第29页/共145页 这样有什么问题?Dim i%,sum%,n%n=inputbox(“输入输入n”)For i=1 To n Step 1 sum=0 sum=sum+iNext iMsgBox sum Dim i%,m#,n

18、%n=inputbox(“输入输入n”)For i=1 To n Step 1 m=1 m=m*iNext iMsgBox n&!=&m错误1第30页/共145页 Dim i%,sum%,n%n=inputbox(“输入输入n”)sum=0For i=1 To n Step 1 sum=sum+i MsgBox sum Next iDim i%,m#,n%n=inputbox(“输入输入n”)m=1For i=1 To n Step 1 m=m*i MsgBox n&!=&mNext i这样有什么问题?错误2第31页/共145页 Dim i%,sum%sum=0For i=1 To 100 S

19、tep 1 sum=sum+i i=1 Next iMsgBox sum 这样有什么问题?错误3for循环变量的值会自动修改不要在for循环体中给循环变量赋值,第32页/共145页n编写程序，从键盘上任意输入10个数,输出这10个数的累加值Dim i%,sum%,a%sum=0For i=1 To 10 Step 1 a=inputbox(请输入第请输入第&i&个数个数:)sum=sum+aNext iMsgBox 合计合计=&sum 怎样输出平均值?For循环课堂练习循环课堂练习7第33页/共145页n编写程序，从键盘上任意输入10个数,输出这10个数的累加值，平均值For循环课堂练习循环课

20、堂练习8Dim i%,sum%,a%,aver!sum=0For i=1 To 10 Step 1 a=InputBox(请输入第&i&个数:)sum=sum+aNext iaver=sum/10MsgBox 合计=&sum&；平均=&aver第34页/共145页以上例子都是在一个例子的基础之上扩充功能或者小改功能得到的，都有类似之处以下讲解FOR循环的其它例子第35页/共145页For循环举例1例：编写程序，在窗体上显示ASCII码表中ASCII码的值为32至126的字符（即可见字符），显示如图示，每行显示5个。第36页/共145页For循环举例1n分析1：已经知道一个字符的ASCII码值，

21、求这个字符是什么字符，需要用函数：chr(N)chr(N)得到ASCII码为N的字符 例如：chr(32)=chr(48)=0 chr(65)=A chr(97)=a chr(13)=回车第37页/共145页n分析2：要在窗体上输出ASCII码值为32的字符，如图，可以用以下语句：Dim i%i=32Form1.Print Chr(i);=;i要在窗体上输出ASCII码值为33的字符，可以用以下语句：Dim i%i=33Form1.Print Chr(i);=;i第38页/共145页问题：如何输出ASCII码的值为32至126的字符?第39页/共145页For循环举例1n分析3：要在窗体上输出

22、ASCII码值为32到ASCII码值为126的字符，可以用一个固定次数的循环Dim i%For i=32 to 126 step 1 Form1.print chr(i);=;iNext i问题：只显示在一列上，达不到要求！第40页/共145页For循环举例n分析4：在一行显示多个输出项Dim i%For i=32 to 126 step 1 Form1.print chr(i);“=”;i，Next i问题：都显示在一行上，达不到要求！怎么才能每行显示5个？第41页/共145页For循环举例n分析5：增加一个变量a%,用于记录输出的个数，a的初值为0，每输出1个项，a增加1,当a=5时，输出

23、一个换行，换行后将a重新设置为0 n如何换行？Private Sub Form_Click()Dim i%,a%a=0For i=32 To 126 Step 1 Form1.Print Chr(i);=;i,a=a+1 If a=5 Then Form1.Print a=0 End IfNext iEnd SubForm1.print第42页/共145页For循环举例1:结果Private Sub Form_Click()Dim i%,a%a=0For i=32 To 126 Step 1 Form1.Print Chr(i);=;i,a=a+1 If a=5 Then Form1.Prin

24、t a=0 End IfNext iEnd Sub第43页/共145页For循环举例1分析6：输出也可以要求指定输出项之间的间隔，例如要求用6个空格分隔2个输出项 Form1.Print Spc(6);Private Sub Form_Click()Dim i%,a%a=0 清零For i=32 To 126 step 1 Form1.Print Chr(i);=;i;Spc(6);a=a+1 显示个数加1 If a=5 Then 够5个了 Form1.Print 换行 a=0 清零 End IfNext iEnd Sub第44页/共145页输出也可以要求指定输出项之间的间隔，例如要求用3个空

25、格分隔2个输出项 Form1.Print Spc(6);第45页/共145页For循环举例2例：参考前例,输出100至300之间可以被3整除或被5整除的数,两数间空4个空格,每8个数换行 第46页/共145页For循环举例2n分析：1.判断一个数i能被3整除或被5整除的条件表达式:i mod 3=0 OR i mod 5=02.输出100至300之间可以被3整除或被5整除的数,两数间空4个空格Dim i%,For i=100 To 300 step 1 if i mod 3=0 OR i mod 5=0 then Form1.Print i;Spc(4);end ifNext i问题：每8个数

26、换行?第47页/共145页Dim i%,a%a=0For i=100 To 300 step 1 if i mod 3=0 OR i mod 5=0 then Form1.Print i;Spc(4);a=a+1 If a=8 Then Form1.Print a=0 End If end ifNext i 例：参考前例,输出100至300之间可以被3整除或被5整除的数,两数间空4个空格,每8个数换行 第48页/共145页n例：参考前例,输出100至300之间可以被3整除或被5整除的数,两数间空4个空格,每8个数换行,结果：第49页/共145页功能扩充：如果要求最后输出符合条件的数据个数，怎么

27、办?n处理：增加一个用于统计符合条件的数据个数的变量n%，初值为0，每输出一个符合条件的数据，n增加1，循环结束后输出n的值第50页/共145页例 输出100至300之间可以被3整除的数,每8个数换行,最后输出个数Dim i%,a%,n%n是用于统计个数的变量,称为计数器a=0:n=0 清零For i=100 To 300 step 1 if i mod 3=0 OR i mod 5=0 then Form1.Print i;Spc(4);n=n+1 计数 加1 a=a+1 If a=8 Then Form1.Print a=0 End If end if Next iForm1.Print

28、被3或5整除的个数=;n第51页/共145页思考：如果要求显示这些数的合计和平均?第52页/共145页For循环举例3 水仙花数问题水仙花数问题第53页/共145页For循环举例3 水仙花数问题水仙花数问题 153=13+53+33 水仙花数是指每个位上的数字的 3 次幂之和等于它本身。问题:输出所有3位数中的水仙花数第54页/共145页For循环举例3 水仙花数问题水仙花数问题分析：1.输出所有3位数中的水仙花数即找出100999之间的水仙花数For i=100 to 999 step 1 if end ifNext i第55页/共145页分析：2.如何判断一个数 i是水仙花数？假如i的百位

29、数是a,十位数是b，个位数是c，则：For i=100 to 999 step 1 if i=a3+b3+c3 then form1.print I,end ifNext i问题：如何能求出一个3位数i的百位数a,十位数b,个位数c？第56页/共145页分析：3.问题：如何能求出一个3位数i的百位数a,十位数b,个位数c？假设 i=123,则：百位数a：a=Int(i/100)十位数b：b=Int(i-100*a)/10)个位数c：c=i Mod 10 第57页/共145页For循环举例3:输出所有3位数中的水仙花数Dim i%,a%,b%,c%百位数,十位数,个位数 For i=100 To

30、 999 Step 1 a=Int(i/100)b=Int(i-100*a)/10)c=i Mod 10 If a 3+b 3+c 3=i Then Form1.Print i,End If Next i第58页/共145页For循环举例4例 输入两个整数,输出最大公约数.第59页/共145页For循环举例4：求最大公约数.分析1:直观的来看：两个整数a,b(例如:3,7)，最大公约数应该是1 两个整数a,b(例如:24,4)，最大公约数应该是4 两个整数a,b(例如:12,6)，最大公约数应该是6 即：两个整数a,b 的最大公约数应该是在二者中那个小的数与1之间。如果用min存放a和b中那个

31、小的数：a,b的最大公约数范围是从min 到1For i=min To 1 Step-1 If Then MsgBox 最大公约数=&i Exit For 跳出For循环(终止循环)End IfNext i第60页/共145页For循环举例4：求两数的最大公约数.分析2:如何判断数i是a,b的最大公约数？如果数i是a,b的最大公约数,则应该有：a Mod i=0 And b Mod i=0 第61页/共145页For循环举例4分析:2.算法（1）输入a,b (2)把a,b中小者存放到min中（3）循环：从i=min 到 1，每次减1，一个个i判断能否同时整除a,b,如果能，此时i的值就是a,b

32、的最大公约数，否则，继续判断下一个I,第62页/共145页For循环举例4：程序例 输入两个整数,输出最大公约数.Dim a%,b%,min%,i%a=Val(InputBox(输入a)b=Val(InputBox(输入b)If a b Then min=a Else min=b 小的数存入xFor i=min To 1 Step-1 If a Mod i=0 And b Mod i=0 Then MsgBox 最大公约数=&i Exit For 跳出For循环(终止循环)End IfNext i第63页/共145页For循环举例5例:求两数的最小公倍数?第64页/共145页For循环举例5：

33、求两数的最小公倍数分析1:两个整数a,b(例如:12,4),最小公倍数是12，是二者中大者两个整数a,b(例如:3,7)，最小公倍数是21，是二者的乘积两个整数a,b(例如:12,8)，最小公倍数是24所以：如果将其中大的数存入max,则a,b的最小公倍数范围是从?到?a,b的最小公倍数范围是从max到a*bfor i=max to a*b step 1?next i第65页/共145页For循环举例5：求两数的最小公倍数分析2:如何判断数i是a,b的最小公倍数？如果数i是a,b的最小公倍数，则应该有：I mod a=0 and I mod b=0a,b的最小公倍数范围是从max到a*b第66

34、页/共145页For循环举例:仿照例子参考以下求最小公倍数的程序写出求最大公约数的程序.dim a%,b%,x%,i%a=inputbox(输入a)b=inputbox(输入b)if a b Then max=a Else max=bFor i=max To a*b Step 1 If i Mod a=0 And i Mod b=0 Then MsgBox a&和&b&的最小公倍数=&i Exit For 跳出For循环(终止循环)End IfNext i第68页/共145页For循环举例6判断一个数是否是素数.第69页/共145页For循环举例6：判断一个数是否是素数.分析1：根据数学知识：

35、判断一个自然数a是否是素数?对于a,用 2-a-1之间的所有自然数一一去除a,看是否存在一个数i，能够整除a，如果能，说明不是素数；如果不能，说明是素数Dim a%,i%a=val(InputBox(输入a)Dim a%,i%a=InputBox(输入a)For i=2 To a-1 Step 1 If a Mod i=0 Then Exit For End IfNext i第70页/共145页For循环举例6：判断一个数是否是素数.分析2：如果在 2-a-1 之间有一个数i，能够整除a，就表明a不是素数，就不需要继续判断了；如果一直都没有一个数i能够整除a,直到循环结束，则a是素数，所以可以

36、依据循环结束时循环变量i的值得到是否是素数的结论。循环正常结束时，循环变量的值是多少？Dim a%,i%a=val(InputBox(输入a)Dim a%,i%a=InputBox(输入a)For i=2 To a-1 Step 1 If a Mod i=0 Then Exit For End IfNext i大于a-1第71页/共145页For循环举例6：判断一个数是否是素数程序.Dim a%,i%a=InputBox(输入a)For i=2 To a-1 Step 1 If a Mod i=0 Then Exit For End IfNext iIf i a-1 Then MsgBox a

37、&是素数Else MsgBox a&不是素数End If思考：如果写成：If i=a then行否？答案：不行！原因：如果a=1，循环体一次也不执行，但i=2却执行了，出错！第72页/共145页For循环举例6：判断一个数是否是素数.另一种常用程序设计方法：引入一个标志变量如果在 2-a-1 之间有一个数i，能够整除a，就表明a不是素数，就不需要继续判断了；如果一直都没有一个数i能够整除a,直到循环结束，则a是素数。增加一个标志变量，如sushu，赋初始值为1，如果在循环中找到一个I,能整除a,则为sushu重新赋值为0，提前结束循环；如果一直没有一个能整除a的i出现，则循环正常结束，sush

38、u的值仍然为1。最后，根据sushu的值给出是否素数的结论注意：这里采用了程序设计中经常用到的一种方法：采用标志变量，当标志变量为某个值时，代表着一种结果，反之，代表另一种结果。第73页/共145页For循环举例6 判断是否是素数.Dim a%,i%,sushu%a=InputBox(输入a)sushu=1 sushu=1表示是素数For i=2 To a-1 Step 1 If a Mod i=0 Then sushu=0 Exit For End IfNext iIf sushu=1 Then MsgBox a&是素数Else MsgBox a&不是素数End If注意：这里采用了程序设计

39、中经常用到的一种方法：采用标志变量，当标志变量为某个值时，代表着一种结果，反之，代表另一种结果。第74页/共145页第4 4章 VBVB程序设计基础4.4 循环结构循环结构4.4.1 For循环语句循环语句 4.4.2 While循环语句循环语句 4.4.3 DoLoop循环语句循环语句 4.4.4 循环嵌套循环嵌套 第79页/共145页Dim n%,s!n是循环变量，s结果变量,单精度型s=0 初始值,作为累加器For n=1 to 100 step 2 s=s+1/nNext nPrint s回忆：例回忆：例 计算s=1/1+1/3+1/5+.s=1/1+1/3+1/5+.+1/99如果用

40、for循环实现：For循环特点:循环变量有初值,终值,步长确定,循环次数是确定的循环变量自动赋初值,自动增量变化第80页/共145页例例 前述问题改为：计算 s=1/1+1/3+1/5+.s=1/1+1/3+1/5+.一直累加到数据项10-4为止 n分析：一直累加到数据项=10-4就一直累加n需要累加多少项，预先并不知道第81页/共145页例例 前述问题改为：计算 s=1/1+1/3+1/5+.s=1/1+1/3+1/5+.一直累加到数据项10-4为止 Dim n%,s!n是循环变量，s结果变量,单精度型s=0 初始值,作为累加器n=1 循环变量初值For n=1 To 20000 s=s+n

41、 If 1/n 10 -4 Then Exit For End IfNext n Form1.Print n=;nForm1.Print s=;s预先估计一个相当大的数，在循环中判断，符合条件了，提前退出循环。第82页/共145页例例 前述问题改为：计算 s=1/1+1/3+1/5+.s=1/1+1/3+1/5+.一直累加到数据项10-4为止 For循环解决不太方便，这种问题用while循环最好！Dim n%,s!n是循环变量，s结果变量,单精度型s=0 初始值,作为累加器n=1 循环变量初值For n=1 To 10000 s=s+n If 1/n 10 -4 Then Exit For E

42、nd IfNext n Form1.Print n=;nForm1.Print s=;s第83页/共145页4.4.2 While循环一般格式：While 循环体 Wend说明：While语句先对条件进行测试，当条件为True执行循环体While循环与For循环的区别：ForFor循环的循环次数是确定的循环的循环次数是确定的WhileWhile按条件循环按条件循环,循环次数可能不确定循环次数可能不确定第84页/共145页While循环举例(次数不确定)分析：一直累加到数据项=10-4就一直累加需要累加多少项，预先并不知道。如果用n表示数据项的分母：n=1当 1/n=10-4 s=s+1/n n

43、=n+2循环体结束输出s例例 计算s=1/1+1/3+1/5+.s=1/1+1/3+1/5+.直到数据项=10-4就一直累加第85页/共145页While循环举例(次数不确定)Dim n%,s!n是循环变量，s结果变量,单精度型s=0 初始值,作为累加器n=1 循环变量初值While 1/n=10 (-4)s=s+1/n n=n+2 循环变量增量WendForm1.Print n=;nForm1.Print s=;s例例 计算s=1/1+1/3+1/5+.s=1/1+1/3+1/5+.直到数据项=10-4就一直累加必须用语句给循环变量赋初值和完成增量循环体应能使条件改变，否则变死循环第86页/

44、共145页以下就之前介绍的用for循环解决的问题改为用while循环解决，比较一下解决同样问题二者的不同表达方法第87页/共145页For循环与While循环比较：例：求1+2+3+10While循环Dim n%,m%m=0While n=10 m=m+n n=n+1WendForm1.Print mFor循环Dim n%,m%m=0For n=1 To 10 Step 1 m=m+nNext nForm1.Print m第88页/共145页For循环与While循环比较：例：求10！While循环Dim n%,m!n=1m=1While n=10(-4)s=s+1/n n=n+2 循环变量增

45、量WendPrint s例例 计算s=1/1+1/3+1/5+.s=1/1+1/3+1/5+.直到数据项=10-4就一直累加n课堂练习：仿照前例编写程序：求几的阶乘刚好大于或等于100000?第90页/共145页While循环举例(次数不确定)n分析：这里是求循环变量分析：这里是求循环变量n的值为多少时阶乘的值正好大于或等于的值为多少时阶乘的值正好大于或等于100000，换言之，当阶乘的值小于，换言之，当阶乘的值小于100000时，累乘就要进行，反之，时，累乘就要进行，反之，结束累乘，输出结束累乘，输出n的值的值n课堂练习：仿照前例编写程序：求几的阶乘刚好大于或等于100000?第91页/共1

46、45页While循环举例(次数不确定)Dim n%,m!n是循环变量，m阶乘值,单精度型n=1 循环变量初值m=1 初始值,作为连乘器While m 100000 n=n+1 循环变量增量 m=m*nWendPrint n,m例例 求几的阶乘刚好大于或等于100000?注意：此语句必须写在求阶乘语句之前！这样才能得到准确的n第92页/共145页While 循环例题例例 一张一张厚度厚度为为0.5mm0.5mm的纸，的纸，折多少次折多少次可以达到或可以达到或超过珠穆朗玛峰的高度超过珠穆朗玛峰的高度8848.13m8848.13m？n分析：1.假设纸张的厚度用x表示，则初值为0.5mm；折叠次数如

47、用 n表示，则初值为0次2.每折叠一次，厚度是原来的2倍，即x=x*2;折叠的次数加1，即n=n+13.什么条件下需要折叠呢：while x8848130 Wend4.循环结束时，输出折叠次数n,厚度x第93页/共145页While 循环例题例例 一张一张厚度厚度为为0.5mm0.5mm的纸，的纸，折多少次折多少次可以达到或可以达到或超过珠穆朗玛峰的高度超过珠穆朗玛峰的高度8848.13m8848.13m？Private Sub form_Click()Dim x#,n%纸张厚度 循环变量 x=0.5 开始值 n=0 While x 8848130 x=x*2 n=n+1 Wend Print

48、 叠了;n;次 厚度为;xEnd Sub第94页/共145页While循环例题(次数不确定)例例如果你工作后第一年如果你工作后第一年收入收入5W5W，以后每年增长，以后每年增长10%10%，每年能，每年能攒下攒下收入的收入的60%60%，问：多少，问：多少年年后咱能后咱能成为李百万、王百万们成为李百万、王百万们(不考虑利息不考虑利息)，哈哈哈？，哈哈哈？第95页/共145页分析：1.用变量n表示要求的变量n年，初值为1：n=1用变量ShouRu表示每年的收入，初值为5:shouru=5用变量CunKuan 表示每年的存款，初值为cunkuan=5*0.62.随着年n的增加，收入和存款数在发生变

49、化 n=1 shouru=shouru*1.1 cunkuan=cunkuan+shouru*0.63.什么条件下需要累加存款？while cunkuan100 wend4.输出结果：存款年数n,存款数：cunkuan While循环例题(次数不确定)第96页/共145页While循环例题(次数不确定)例例如果你工作后第一年如果你工作后第一年收入收入5W5W，以后每年增长，以后每年增长10%10%，每年能，每年能攒下攒下收入的收入的60%60%，问：多少，问：多少年年后咱能后咱能成为李百万、王百万们成为李百万、王百万们(不考虑利息不考虑利息)，哈哈哈？，哈哈哈？Dim n%,ShouRu!,C

50、unKuan!n循环变量表示年 n=1 第一年n ShouRu CunKuan初值 Shouru=?CunKuan=?While?修改n?修改ShouRu?修改CunKuan?Wend Print 年数为：;n;存款为：;CunKuan5 5*0.6CunKuan100ShouRu=ShouRu*1.1CunKuan=CunKuan+ShouRu*0.6n=n+1第97页/共145页While循环例题(次数不确定)例例如果你工作后第一年如果你工作后第一年收入收入5W5W，以后每年增长，以后每年增长10%10%，每年能，每年能攒下攒下收入的收入的60%60%，问：多少，问：多少年年后咱能后咱能成