VB.Net教材循环嵌套.ppt

华中农业大学理学院计算机系 Visual Basic.NET程序设计 华中农业大学理学院计算机系 华中农业大学理学院计算机系 循环体中包含循环，称循环嵌套，或称多重循环 嵌套一层称为二重循环 多重循环中遇Exit For(Do)，只跳出当前一层循环 华中农业大学理学院计算机系 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 内外循环变量不应同名 错误 正确 华中农业大学理学院计算机系 判断某数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)) 华中农业大学理学院计算机系 For m = 3 To 99 Step 2 Next 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 华中农业大学理学院计算机系 【例4.30】：利用循环结构输出图形 * *** ***** ******* ********* 华中农业大学理学院计算机系 若干数求最大值，先假设一较小数为初值，若无法估计较小数，则取第一个数为最大值初值；然后将每一个数与最大值比较，若该数大于最大值，将该数替换为最大值；依次逐一比较。 求最小值应设置一较大数为初值。 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 * * 华中农业大学理学院计算机系