选择分支与循环joyofly.pptx

《选择分支与循环joyofly.pptx》由会员分享，可在线阅读，更多相关《选择分支与循环joyofly.pptx（44页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、 先对条件测试，根据测试的结果选择执行不同的分支条件语句2.Select Case 结构Visual Basic 程序设计 5.1 5.1 5.1 5.1 分支结构与分支结构语分支结构与分支结构语分支结构与分支结构语分支结构与分支结构语句句句句3.条件函数第1页/共44页 例：If If score=60 Then Print 祝贺你考试通过！End IfEnd If Print“继续努力！”等价于等价于：If If Score=60 Then Print“祝贺你考试通过！”Print“继续努力!”1.IfThen 1.IfThen 结构结构 格式:(1)If 条件 Then (A组语句)En

2、d If (2)If 条件 Then 语句执行规则：若条件成立条件成立,执行A组语句;条件不成立,跳过A组语句.5.1.1 If5.1.1 If5.1.1 If5.1.1 If条件语句条件语句条件语句条件语句条件A组语句TF使用前提：条件成立时条件成立时,A组语句中只一条执行语句 例：If score=60 Then Print score Print 祝贺你考试通过！End If Print“继续努力！”第2页/共44页1.IfThen1.IfThen结构结构例例1 1：输入两个数，分别放在：输入两个数，分别放在x x和和y y变量中，比较它们大小，变量中，比较它们大小，然后将大数放在然后将

3、大数放在x x中，小数放在中，小数放在y y中。中。x yIf x=60 Then Print“祝贺你考试通过！”Else Print“考试未通过.”End If Print 继续努力！2.IfThenElse 2.IfThenElse 结构结构格式：IfIf 条件 Then A组语句 Else B组语句 END END If If 执行规则:条件成立,执行A组语句,条件不成立,执行B组语句例2：计算分段函数：Y=x2+1 (x0)x3+3x (x=0)条件A组语句TFB组语句 5.1.1 If5.1.1 If条件语句条件语句第4页/共44页F两边之和大于第三边？2.IfThenElse 2.

4、IfThenElse 结构结构输入a,b,c求S结束输出s求半周长LT提示数据错开始 5.1.1 If5.1.1 If5.1.1 If5.1.1 If条件语句条件语句条件语句条件语句例5-1：已知三边的长，设计求面积的程序。第5页/共44页3.IfThenElseIf 3.IfThenElseIf 结构结构格式：格式：IfIfIfIf 条件条件1 Then1 Then （A A组语句）组语句）ElseIf ElseIf 条件条件2 2 ThenThen （B B组语句）组语句）ElseIf ElseIf 条件条件3 3 ThenThen （C C组语句）组语句）ElseElse （n n组语句

5、）组语句）End IfEnd IfEnd IfEnd If 5.1.1 If5.1.1 If条件语句条件语句X1?输入整数x开始输出x在110间T输出x10F第6页/共44页格式：格式：IfIfIfIf 条件条件1 Then1 Then A A组语句组语句 ElseIf ElseIf 条件条件2 Then2 Then B B组语句组语句 ElseIf ElseIf 条件条件3 Then3 Then C C组语句组语句 ElseElse n n组语句组语句 End IfEnd IfEnd IfEnd If3.IfThenElseIf 3.IfThenElseIf 结构结构注意：多分支语句中，有多

6、个分 支同时满足，只执行第一第一 个个与之匹配的语句块。注意 ElseIfElseIf 的写法 5.1.1 If5.1.1 If条件语句条件语句第7页/共44页4.If4.If语句的嵌套语句的嵌套 5.1.1 If5.1.1 If条件语句条件语句 If语句的嵌套是指if 或else后面的语句块中又包含If语句。语句形式：IfIf Then IfIf Then End IfEnd If End IfEnd If 注意：注意：(1)对于嵌套结构，为了增强程序的可读性，应该采用缩进 形式书写；(2)If语句形式若不在一行上书写，必须与End If配对 多个If嵌套，End If与它最接近的If配对。

7、第8页/共44页Select CaseSelect Case 测试表达测试表达式式 Case Case 测试项测试项1 1 A A组语句组语句 Case Case 测试项测试项2 2 B B组语句组语句 Case Case ElseElse n n组语句组语句End SelectEnd Select说明：说明：测试表达式的值应是数字或字符型 测试项的取值必须与测试表达式 的值类型相同，常用形式为：具体取值，用逗号隔开如：1 1，5 5，9 9连续的范围：界1 TO 1 TO 界2 2如：12 To 2012 To 20 满足某个条件：IsIs运算符如：Is10Is10 三种形式可以组合使用 5

8、.1.2 Select Case5.1.2 Select Case5.1.2 Select Case5.1.2 Select Case语语语语句句句句Select Case Select Case 结构结构例5-2：Dim x As IntegerSelect Case x Case Is Y Then Tmax=X Else Tmax=Y End If 用Iif函数：Tmax=IIf(X Y,X,Y)第10页/共44页 5.2 5.2 5.2 5.2 循环结构与循环结构语句循环结构与循环结构语句循环结构与循环结构语句循环结构与循环结构语句 循环:是在指定的条件下多次重复执行一组语句2.For

9、 Next1.DoLoop 3.循环嵌套 4.其他辅助控制语句第11页/共44页1.Do While 循环体 Loop2.D0 循环体 Loop While 3.Do Until 循环体 Loop4.Do 循环体 Loop Until 5.2.1 DoLoop5.2.1 DoLoop5.2.1 DoLoop5.2.1 DoLoop循环循环循环循环第12页/共44页1.While1.While循环循环 Do While 循环体Exit do 循环体 Loop执行过程:（先判断，后执行）先判断循环条件,若为真:执行循环体,再判断循环条件否则，跳过循环体,执行Loop之后语句循环条件语句块TF语句块

10、FExit DoT 5.2.1 DoLoop5.2.1 DoLoop5.2.1 DoLoop5.2.1 DoLoop循环循环循环循环第13页/共44页 Do While 循环体Exit do 循环体 Loop例1:求1+2+3+4+10的和.Dim I,s As Integer I=1Do WhileLoopPrint I,s s=s+I I=10I=I+1I=I+1I=11I=11(1)循环体执行了几次?(2)没有I=I+1会怎样?(3)将Print语句移到Loop的 前面结果怎样?(4)I先赋值为11,结果如何?1.While1.While循环循环 5.2.1 DoLoop5.2.1 Do

11、Loop5.2.1 DoLoop5.2.1 DoLoop循环循环循环循环第14页/共44页 D0 循环体Exit do 循环体 Loop While 执行过程:（先执行，后判断）先执行循环体,再判断循环条件,若为真，继续执行循环体;否则，结束循环,执行Loop之后语句循环条件语句块TF语句块FExit DoT1.While1.While循环循环 5.2.1 DoLoop5.2.1 DoLoop5.2.1 DoLoop5.2.1 DoLoop循环循环循环循环第15页/共44页 D0 循环体 Exit Do Loop While 例4:修改例3 Dim I,s As Integer I=1 Do

12、While I=10 s=s+I I=I+1 Loop Print I,s Dim I,s As Integer I=1 Do s=s+I I=I+1 Loop While I=10 Print I,s (1)(1)循环体执行几次？循环体执行几次？(2)(2)将将I I先赋值为先赋值为1111，执行结果如何执行结果如何?1.While1.While循环循环 5.2.1 DoLoop5.2.1 DoLoop5.2.1 DoLoop5.2.1 DoLoop循环循环循环循环第16页/共44页 Do While 循环体 Loop D0 循环体 Loop While 区别:(1)执行顺序不同 形式一:先

13、判断,后执行循环体;形式二:先执行循环体,后判断 (2)执行次数不同（特殊情况下）形式一:条件不满足,循环体可能一次也不执行 形式二:不论条件如何,至少执行一次循环循环 5.2.1 DoLoop5.2.1 DoLoop5.2.1 DoLoop5.2.1 DoLoop循环循环循环循环第17页/共44页例5-3：用辗转相除法求两自然数m、n的最大公约数和 最小公倍数分析：最大公约数最大公约数 已知两数m、n m Mod n的值为r mn，nr，若r0，则重复 否则，循环结束，m为所求的最大公约数，最小公倍数最小公倍数原两个数相乘，再除以最大公约数 5.2.1 DoLoop5.2.1 DoLoop5

14、.2.1 DoLoop5.2.1 DoLoop循环循环循环循环第18页/共44页执行过程:（先判断，后执行）先判断循环条件：条件为假:执行循环体,然后再判断条件.条件为真:跳过循环体,执行Loop之后语句 Do Until 循环体 Loop循环循环循环条件语句块F FT T语句块FExit DoT 5.2.1 DoLoop5.2.1 DoLoop5.2.1 DoLoop5.2.1 DoLoop循环循环循环循环第20页/共44页 Do Until 循环体 Loop例5:修改上例Dim I,s As Integer I=1Do While I=10 s=s+I I=I+1LoopPrint I,s

15、 Dim I,s As Integer I=1Do Until s=s+I I=I+1LoopPrint I,s 条件应该如何写出?显示的I、S值与 上例一样吗？Do 循环体 Loop Until I10I10 5.2.1 DoLoop5.2.1 DoLoop5.2.1 DoLoop5.2.1 DoLoop循环循环循环循环循环循环第21页/共44页几种形式比较几种形式比较:Do While 循环体 Loop（While ）Do Until 循环体 Loop（Until）区别:While 条件为真时执行循环体,否则退出循环 Until 条件为假时执行循环体,否则退出循环关系：while和Unti

16、l可以相互转换，但循环条件取反 while和Until可以通过Exit Do退出循环 5.2.1 DoLoop5.2.1 DoLoop5.2.1 DoLoop5.2.1 DoLoop循环循环循环循环第22页/共44页循环变量=循环变量+步长语句块FExit For语句块T循环变量=终值 For 循环变量=初值 TO 终值 Step 步长 语句块 Exit For 语句块 Next 循环变量ForFor循环格式：循环格式：执行过程:(1)将初值赋循环变量；(2)判断循环变量值是否小于等于 终止值；(3)若是,执行循环体（语句块）；(4)然后将变量增加一个步长；(5)重复24步骤。(6)否则，结束

17、循环 5.2.2 For5.2.2 For5.2.2 For5.2.2 For循环循环循环循环步长省略，默认为1循环变量赋初值FT循环体第24页/共44页程序代码：Dim I%,s%For I=1 To 10 step 1 Next I Print I,s例1:求1+2+3+4+10之和.分析:重复过程(循环体):ss+I初值、终值和增量:1、10、1 初值与终值换位初值与终值换位 可以吗？可以吗？循环体的执行次数是多少?输出的I、S的值是多少?For I=1 To 10执行多少次？s=s+IFor I=10 To 1 Step -1 5.2.2 For5.2.2 For5.2.2 For5.

18、2.2 For循环循环循环循环 For 循环变量=初值 TO 终值 Step 步长 语句块 Exit For 语句块 Next 循环变量循环体第25页/共44页 Dim I,s As Integer For I=1 To 10 s=s+I Next I Print I,s 例2:求10！分析:重复过程:*初值、终值与增量不变 例1:求1+2+3+4+10之和.分析:重复过程(循环体):+初值、终值和增量:1、10、1 Dim I,s As Integer For I=1 To 10 s=s*I Next I Print I,ss=1For I=1 To 10For I=1 To 10 s=1

19、5.2.2 For5.2.2 For5.2.2 For5.2.2 For循环循环循环循环第26页/共44页S1=0S2=0For I=1 To 10001 To 1000 S1=S1+INext I练习1：计算11000的奇数和与偶数和 方法一：方法二：Step 2Step 2For I=1 To 1000 1 To 1000 Step 2Step 2 S2=S2+INext IPrint S1,S20 0S1=0S2=0For I=1 To 10001 To 1000 If I mod 20 then S1=S1+I Else S2=S2+I End IfNext IPrint S1,S2

20、5.2.2 For5.2.2 For5.2.2 For5.2.2 For循环循环循环循环第27页/共44页例5-5：一个从字母、数字组成的字符串中找出所有大写字母并逆序输出的程序。输入原字符串 求出串长 用For循环 1，长度和步长 用Mid函数取出每一位，对每个字符进行判断 对符合要求的字符采用连接运算组成新字符串 重复以上两步，直到结束 在text2中显示新串 5.2.2 For5.2.2 For5.2.2 For5.2.2 For循环循环循环循环第29页/共44页例：分析下列程序段的输出结果：Dim I As Integer,J As Integer J=0 For I=0 To 10

21、Step 2 I=I+3 J=J+1 Next IPrint I,J注意：初值、终值、步长必须是数值型，步长为正，初值终值；缺省为默认为1 当循环变量为整型，而循环参数为浮点型时，系统将按Cint或CLong函数 将其转换为与循环变量相同的整型数。在已知循环次数时使用For循环，循环次数=int(终值-初值)/步长)+1 组成循环体的语句块可以是一条或多条语句 Exit For表示当遇到该语句时，退出循环体，执行Next的下一句；在循环体内对循环变量可多次引用，但在循环过程中一般不改变其值，否则影响结果。退出循环后，循环变量保持退出时的值 5.2.2 For5.2.2 For5.2.2 For

22、5.2.2 For循环循环循环循环第30页/共44页循环的嵌套：循环的嵌套：在一个循环体内又包含了一个完整的循环结构 5.2.3 5.2.3 5.2.3 5.2.3 循环嵌套循环嵌套循环嵌套循环嵌套 For I=1 To 9 For J=1 To I s=I&J&=&I*J Picture1.Print Tab(J-1)*8+1);s;Next J Next I注意：内、外循环变量不能同名 外循环必须完全包含内循环，不能出现交叉第31页/共44页 分析：用三重循环分析：用三重循环个位个位x x的可能取值为的可能取值为0 09 9十位十位y y的可能取值为的可能取值为0 09 9百位百位z z的

23、可能取值为的可能取值为1 19 9，看三个位置上的数是否满足如下条件，若满足，看三个位置上的数是否满足如下条件，若满足，即是其中一个解即是其中一个解 x x3 3+y+y3 3+z+z3 3=z100=z100y10y10 x x 练习5：求水仙花数(P78)水仙花数是指一个3位数，其各个数字的立方和等于数字本身。5.2.3 5.2.3 5.2.3 5.2.3 循环嵌套循环嵌套循环嵌套循环嵌套第32页/共44页语句语句语句语句 满足循环条件的情况下，提前跳出循环体，结束循环。两种形式：Exit For、Exit Do 作用：无条件的转移到标号或行号指定的语句 语法：GoTo 标号|行号 100

24、 If I=100 Then s=s+I I=I+2 GoTo 100 End If 5.2.4 5.2.4 5.2.4 5.2.4 其他辅助控制语句其他辅助控制语句其他辅助控制语句其他辅助控制语句第33页/共44页 5.3 5.3 5.3 5.3 程序示例程序示例程序示例程序示例示例1:一个简易的函数计算器程序.(P73)首先要对第一个文本框中输入的数据进行合法性判断:是否为空？是否为数字？第35页/共44页 5.3 5.3 5.3 5.3 程序示例程序示例程序示例程序示例(续续续续)示例2:利用牛顿迭代法求方程xex-1=0在x0附近的一个根，精确到10-7.(P78)Xn+1=xn-f(

25、xn)/f(xn)n=0,1,2,3,当|xn+1-xn|时，xn+1为要求的根。第36页/共44页示例3：将一个二进制的原码转换成补码(P80)。思考题：输入一个十进制整数，输出其原码和反码思考题：输入一个十进制整数，输出其原码和反码 5.3 5.3 程序示例程序示例(续续)第37页/共44页示例4：利用级数和求cos(x)函数的近似值(误差=Ix=I时 如果x mod Ix mod I0 0，I I是一个因子 否则I I加1 1思考题思考题：判断一个正整数n是否是完数 即一个数恰好等于它的因子之和 如：28124714 5.3 5.3 程序示例程序示例(续续)第39页/共44页示例6：用递

26、推法（将一个复杂的计算过程转化为简单过程的多次重复）解决猴子吃桃子问题。小猴在一天摘了若干个桃子，当天吃掉一半多一个，以后每天吃掉剩下的桃子的一半多一个，到第七天要吃时只剩下一个了，问小猴那天共摘了几个桃子？XnXn-1-1 Xn=-1Xn=-1 2 2 5.3 5.3 程序示例程序示例(续续)第40页/共44页作业P81 1、2、3 P82 4、5、10、11 第41页/共44页习题四答案一、选择题C CADAABDB二、填空题1 Is=0;1 To 10;Is 102.93.3;5 154.this is a book;This Is A Book5.3;3;3 56.32 0第42页/共44页7.48.15 19.1 ;401 ;10410.1 2 3;1 3;111.(3)12.2 0 2413.10 1414.BAABC CBAABC15.X Mod P=0;X=X+1 ;Find=False16.abs(t)Mid(n,i+1,1)ik-119.输入n;N/I=0 ;Print I 第43页/共44页感谢您的观看！第44页/共44页