第5章 选择分支和循环 joyo_fly.pptVIP

5.2 循环结构与循环结构语句; 先对条件测试，根据测试的结果选择执行不同的分支; 例： If score = 60 Then Print 祝贺你考试通过！ End If Print “继续努力！” 等价于： If Score=60 Then Print “祝贺你考试通过！” Print “继续努力!!!” ;1. If…Then结构;例： If score = 60 Then Print “祝贺你考试通过！” Else Print “考试未通过.” End If Print 继续努力！;F;3. If…Then…ElseIf 结构;格式：If 条件1 Then A组语句 ElseIf 条件2 Then B组语句 ElseIf 条件3 Then C组语句 …… Else n组语句 End If;4. If语句的嵌套;Select Case 测试表达式 Case 测试项1 A组语句 Case 测试项2 B组语句 …… Case Else n组语句 End Select;§5.1.3 条件函数（可选）;§5.2 循环结构与循环结构语句 ;1. Do While 条件 循环体 Loop;1. While循环;⑴ Do While 循环条件 循环体 [Exit do] 循环体 Loop;⑵ D0 循环体 [Exit do] 循环体 Loop While 条件;⑵ D0 循环体 [Exit Do] Loop While 条件;⑴ Do While 条件 循环体 Loop;例5-3：用辗转相除法求两自然数m、n的最大公约数和 最小公倍数;练习3：我国现有人口13亿，按人口年增长率0.8%计算，多少年后我国人口超过26亿。;执行过程:（先判断，后执行） 先判断循环条件： 条件为假: 执行循环体, 然后再判断条件. 条件为真: 跳过循环体, 执行Loop之后语句;⑶ Do Until 条件 循环体 Loop;几种形式比较:; ;循环变量=循环变量+步长;程序代码： Dim I%, s % For I = 1 To 10 step 1 Next I Print I, s; Dim I, s As Integer For I = 1 To 10 s = s + I Next I Print I, s;S1 =0 S2 =0 For I = 1 To 1000 S1 = S1 + I Next I ;练习2：输入一个正整数，求各位数字之和;例5-5：一个从字母、数字组成的字符串中找出所有大写 字母并逆序输出的程序。;例：分析下列程序段的输出结果： Dim I As Integer, J As Integer J = 0 For I = 0 To 10 Step 2 I = I + 3 J = J + 1 Next I Print I,J;循环的嵌套：在一个循环体内又包含了一个完整的循环结构; 分析：用三重循环 个位x的可能取值为0～9 十位y的可能取值为0～9 百位z的可能取值为1～9， 看三个位置上的数是否满足如下条件，若满足，即是其中一个解 x3+y3+z3=z×100＋y×10＋x ;1.GoTo语句 2.Exit语句;Dim I As Integer ;§5.3 程序示例;§5.3 程序示例(续);示例3：将一个二进制的原码转换成补码(P80)。;示例4：利用级数和求cos(x)函数的近似值(误差 10-6) ;示例5:将一个正整数分解为质因数乘积。如36＝2×2×3×3;示例6：用递推法（将一个复杂的计算过程转化为简单过程的多次重复）解决猴子吃桃子问题。;作业;习题四答案;