《vb循环结构》PPT课件.pptVIP

循环结构,Do Loop之“当”循环,形式1: 形式2: Do While Do 语句块(循环体) 语句块(循环体) Loop Loop While ,当条件为真（true）时循环！,Do Loop循环示例1,Private sub Form_click() Dim num% num=1 Do while num=10 Print num Num=num+1 Loop End sub,Private sub Form_click() Dim num% num=1 Do Print num Num=num+1 Loop while num=10 End sub,S=1+2+3+100,Private Sub Form_Click() Dim i As Integer i为累加数 Dim sum As Integer sum为累加和 i =1 sum = 0 Do While i = 100 sum = sum + i i = i + 1 Loop Print sum End Sub,S=1+2+3+100,Private Sub Form_Click() Dim i As Integer Dim sum As Integer i = 1 sum = 0 Do sum = sum + i i = i + 1 Loop While i = 100 Print sum End Sub,Do Loop之“直到”循环,形式1: 形式2: Do Until Do 语句块(循环体) 语句块(循环体) Loop Loop Until ,直到条件为真（true）时退出循环！,S=1+2+3+n,Private Sub Command1_Click() Dim i As Integer, n As Integer Dim sum As Integer n = Val(Text1.Text) sum = 0 i = 0 Do Until i n sum = sum + i i = i + 1 Loop Text2.Text = sum End Sub,S=1+2+3+n,Private Sub Command1_Click() Dim i As Integer, n As Integer Dim sum As long n = Val(Text1.Text) sum = 0 i = 0 Do sum = sum + i i = i + 1 Loop Until i n Text2.Text = sum End Sub,5.2 For 循环语句,For循环语句是计数型循环语句，用于控制循环次数已知的循环结构。语句形式如下： For 循环变量 = 初值 To 终值 Step 步长 循环体 Next 循环变量,For 循环变量 = 初值 To 终值 Step 步长 循环体 Next 循环变量,（1）“循环变量”：必须为数值型，取值范围在初值和终值之间。 （2）“初值”、“终值”：都是数值型，可以是数值表达式。 （3）“步长”：是数值型，可以是数值表达式。 步长不能为0。如果步长是1，则Step 1可以省略不写。 （4）“循环体”：在For和Next之间一条或多条语句，他们将被执行指定的次数 。 （5）Next后面的循环变量与For语句中的循环变量必须相同。,使用For循环计算1+3+5+99的值,Private Sub Command1_Click() Dim i As Integer, n As Integer Dim sum As Integer sum = 0 For i = 1 to 99 step 2 sum = sum + i Next i Print sum End Sub,For 循环变量 = 初值 To 终值 Step 步长 循环体 Next 循环变量,使用For循环计算1+3+5+99的值,Private Sub Command1_Click() Dim i As Integer, n As Integer Dim sum As Integer sum = 0 For i = 99 to 1 step -2 sum = sum + i Next i Print sum End Sub,For 循环变量 = 初值 To 终值 Step 步长 循环体 Next 循环变量,For 和Do Loop的比较,采用For语句比Do Loop更加简明。 一般情况下，能够预先确定循环次数时，应优先采用For语句，否则的话应该使用Do Loop语句,【例 5.13】利用随机数函数模拟抛硬币,采用的方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。,在窗体上有三个文本框，名称分别是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,（2）For I=. Do While/Until . . Loop Next I,（3）Do While. For J=. . Next J Loop,（4）Do While/Until. Do While/Until . . Loop Loop,循环嵌套,Private Sub Form_Click() Dim i As Integer, j As Integer For i = 1 To 3 Print “i=” ; i For j = 1 To 3 Print Tab; “j=“; j Next j Next I End Sub,图5.6 例5.4显示结果,循环嵌套,For i = 1 To 3 Step 1 Print “i=” ; i For j = 1 To 3 Step 1 Print Tab; “j=“; j Next j Next i,i=1,i=3,i=i+1,Print “i=” ; i For j = 1 To 3 Print Tab; “j=“; j Next j,N,Y,循环嵌套,i=1,i=3,i=i+1,Print “i=“;i,j=j+1,j=1,j=3,Print Tab; “j=“; j,Y,N,Y,N,For i = 1 To 3 Step 1 Print “i=” ; i For j = 1 To 3 Step 1 Print Tab; “j=“; j Next j Next i,循环嵌套,For i = 1 To 3 Step 1 Print “i=” ; i For j = 1 To 3 Step 1 Print Tab; “j=“; j Next j Next i,i=1,i=3,i=i+1,Print “i=” ; i For j = 1 To 3 Print Tab; “j=“; j Next j,N,Y,循环嵌套,i=1,i=3,i=i+1,Print “i=“;i,j=j+1,j=1,j=3,Print Tab; “j=“; j,Y,N,Y,N,For i = 1 To 3 Step 1 Print “i=” ; i For j = 1 To 3 Step 1 Print Tab; “j=“; j Next j Next i,循环嵌套,For i = 1 To 3 Print “i=” ; i For j = 1 To 3 Print Tab; “j=“; j Next j Next i,i=1,i=3,i=i+1,j=j+1,j=1,j=3,Print Tab; “j=“; j,Y,N,Y,N,【例5.8】将一角钱换成零钱（可以包括含1分、2分、5分中的任意多个面值），共有多少种换法？ 组成一角的零钱中，最多有10个1分、5个2分、2个5分。判断所有的组合中，总和正好是一角（10分）的情况有多少次即为所求。这类方法称为“穷举法”，也称“枚举法”。,Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer Dim n As Integer Print “1分个数“, “2分个数“, “5分个数“ For i = 0 To 10 For j = 0 To 5 For k = 0 To 2 If i + j * 2 + k * 5 = 10 Then n = n + 1 Print i, j, k End If Next Next Next Print “共有“ & n & “种方法“ End Sub,图5.8 例5.8显示结果,打印图案,* * * * * * * * * * * * * * * *,* * * * * * * * * * * * * * * *,* * * * * * * * * * * * * * * * * * * * * * * *,* * * * * * * * * * * * * * * *,0 1 1 1 2 2 2 2 2 3 3 3 3 3 3 3,1 1 2 3 1 2 3 4 5 1 2 3 4 5 6 7,1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1,A A B A A B C B A A B C D C B A,打印图案和九九乘法表,* # # # * * * * * # # # # # # #,* # * # * # * * # * # * * # * *,自顶向下、逐步求精 分而治之,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 6 同行打印第 j 颗 “*” Next j print Next i,For i=1 to 4 打印第i行 换行 Next i,* * * * * * * * * * * * * * * * * * * * * * * *,For i=1 to 4 For j=1 to 6 同行打印第 j 颗 “*” Next j print Next i,For i=1 to 4 打印第i行 换行 Next i,* * * * * * * * * * * * * * * * * * * * * * * *,For i=1 to 4 For j=1 to 6 同行打印第 j 颗 “*” Next j print Next i,* * * * * * * * * * * * * * * * * * * * * * * *,For i=1 to 4 For j=1 to 6 同行打印第 j 颗 “*” Next j print Next i,Dim i%, j% For i=1 to 4 for j=1 to 6 print “* “ ; next j print Next i,* * * * * * * * * * * * * * * *,For i=1 to 4 打印第i行 换行 Next i,For i=1 to 4 For j=1 to 2*i-1 同行打印第 j 颗 “*” Next j print Next i,* * * * * * * * * * * * * * * *,For i=1 to 4 打印第i行 换行 Next i,For i=1 to 4 For j=1 to 2*i-1 同行打印第 j 颗 “*” Next j print Next i,* * * * * * * * * * * * * * * *,For i=1 to 4 打印第i行 换行 Next i,For i=1 to 4 定位第一颗星； For j=1 to 2*i-1 同行打印第 j 颗 “*” Next j print Next i,* * * * * * * * * * * * * * * *,For i=1 to 4 定位第一颗星； For j=1 to 2*i-1 同行打印第 j 颗 “*” Next j print Next i,For i=1 to 4 print tab(5-i)； For j=1 to 2*i-1 print “*”; Next j print Next i,For i=1 to 4 定位第一颗星？； For j=1 to ？ 同行打印第 j 颗 “*” Next j print Next i,For i=1 to 4 print tab(i)； For j=1 to 9-2*i print “*”; Next j print Next i,* * * * * * * * * * * * * * * *,打印图案,* # # # * * * * * # # # # # # #,For i=1 to 4 print tab(5-i)； For j=1 to 2*i-1 ? Next j print Next i,打印图案,* # * # * # * * # * # * * # * *,For i=1 to 4 print tab(i)； For j=1 to 9-2*i ? Next j print Next i,打印九九乘法表,图5.7 例5.5显示结果,Private Sub Form_Click( ) Dim se As String Print Tab(35); “九九乘法表“ Print Tab(35); “-“ For i = 1 To 9 For j = 1 To 9 se = i Next j Print Next i End Sub,Private Sub Form_Click( ) Dim se As String Print Tab(35); “九九乘法表“ Print Tab(35); “-“ For i = 1 To 9 For j = 1 To 9 se = i Next j Print Next i End Sub,Private Sub Form_Click( ) Dim se As String Print Tab(35); “九九乘法表“ Print Tab(35); “-“ For i = 1 To 9 For j = 1 To 9 se = i Next j Print Next i End Sub,Exit Do语句,Exit Do语句可以用来结束DoLoop循环。一般和选择结构语句一起配合使用。 它必须放置在DoLoop语句的循环体中。当执行到Exit Do时，程序会立即结束循环，跳到loop后面执行下面的语句。 当有多个循环嵌套使用时，Exit Do语句只跳出所在的最内层的DoLoop循环。,S=1+2+3+100,Private Sub Form_Click() Dim i As Integer Dim sum As Integer i =1 sum = 0 Do sum = sum + i i = i + 1 If i 100 Then Exit Do Loop Print sum End Sub,Exit For语句,Exit For语句可以用来结束ForNext循环。一般也和选择结构语句一起配合使用。 它必须放置在ForNext语句的循环体中。当执行到Exit For时，程序会立即结束循环，跳到Next后执行下面的语句。 当有多个循环嵌套使用时，Exit For语句只跳出所在的最内层的ForNext循环。,【例 5.7】给定一个数n，判断它是否是素数,分析：素数就是一个大于2且只能被1和本身整除的整数。 判断一个数是否为素数比较简单的方法是：用n逐个除以2n-1之间的每个整数 只要有一个可以整除，则说明n不是素数； 如果全部不能整除，则说明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,比较循环结束后循环变量i的值来判断是正常结束还是强行跳出，从而确定被验证的数n是否为素数。,对于循环的嵌套，要注意以下事项： (1) 内循环变量与外循环变量不能同名； (2) 外循环必须完全包含内循环，不能交叉； (3) 不能从循环体外转向循环体内，也不能从外循环转向内循环. 正 确 错 误,For ii =1 To 10 For jj=1 To 20 Next ii Next jj,For ii =1 To 10 For ii=1 To 20 Next ii Next ii,For ii =1 To 10 For jj=1 To 20 Next jj Next ii,For ii =1 To 10 Next ii For ii =1 To 10 Next ii,常见题型,数值计算 1!+2!+.+n! 1 - 1/3 + 1/5 - 1/7 + 1/9 + x - x3/3! + x5/5! - x7/7! + x9/9! - ,数值计算,伪代码描述： 累加项(term)赋初值，累加和(sum)赋初值 while (） sum=