2第4章-VB控制结构-For-While-Do

1、2021/6/71 1 v提要提要 掌握循环结构基本知识 For Next While Wend Do Loop 掌握程序控制结构编程方法 v重点重点 For Next While Wend Do Loop 第第4章章 程序控制结构 2 2021/6/72 问题问题: 产生产生15个个1,40随机整数，并用随机整数，并用Print方法输出方法输出. a = Int(Rnd * (40 - 1 + 1) + 1) Print a a = Int(Rnd * (40 - 1 + 1) + 1) Print a a = Int(Rnd * (40 - 1 + 1) + 1) Print a a =

2、Int(Rnd * (40 - 1 + 1) + 1) Print a 2021/6/73 4.7.3 循循 环环 结结 构构 开始开始 结束结束 T0 初值初值终值终值 ( 终值终值 =0 死循环死循环 2021/6/79 当循环终值是一个变量时，在第一次运行时取走当循环终值是一个变量时，在第一次运行时取走 该变量中的值后，该变量中的值即便有修改，但该变量中的值后，该变量中的值即便有修改，但 不再影响循环节奏。不再影响循环节奏。 M=5 For I=1 To M M=M+1 print I，M Next I 即即: For I=1 To 5 2021/6/710 在循环体内，循环变量可多次引

3、用；但最好不要对在循环体内，循环变量可多次引用；但最好不要对 其赋值，否则影响原来的循环控制规律。其赋值，否则影响原来的循环控制规律。 For I=1 To 5 I=I+2 Print I Next I For I=1 To 5 I=I-1 Print I Next I 输出I=？输出I=？ 2021/6/711 【例例4-3】编程求自然数编程求自然数10的阶乘。的阶乘。 Private sub Form_Click( ) Dim I% , S%, T% T为每一项为每一项 S=1 :T=1 For Next Print “S=”;S End Sub For I I=1 To 10 Step

4、1 S=S*T T=T+1 Next I I S = S * I I此时，T=I? 2021/6/712 分析分析: 每一项和每次相乘的积都是变化量每一项和每次相乘的积都是变化量 因此，需要两个变量因此，需要两个变量 用用T表示每一项的值表示每一项的值:T=T+1 用用S表示累加之和表示累加之和:S=S*T 循环终止条件循环终止条件: 循环次数循环次数100 初始化初始化: S=1 【例例4-3】编程求自然数编程求自然数n的阶乘。的阶乘。 Private sub Form_Click( ) Dim I% , S%, n% S=1 For I=1 To 10 Step 1 S=S* I Next

5、 I Print “S=”;S End Sub n =InputBox(“n=”) n + ) 1( 1 . 43 1 32 1 21 1 nn 2021/6/713 设设s=123n ,求求s不大于不大于6000时最大的时最大的n和和s. 思思 考：考： 思考思考: 这是连乘器？加法器？计数器？这是连乘器？加法器？计数器？ 循环次数循环次数能否能否确定？确定？ 循环终止条件是什么？循环终止条件是什么？ 1. ForNext控制结构能否解决？控制结构能否解决？ 2021/6/714 ( (一般用于循环次数未知一般用于循环次数未知) ) 2021/6/715 讨论讨论While-Wend 进入循

6、环体之前，应正确设置循环条件。如果条件进入循环体之前，应正确设置循环条件。如果条件 一开始就不成立一开始就不成立(False)，则一次循环体也不执行。，则一次循环体也不执行。 循环体内必须有修改循环条件的语句，确保循环体循环体内必须有修改循环条件的语句，确保循环体 能正常执行和正常结束。能正常执行和正常结束。 2021/6/716 先判断条件，后执行循环体先判断条件，后执行循环体 Do While|Until 条件条件 语句块语句块 Exit Do 语句块语句块 Loop 先执行循环体，后判断条件先执行循环体，后判断条件 Do 语句块语句块 Exit Do 语句块语句块 Loop While|

7、Until 条件条件 ( (一般用于循环次数未知一般用于循环次数未知) ) 直到型循环直到型循环 2021/6/717 代码代码2: Private Sub Form_Click() Dim i%, s age-12; 年年 Print 小红父女的年龄分别是小红父女的年龄分别是:; age+30; 和和;age End Sub 2021/6/721 课堂思考：课堂思考： l有一段楼梯有一段楼梯, 若每步上若每步上2阶阶, 则最后剩下则最后剩下1阶，阶， 若每步上若每步上3阶阶, 则最后剩下则最后剩下2阶阶, 若每步上若每步上5阶阶, 则最后剩下则最后剩下4阶阶, 若每步上若每步上6阶阶,则最后

8、剩下则最后剩下5阶阶, 只有每步上只有每步上7阶，正好阶，正好1阶不剩。请问，这段阶不剩。请问，这段 楼梯共有多少阶？楼梯共有多少阶？ n=7 Do n = n + 1 Loop Until (n Mod 2 = 1) And (n Mod 3 = 2) And (n Mod 5 = 4) And (n Mod 6 = 5) And (n Mod 7 = 0) 2021/6/722 思考思考:循环次数已知问题循环次数已知问题,能否使用能否使用While或或Do呢呢? OK 2021/6/723 编程序计算：编程序计算：s=123410 。 Private sub form_click( ) D

9、im i%, s s End sub Private sub form_click( ) Dim i%, ss End sub Private sub form_click( ) Dim i%, s s End sub Private sub form_click( ) Dim i%, s 互换互换: 置置mn 和和 nr，转向，转向继续执行继续执行。 N Y rm除以除以n的余数的余数 r = 0? n r 输出输出n的值的值 输入正整数输入正整数m和和n 开始开始 结束结束 m n 例例1-3: 给定两个正整数给定两个正整数m和和n，求最大公约数？，求最大公约数？ 2021/6/726 E

10、xit语句语句 多种形式多种形式 作用：作用： End 语句语句 多种形式多种形式 作用：作用： 2021/6/727 With语句语句 作用作用 等价等价 2021/6/72828 Private Sub Form_Click( ) For i=0 To 50 i=i+3 n=n+1 if i10 then Exit For Next i Print n=; n End Sub 1.当当i=0时时, i=i+3=3 , n=1 2.当当i=4时时, i=i+3=7 , n=2 3.当当i=8时时, i=i+3=11, n=3,循环结束循环结束 2021/6/72929 Private Sub

11、 Form_Click() Dim num% num = 0 While num = 2 num = num + 1 Print num; Wend End Sub 1.当当num=0时时, num=num+1=1 2.当当num=1时时, num=num+1=2 3.当当num=2时时, num=num+1=3 2021/6/73030 Private Sub Form_Click() Dim a%, b% a = 0: b = 1 Do a = a + b b = b + 1 Loop While a 10 Print a; b End Sub a=0:b=1 1.当当a=0时时,a=1,

12、 b=2 2.当当a=1时时,a=3, b=3 3.当当a=3时时,a=6, b=4 4.当当a=6时时,a=10, b=5 循环结束循环结束 2021/6/73131 Private Sub Form_Click( ) Dim str1 As String Dim letter As Integer Dim number As Integer Dim other As Integer Dim n As Integer Letter=0: number=0: other=0 Str1=InputBox(“输入字符串输入字符串=”,”输入框输入框”,”ab32-c,4d_5”) For n=1

13、to Len(str1) Select Case Mid(Str1,n,1) Case “A” to “Z”, “a” to “z” Letter=letter+1 Case 1 to 9 Number=number+1 Case else Other=other+1 End Select Next n End Sub 2021/6/73232 跳转跳转: Goto 标号标号 1.当当n=1时时, sum=sum+n=1, n+1=2 2.当当n=2时时, sum=sum+n=3, n=n+1=3 3.当当n=3时时, sum=sum+n=6, n=n+1=4, 跳转结束跳转结束 2021/6/733 For 循环变量循环变量=初值初值 To 终值终值 Step 步长步长 循环体循环体 Exit For Next 循环变量循环变量 1. ForNext循环结构循环结构 Do While|Until 循环体循环体 Exit Do Loop Do 循环体循环体 Exit Do L