第5章vb循环结构1.pptVIP

循环结构 ;Do Loop之“当”循环;Do Loop循环示例1;S=1+2+3+……+100;S=1+2+3+……+100;Do Loop之“直到”循环;S=1+2+3+……+n;S=1+2+3+……+n;5.2 For 循环语句;For 循环变量 = 初值 To 终值 [Step 步长] [循环体] Next [循环变量] ;使用For循环计算1+3+5+……+99的值 ;使用For循环计算1+3+5+……+99的值 ;For 和Do Loop的比较;【例 5.13】利用随机数函数模拟抛硬币;在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入抛硬币次数、出现正面的次数和出现反面的次数，如图所示。;Private Sub Command1_Click() Dim n As Long Dim n1 As Long, n2 As Long Randomize n = Val(Text1.Text) n1 = 0 n2 = 0 For i = 1 To n r = Int(Rnd * 2) If r = 1 Then n1 = n1 + 1 Else n2 = n2 + 1 End If Next Text2.Text = n1 Text3.Text = n2 End Sub; 循环的嵌套——多重循环结构 如果在一个循环内完整地包含另一个循环结构，则称为多重循环，或循环嵌套，嵌套的层数可以根据需要而定，嵌套一层称为二重循环，嵌套二层称为三重循环。 下面是几种常见的二重嵌套形式：;（1）For I=…. ….. For J=…. …. Next J ….. Next I;循环嵌套;循环嵌套;循环嵌套;循环嵌套;循环嵌套;循环嵌套;【例5.8】将一角钱换成零钱（可以包括含1分、2分、5分中的任意多个面值），共有多少种换法？ 组成一角的零钱中，最多有10个1分、5个2分、2个5分。判断所有的组合中，总和正好是一角（10分）的情况有多少次即为所求。这类方法称为“穷举法”，也称“枚举法”。;打印图案;打印图案和九九乘法表;For i=1 to 4 打印第i行 换行 Next i;For i=1 to 4 打印第i行 换行 Next i;For i=1 to 4 打印第i行 换行 Next i;For i=1 to 4 打印第i行 换行 Next i;* * * * * * * * * * * * * * * * * * * * * * * *;* * * * * * * * * * * * * * * *;* * * * * * * * * * * * * * * *;* * * * * * * * * * * * * * * *;* * * * * * * * * * * * * * * *;For i=1 to 4 定位第一颗星？； For j=1 to ？ 同行打印第 j 颗 “*” Next j print Next i;打印图案;打印图案;打印九九乘法表;;;;Exit Do语句;S=1+2+3+……+100;Exit For语句;【例 5.7】给定一个数n，判断它是否是素数 ;Private Sub Form_Click() Dim i As Integer Dim n As Integer n = InputBox(请输入一个整数) For i = 2 To n-1 If n Mod i = 0 Then Exit For End If Next I If i n Then Print n 不是素数 Else Print n 是素数 End If End Sub;;常见题型;数值计算;1！+2！+3！+……n!;求自然对数e的近似值，要求其误差小于0.00001 ;Fibonacci数列 1，1，2，3，5，8，13，21，34，55… ;求斐波那契数列前十五项;求最大公约数;思考：请用Do While…Loop和Do…Loop Until改写辗转相除法求最大公约数 ;作业 2;作业 1;