VB控制结构课件

1、1,提要 掌握循环结构基本知识 For Next While Wend Do Loop 掌握程序控制结构编程方法 重点 For Next While Wend Do Loop,第4章 程序控制结构 2,1,学习交流PPT,问题: 产生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 = Int(Rnd * (40 - 1 + 1) + 1) Print

2、a,For I =1 To 15 a = Int(Rnd * (40 - 1 + 1) + 1) Print a Next I,2,学习交流PPT,4.7.3 循 环 结 构,循环结构流程图,循环结构程序的组成部分： 1.循环初始化？ 给循环变量和循环体中其它变量赋初值 2.循环控制条件？(是否继续?) 测试循环条件,判断循环是否还要重复 3.循环体？ 要重复执行的操作 4.循环控制修改部分？(确保趋向结束) 修改循环变量的值，为循环的下一次重复做准备,3,学习交流PPT,循 环 类 型,1. 计数循环 ForNext 2. 条件循环 当循环 WhileWend DO循环 DoLoop,4,学

3、习交流PPT,5,5,学习交流PPT,1. For-Next 循环控制,格式： For = To Step 语句块 Exit For 语句块 Next 循环变量,(一般用于循环次数已知),功能: 按初值、终值和步长所确定的循环次数执行循环体。 Exit For:强制结束当前循环(出口),循环体,6,学习交流PPT,Dim I%,s% s =0 For I = 1 To 10 Step 2 s=s + I Next I,I: 循环变量,1: 初值,10: 终值,2: 步长,循环体,I=I+2,循环变量I的取值分别为: 1,3,5,7,9 完成 s=1+3+5+7+9 的计算,例(P59): 计算

4、110之间的奇数之和。,7,学习交流PPT,8,讨论For-Next,循环变量: 数值型。 循环次数 步长 Exit For: 强制退出循环,For I=1 to 100 Step 1 S=S+I Next I,For I=100 to 1 Step -1 S=S+I Next I,8,学习交流PPT,当循环终值是一个变量时，在第一次运行时取走该变量中的值后，该变量中的值即便有修改，但不再影响循环节奏。,M=5 For I=1 To M M=M+1 print I，M Next I,即: For I=1 To 5,9,学习交流PPT,在循环体内，循环变量可多次引用；但最好不要对其赋值，否则影响

5、原来的循环控制规律。,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=？,10,学习交流PPT,【例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=1 To 10 Step 1 S=S*T T=T+1 Next I,S = S * I,此时，T=I?,11,学习交流PPT,分析: 每一项和每次相乘的积都是变化量 因此，

6、需要两个变量 用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 I Print “S=”;S End Sub,n =InputBox(“n=”),n,思考题 1. s=1 + 2 + 3 + 4+ + n 2. s=1222 32 42 n2 3. s=12 32 52 n2 4. s=1+3+5+7+(2n-1) 5. s=1-3+5-7+

7、(-1)n+1 (2n-1) 6. s=,12,学习交流PPT,设s=123n ,求s不大于6000时最大的n和s.,思 考：,思考: 这是连乘器？加法器？计数器？ 循环次数能否确定？ 循环终止条件是什么？ ForNext控制结构能否解决？,13,学习交流PPT,格式： While 语句块 Wend 功能：当循环条件为真时，执行循环体，否则退出循环。,2. While-Wend 循环当循环,(一般用于循环次数未知),循环体,14,学习交流PPT,讨论While-Wend,进入循环体之前，应正确设置循环条件。如果条件一开始就不成立(False)，则一次循环体也不执行。 循环体内必须有修改循环条件

8、的语句，确保循环体能正常执行和正常结束。,x=3 While x10 Print x; Wend,x=3 While x=0 Print x; Wend,X=X-1,15,学习交流PPT,4. Do-Loop 循环Do 循环,功能: 当条件为True时，(While条件)执行循环体; 当条件为False时，(Until条件)执行循环体。,先判断条件，后执行循环体 Do While|Until 条件 语句块 Exit Do 语句块 Loop,先执行循环体，后判断条件 Do 语句块 Exit Do 语句块 Loop While|Until 条件,两种格式：,等价于 While-Wend,(一般用于

9、循环次数未知),直到型循环,16,学习交流PPT,代码2: Private Sub Form_Click() Dim i%, s n; 年 Print 小红父女的年龄分别是:; age+n; 和;age+n+30 End Sub,Private Sub Form_Click() Dim age As Integer Dim n As Integer age = 12 While age* 2 age + 30 age = age + 1 Wend Print 经过; age-12; 年 Print 小红父女的年龄分别是:; age+30; 和;age End Sub,20,学习交流PPT,课堂

10、思考：,有一段楼梯, 若每步上2阶, 则最后剩下1阶，若每步上3阶, 则最后剩下2阶, 若每步上5阶,则最后剩下4阶, 若每步上6阶,则最后剩下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),21,学习交流PPT,思考:循环次数已知问题,能否使用While或Do呢?,1. ForNext 2. WhileWend 3. DoLoop,求：s = 1234

11、10 。,OK,22,学习交流PPT,编程序计算：s=123410 。,Private sub form_click( ) Dim 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%, ss End sub,Do Until i10,23,学习交流PPT,课本P3 给定两个正整数m和n（mn）,求它们的最大公约数和最小公倍数。,课 后 作 业,提示1: 辗转相除法, 课

12、本P3 . 提示2: 最小公倍数=两个正整数的乘积/最大公约数.,24,学习交流PPT,辗转相除法： 求余数: m除以n，并令r为所得余数； 余数为0?: 若r=0，算法结束，n即为答案；否则执行; 互换: 置mn 和 nr，转向继续执行。,例1-3: 给定两个正整数m和n，求最大公约数？,25,学习交流PPT,5.其他辅助语句,Exit语句 多种形式 Exit For、Exit Do、Exit Sub、 Exit Function等 作用：退出某种控制结构的执行 End 语句 多种形式 End、End If、End Select、End With、End Sub、End Function等

13、作用：End结束一个程序的运行；其余表示某种控制结构的结束，与对应的结构语句配对.,26,学习交流PPT,With语句 作用 对某个对象执行一系列的操作，而不用重复指出对象的名称,With Label1 .Height=2000 .Width=2000 .FontSize=22 .Caption=“输入 End With,Label1.Height=2000 Label1.Width=2000 Label1.FontSize=22 Label1.Caption=“输入,等价,27,学习交流PPT,28,思考： (1)i的取值分别= (2)循环体n=n+1共执行了多少次? (3)退出循环后，i=

14、?,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,循环结束,阅读分析,28,学习交流PPT,29,Private Sub Form_Click() Dim num% num = 0 While num = 2 num = num + 1 Print num; Wend End Sub,阅读分析,1.当num

15、=0时, num=num+1=1 2.当num=1时, num=num+1=2 3.当num=2时, num=num+1=3,29,学习交流PPT,30,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, b=2 2.当a=1时,a=3, b=3 3.当a=3时,a=6, b=4 4.当a=6时,a=10, b=5 循环结束,阅读分析,30,学习交流PPT,31,Private Sub For

16、m_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 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

17、+1 Case else Other=other+1 End Select Next n Print “letter=”;letter ,”number=”;number ,”other=”;other End Sub,思考： (1)n的取值分别= (2)循环体共执行了多少次? (3)退出循环后，n=? (4)如何理解letter=letter+1?,阅读分析,31,学习交流PPT,32,跳转: Goto 标号,Private Sub Form_Click( ) Dim sum%, n% sum = 0: n = 1 qq: If n= 3 Then sum = sum + n n = n + 1 GoTo qq End If Print sum=; sum, n=; n End Sub,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, 跳转结