VB程序设计课件第十讲循环嵌套.pptVIP

本讲内容： 循环的嵌套 循环体中包含循环，称循环嵌套，或称多重循环 嵌套一层称为二重循环 多重循环中遇Exit For(Do)，只跳出当前一层循环 For m = 3 To 99 Step 2 Next m 【例】?100元买100只鸡，公鸡每只5元，母鸡每只3元，小鸡3只1元，可买公、母、小鸡各多少只？ 设公鸡X只，母鸡Y只，小鸡Z只，列出方程： X+Y+Z=100 5X+3Y+Z/3=100 可穷举X、Y、Z的每一种取值，符合就是其中一种方案 Z=100-X-Y求得，因此可改为二重循环 For X = 0 To 100 For Y = 0 To 100 Z = 100 - X - Y If 5 * X + 3 * Y + Z / 3 = 100 _ Then Label1.Text = X Y Z Next YNext X * * 编程小贴士 设置属性确定事件； 构思算法草拟代码； 多写注释调整思路； 全面检查就这一招！ 编程思想：“初始化－输入－处理－输出” 小强：我们做个游戏吧！ 小白：什么游戏？ 小强：咱吃一口饭唱一句歌，直到吃饱。 小白：为什么呢？ For i =1 To 10 For j=1 To 20 … Next j Next i For i=1 To 10 For j=1 To 20 … Next i Next j 错误 内外循环不要交叉 正确 For i = 1 To 10 For i= 1 To 10 …… Next i Next i For i = 1 To 10 … Next i For i = 1 To 10 … Next i 内外循环变量不应同名 错误 正确 00 Dim i%, j%, k% 10 For i=1 To 12 Step 3 20 For j=6 To 2 Step -2 30 k=j 40 Label1.Text = i j 50 Next j 60 Next i 70 Label1.Text = i j k 分析第20、30句执行的次数，70句输出结果 例：循环嵌套 —— 九九乘法表 P.165 素数是一个大于2，且只能被1和本身整除的整数 判别某数m是否为素数的方法: 对于m 从 i=2，3，…，m-1判别m能否被i整除，只要有一个能整除，m不是素数，否则m是素数。 1. 素 数 常用算法： 判断某数m是否为素数 For i=2 to m-1 if m mod i=0 then Exit For 被整除 Next i Exit For 退出当前循环 If i=m then Label1.Text =“m是素数” Else Label1.Text =“m非素数” End if Int(Math.sqrt(m)) 【例】 显示3～100之间的所有素数 For i = 2 To Int(Math.Sqrt(m)) If m Mod i = 0 Then Exit For Next i If i Int(Math.Sqrt(m)) Then Label1.Text = m 2. 穷举法 穷举法：列举所有可能方案，找出符合要求的 事实上X和Y的循环可 分别为0到20和0到33 若干数求最大值，先假设一较小数为初值，若无法估计较小数，则取第一个数为最大值初值；然后将每一个数与最大值比较，若该数大于最大值，将该数替换为最大值；依次逐一比较。 求最小值应设置一较大数为初值。 3. 求最大或最小值 例 随机产生10个100～200之间的数，求最大值。 x = Int(Rnd * 101 + 100) max = x For i = 1 To 9 x = Int(Rnd * 101 + 100) If x max Then max = x Next i Label1.Text = 最大值= max 1．内外循环之间的联系 2. 素数、穷举、最大最小值 内 容 小 结