第五章循环结构PPT课件

1、2021/7/23122021/7/23Do Loop之“当”循环形式1: 形式2:Do While Do 语句块(循环体) 语句块(循环体)Loop Loop While 当条件为真（当条件为真（true）时循环！）时循环！32021/7/23Do Loop循环示例1Private sub Form_click()Dim num%num=1Do while num=10Print numNum=num+1LoopEnd subPrivate sub Form_click()Dim num%num=1Do Print numNum=num+1Loop while num=10End sub42

2、021/7/23S=1+2+3+100Private 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 sumEnd Sub52021/7/23S=1+2+3+100Private Sub Form_Click()Dim i As IntegerDim sum As Integer i = 1 sum = 0 Do sum = sum + i i = i + 1 Loop While i

3、 = 100 Print sumEnd Sub62021/7/23Do Loop之“直到”循环形式1: 形式2:Do Until Do 语句块(循环体) 语句块(循环体)Loop Loop Until 直到条件为真（true）时退出循环！72021/7/23S=1+2+3+nPrivate 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.T

4、ext = sumEnd Sub82021/7/23S=1+2+3+nPrivate 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 = sumEnd Sub92021/7/235.2 For 循环语句nFor循环语句是计数型循环语句，用于控制循环次数已知的循环结构。语句形式如下：For 循环变量 = 初值 To 终值 Step 步长

5、循环体Next 循环变量 102021/7/23For 循环变量 = 初值 To 终值 Step 步长 循环体Next 循环变量 （1）“循环变量循环变量”：必须为数值型，取：必须为数值型，取值范围在初值和终值之间。值范围在初值和终值之间。（2）“初值初值”、“终值终值”：都是数值型，：都是数值型，可以是数值表达式。可以是数值表达式。（3）“步长步长”：是数值型，可以是数值：是数值型，可以是数值表达式。表达式。 步长不能为步长不能为0。如果步长是。如果步长是1，则，则Step 1可以省略不写。可以省略不写。（4）“循环体循环体”：在：在For和和Next之间一之间一条或多条语句，他们将被执行指

6、定的次数条或多条语句，他们将被执行指定的次数。（5）Next后面的循环变量与后面的循环变量与For语句中语句中的循环变量必须相同。的循环变量必须相同。112021/7/23使用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 + iNext iPrint sumEnd SubFor 循环变量 = 初值 To 终值 Step 步长 循环体Next 循环变量 122021/7

7、/23使用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 + iNext iPrint sumEnd SubFor 循环变量 = 初值 To 终值 Step 步长 循环体Next 循环变量 132021/7/23For 和Do Loop的比较n采用For语句比Do Loop更加简明。n一般情况下，能够预先确定循环次数时，应优先采用For语句，否则的话应该使用Do Lo

8、op语句142021/7/23【例 5.13】利用随机数函数模拟抛硬币n采用的方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。152021/7/23n在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入抛硬币次数、出现正面的次数和出现反面的次数，如图所示。162021/7/23Private Sub Command1_Click()Dim n As LongDim n1 As Long, n2 As LongRandomizen = Val(Text1.Text)n1 = 0n2 = 0For i = 1 To nr = Int

9、(Rnd * 2)If r = 1 Thenn1 = n1 + 1Elsen2 = n2 + 1End IfNextText2.Text = n1Text3.Text = n2End Sub172021/7/23 循环的嵌套循环的嵌套多重循环结构多重循环结构 如果在一个循环内完整地包含另一个循环结构，则称如果在一个循环内完整地包含另一个循环结构，则称为多重循环，或循环嵌套，嵌套的层数可以根据需要而定，为多重循环，或循环嵌套，嵌套的层数可以根据需要而定，嵌套一层称为二重循环，嵌套二层称为三重循环。嵌套一层称为二重循环，嵌套二层称为三重循环。下面是几种常见的二重嵌套形式：下面是几种常见的二重嵌套形

10、式：182021/7/23（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 . Loop192021/7/23循环嵌套Private Sub Form_Click()Dim i As Integer, j As IntegerFor i = 1 To 3 Print i=” ; i For j = 1 To 3 Pr

11、int Tab; j=; j Next jNext IEnd Sub图图5.6 例例5.4显示结果显示结果202021/7/23循环嵌套For i = 1 To 3 Step 1 Print i=” ; i For j = 1 To 3 Step 1 Print Tab; j=; j Next jNext ii=1i=3i=i+1Print i=” ; iFor j = 1 To 3 Print Tab; j=; j Next jNY212021/7/23循环嵌套i=1i=3i=i+1Print “i=“;ij=j+1j=1j=3Print Tab; j=; jYNYNFor i = 1 To

12、 3 Step 1 Print i=” ; i For j = 1 To 3 Step 1 Print Tab; j=; j Next jNext i222021/7/23循环嵌套For i = 1 To 3 Step 1 Print i=” ; i For j = 1 To 3 Step 1 Print Tab; j=; j Next jNext ii=1i=3i=i+1Print i=” ; iFor j = 1 To 3 Print Tab; j=; j Next jNY232021/7/23循环嵌套i=1i=3i=i+1Print “i=“;ij=j+1j=1j=3Print Tab;

13、 j=; jYNYNFor i = 1 To 3 Step 1 Print i=” ; i For j = 1 To 3 Step 1 Print Tab; j=; j Next jNext i242021/7/23循环嵌套For i = 1 To 3 Print i=” ; i For j = 1 To 3 Print Tab; j=; j Next jNext ii=1i=3i=i+1j=j+1j=1j 100 Then Exit DoLoopPrint sumEnd Sub462021/7/23Exit For语句nExit For语句可以用来结束For.Next循环。一般也和选择结构语

14、句一起配合使用。n它必须放置在For.Next语句的循环体中。当执行到Exit For时，程序会立即结束循环，跳到Next后执行下面的语句。n当有多个循环嵌套使用时，Exit For语句只跳出所在的最内层的For.Next循环。472021/7/23【例【例 5.7】给定一个数】给定一个数n，判断它是否是素数，判断它是否是素数 n分析：素数就是一个大于2且只能被1和本身整除的整数。n判断一个数是否为素数比较简单的方法是：用n逐个除以2n-1之间的每个整数只要有一个可以整除，则说明n不是素数；如果全部不能整除，则说明n是素数。482021/7/23Private Sub Form_Click()

15、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 0.00001 e = e + t i = i + 1 n = n * i 连乘连乘，求阶乘，求阶乘 t = 1 / n 累加项累加项LoopPrint 计算了计算了 ; i; 项的和是项的和是 ; eEnd Sub542021/7/23nFibonacci数列 1，1，2，3，5，8，13，21，34，55 12121( 1)2(2)(3)nnnfnfnfffn12/12/20215512/12/20215612/12/202157582021/7/23作业 2n求求100100以内的所有素数。以内的所有素数。n求斐波那契数列第多少项大于求斐波那契数列第多少项大于500500，并打印，并打印出该项的值。出该项的值。nDo WhileLo