第五章_选择分支与循环

1、第五章第五章选择分支与循环选择分支与循环 5.1 分支结构与分支结构与 分支结构语句分支结构语句一、一、If-Then-Else-End If 结构语句结构语句If结构语句的一般形式为结构语句的一般形式为:If Text1 = Then Text1.SetFocus if cj85 then print cj print end if多条语句多条语句VAL的的作用作用CStr 的的作用作用与谁配对？与谁配对？与它？与它？与它？与它？与它？与它？只有一个只有一个endif结构简洁结构简洁.与最靠近的与最靠近的IF或或ELSE IF语句配对语句配对输入输入判断判断Do r = m Mod n m

2、= n n = rLoop Until r = 0Do r = m Mod n m = n n = rLoop while r0 while r0r=1Do until r=0 r = m Mod n m = n n = rLoop r=1Do while r0 r = m Mod n m = n n = rLoop while r0思考：思考：如何求两个数的最如何求两个数的最小公倍数？小公倍数？_最小公倍数最小公倍数=M*N/最大公约数最大公约数循环体循环体图4-14注意注意例例5-4求求1到到10这十个数的和与连乘积这十个数的和与连乘积 关于循环的几个问题：关于循环的几个问题：1、给定一个

3、循环，首先要判断循环是否一、给定一个循环，首先要判断循环是否一次也不做。如果循环一次也不做，循环次也不做。如果循环一次也不做，循环变量的值如何？变量的值如何？例：例：s = 0 For i = 10 To 1 s = s + i Next i Print s, i2、如果循环正常结束，循环控制变量的、如果循环正常结束，循环控制变量的值如何？值如何？例：例：注意：注意： Print I 与与 Print I; 的区别！的区别！3、如果循环非正常结束（异常终止），、如果循环非正常结束（异常终止），循环变量的值如何？循环变量的值如何？例：例：例：例：For I=1 to 10 step 2 prin

4、t I;next iI=1do print I; I=I+2loop until I10提醒提醒_EXIT DO语句语句 退出退出DO循环循环_EXIT FOR语句语句 退出退出FOR循环循环换行！换行！例例5-7一个简易函数计算器程序一个简易函数计算器程序If Text1=“” ThenMsgBox “请输入请输入X值值!”,48+vbOKOnly,”示例示例”ElseIf IsNumeric(Text1.Text) ThenX=Val(Text1.Text)Label2.Caption=“Exp(X)=:”Text2.Text=Str(Exp(X)ElseMsgBox “输入数据错误输入数

5、据错误!”,48+ vbOKOnlyEnd IfIf Text1=“” ThenMsgBox “请输入请输入X值值!”,48+vbOKOnly,”示例示例”ElseIf IsNumeric(Text1.Text) And _ Val(Text1.Text)0 ThenX=Val(Text1.Text)Label2.Caption=“Log(X)=:”Text2.Text=Str(Log(X)ElseMsgBox “输入数据错误输入数据错误!”,48+ vbOKOnlyEnd If例例5-8个人收入调节税应用程序个人收入调节税应用程序 1016001537545.0)1600(101600816

6、0081600616006160041600416002160021600660066003600360021002100160016001037540.0)1600(637535.0)1600(337530.0)1600(137525.0)1600(37520.0)1600(12515.0)1600(2510.0)1600(05.0)1600(0incomeincomeincomeincomeincomeincomeincomeincomeincomeincomeincomeincomeincomeincomeincomeincomeincomeincomeincometax或离退休If C

7、heck1.Value =1 Or income=1600 Thentax=0Elseif income =2100 ThenElseif income =3600 ThenElseif income =6600 ThenElseif income =21600 Then例例5-9找所有三位水仙花数找所有三位水仙花数_指各位数字的立方和等于该数本身的数，指各位数字的立方和等于该数本身的数，例如例如153=13+53+33153=13+53+33_算法说明算法说明 P77P78_程序代码程序代码 P78例例5-10利用牛顿迭代法求方程根利用牛顿迭代法求方程根_方程方程xexex x - 1 =

8、0 - 1 = 0 ，在，在x x0 0 = 0.5 = 0.5 附近附近的一个根，要求精确到的一个根，要求精确到1 10 0-7-7 （1e-71e-7）_算法说明算法说明 P78P78_程序代码程序代码 P79P79Dim x As Single,x1 As Single,Eps As Singlex = Inputbox(“输入初始值输入初始值X:”,”牛顿迭代法牛顿迭代法”)Eps=Inputbox(“输入允许误差输入允许误差Eps:”, ”牛顿迭代法牛顿迭代法”)Do x1 = x x = x1-(x1*Exp(x1)-1)/(Exp(x1)*(x1+1)Loop Until Abs(x-x1) = EpsText1.text = Str(x)例例5-11 原码转换成反码原码转换成反码补码的程序补码的程序If Mid(Source,1,1) “1” ThenText2.Text = “正数没有反码正数没有反码”ElseFor I =2 To Len(Source) If Mid(Source,I,1) = “1” Then Mid(Source,I,1) = “0