第5章选择分支与循环汇总.ppt

5.1 分支结构与分支结构语句 5.2 循环结构与循环结构语句 5.3 程序示例 5.1 分支结构与分支结构语句 5.1.1 If-Then-Else- End If语句 5.1.2 Select- Case-End Select语句 2.嵌套的If结构 在If语句的“语句块”中包含另一个If语句，叫做嵌套的If结构。 If 条件1 Then ‘外层 … If 条件2 Then ‘内层 … Else If 条件4 then … Else … ‘最内层 End If Else … If 条件3 Then … End If End If 分支结构的适用情况 验证用户输入数据的合法性 分段函数计算 用于区分等级 其他须根据条件不同执行不同操作的情况 5.2 循环结构与循环结构语句 5.2.1 Do-loop循环结构语句（条件循环） 5.2.2 For-Next 循环结构语句（计数循环） 5.2.3 循环嵌套 写出下列程序的运行结果 5.3 程序示例 例：找出1000以内的所有完数。所谓完数，是指它的所有的质因子之和等于它本身的数，如6=1+2+3。 解题思路： 第一步：找出确定一个数是完数的方法； 第二步：从1到1000依次判断。 算法实现: 两层循环： 内层循环用于找出某数 m 的所有因子并相加求和，并在循环结束后依据因子和是否与该数相等来判断该数是否是完数； 外层循环则用于穷举所有1000以内的整数。 [分析]： 设要解的方程为f(x)=0,并已知一个不够精确的初始解X0，则有牛顿迭代公式：Xn+1=Xn-f(Xn)/f’(Xn) n=0，1，2，… 利用迭代公式，依次求得X1，X2，X3， …， 当| Xn+1-Xn | ≤ε时， Xn+1即为所求得根。 3 注意此算法的三要素：迭代公式、初值、和迭代精度（结束条件）. [例5-10] 用牛顿迭代法求方程xex-1=0在X0=0.5附近的一 个根，要求精确到10-7。 Private Sub Form_Click() Dim x as Single,x0 as Single x=0.5 Do x0=x x=x0-(x0*exp(x0)-1)/(exp(x0)*(x0+1)) Loop Until Abs(x-x0)=1e-7 Print x End Sub 例5_11 求反码 Private Sub Command1_Click() Dim Source As String, i As Integer Source = Text1.Text If Mid(Source, 1, 1) 1 Then Text2 .Text= 正数没有反码 Else Text2 = Source End If End Sub For i = 2 To Len(Source) If Mid(Source, i, 1) = 1 Then Mid(Source, i, 1) = 0 Else Mid(Source, i, 1) = 1 End If Next i Mid函数的特殊功能用指定的字符替换字符串中指定位置的内容 练 习 （1）随机产生10个20——1000之间的整数，分别 求出奇数偶数之和； （2）求出1000以内的完数；完数即该数是其所有 因子之和，如：6=1+2+3； Private Sub Form_Click() Dim n As Integer, i As Integer Dim ou As Double, ji As Double Print 该组随机数为： Randomize For i = 1 To 10 n = Int(Rnd