VB程序设计课件第10讲循环嵌套

《VB程序设计课件第10讲循环嵌套》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第10讲嵌套循环编程小贴士设置属性确定事件；构思算法草拟代码；多写注释调整思路；全面检查就这一招！编程思想：“初始化－>输入－>处理－>输出”本讲内容：循环的嵌套小强：我们做个游戏吧！小白：什么游戏？小强：咱吃一口饭唱一句歌，直到吃饱。小白：为什么呢？2循环体中包含循环，称循环嵌套，或称多重循环嵌套一层称为二重循环多重循环中遇ExitFor(Do)，只跳出当前一层循环多重循环控制3Fori=1To10Forj=1To20…NextjNextiFori=1To10Forj=1To20…NextiNextj错误内外

2、循环不要交叉正确4Fori=1To10Fori=1To10……NextiNextiFori=1To10…NextiFori=1To10…Nexti内外循环变量不应同名错误正确500Dimi%,j%,k%10Fori=1To12Step320Forj=6To2Step-230k=j40Label1.Text=i&j50Nextj60Nexti70Label1.Text=i&j&k分析第20、30句执行的次数，70句输出结果6例：循环嵌套——九九乘法表P.1657素数是一个大于2，且只能被1和本身整除的整数判别某数

3、m是否为素数的方法:对于m从i=2，3，…，m-1判别m能否被i整除，只要有一个能整除，m不是素数，否则m是素数。1.素数常用算法：8判断某数m是否为素数Fori=2tom-1ifmmodi=0thenExitFor'被整除NextiExitFor退出当前循环Ifi=mthenLabel1.Text=“m是素数”ElseLabel1.Text=“m非素数”EndifInt(Math.sqrt(m))9Form=3To99Step2Nextm【例】显示3～100之间的所有素数Fori=2ToInt(Math.Sq

4、rt(m))IfmModi=0ThenExitForNextiIfi>Int(Math.Sqrt(m))ThenLabel1.Text&=m10【例】100元买100只鸡，公鸡每只5元，母鸡每只3元，小鸡3只1元，可买公、母、小鸡各多少只？设公鸡X只，母鸡Y只，小鸡Z只，列出方程：X+Y+Z=1005X+3Y+Z/3=100可穷举X、Y、Z的每一种取值，符合就是其中一种方案2.穷举法穷举法：列举所有可能方案，找出符合要求的11Z=100-X-Y求得，因此可改为二重循环ForX=0To100ForY=0To1

5、00Z=100-X-YIf5*X+3*Y+Z/3=100_ThenLabel1.Text&=X&Y&ZNextYNextX事实上X和Y的循环可分别为0到20和0到3312若干数求最大值，先假设一较小数为初值，若无法估计较小数，则取第一个数为最大值初值；然后将每一个数与最大值比较，若该数大于最大值，将该数替换为最大值；依次逐一比较。求最小值应设置一较大数为初值。3.求最大或最小值13例随机产生10个100～200之间的数，求最大值。x=Int(Rnd*101+100)max=xFori=1To9x=Int(

6、Rnd*101+100)Ifx>maxThenmax=xNextiLabel1.Text="最大值="&max141．内外循环之间的联系2.素数、穷举、最大最小值内容小结15