资源描述
1,第5章选择分支与循环,2,本章主要内容,5.1分支结构与分支结构语句5.2循环结构与循环结构语句5.3程序示例,3,5.1分支结构与分支结构语句,分支结构是程序的基本算法结构之一。VB提供了实现分支结构的相关语句。If-Then-Else-EndIf结构语句Select-Case-EndSelect结构语句,4,If-Then-Else-EndIf结构语句,该结构语句的一般形式该结构的变形1该结构的变形2例5-1已知三角形三个边的长度，设计求此三角形面积的程序例5-2一个有多个分支的示例程序,5,If结构语句的一般形式,IfeThenA组语句ElseB组语句EndIf,6,If结构的变形1,7,If结构的变形2,8,例5-1已知三角形三个边的长度，设计求此三角形面积的程序,算法流程图程序代码,当a+bc且a+cb且b+ca时，三角形存在，其面积式中：p=(a+b+c)/2,9,例5-1算法流程图,10,11,例5-2一个有多个分支的示例程序,程序代码,12,例5-2程序代码,PrivateSubCommand1_Click()DimxAsIntegerx=Val(Text1.Text)Ifx1ThenText2.Text=”这是小于1的数”ElseIfx20；Ise2；当e30时，判断是否v0相同。对最初给定的种子都会生成相同的数列，因为每一次调用Rnd函数都用数列中的前一个数作为下一个数的种子。调用Rnd之前，可先使用无参数的Randomize语句初始化随机数生成器，该生成器具有从系统计时器获得到的种子。,29,5.3程序示例,例5-7一个简易函数计算器程序例5-8个人收入调节税应用程序例5-9找出水仙花数例5-10利用牛顿迭代法求方程根例5-11原码转换成反码的程序,30,例5-7一个简易函数计算器程序,为了保证“计算器”在各种操作状况下都正常工作，程序需要考虑在用户没有在文本框中输入数据或输入的数据超出函数的定义域时的出错处理。程序中使用的IsNumeric()函数用于检测自变量s是否是一个可转换成数值的数字串，如果是，则返回逻辑值True，否则返回False。程序代码,31,例5-8个人收入调节税应用程序,按月收入额计个人收入调节税的计税公式式中，income为纳税人的月收入。程序代码,32,例5-9找出所有三位水仙花数,利用“穷举法”在三位数中查找具有“水仙花数”特征的数题中在判断一个数是否是“水仙花数”时采用了两种方法：一种是将三位数循环变量的各位数字拆开，然后进行比较；一种是采用三重循环，用三个循环变量来构成一个三位数，然后进行比较程序代码（1）程序代码（2）,33,例5-10利用牛顿迭代法求方程根,利用牛顿迭代法求方程xex-1=0在x0=0.5附近的一个根，要求精确到10-7牛顿迭代法算法说明程序代码,34,牛顿迭代法算法说明,牛顿迭代法是求解一元超越方程的常用算法。设要求解的方程为f(x)=0，并已知一个不够精确的初始根x0，则有：上式称为牛顿迭代公式。式中，f(x)是f(x)的导函数。利用迭代公式，可以依次求出x1、x2、x3、，当|xn+1xn|时的xn+1即为要求的根。,xn+1=xn-f(xn)/f(xn)n=0,1,2,3,35,例5-11原码转换成反码的程序,Mid函数的功能除可提取字符串的指定位置的字符之外。也可以如同一个变量一样用在赋值语句中，其功能是用指定的字符替换字符串中指定位置的内容。本示例使用了Mid函数的这一功能。程序代码,36,例5-4,37,例5-5,38,例5-6,39,例5-7,40,例5-8,41,例5-9方法一,OptionExplicitPrivateSubCommand1_Click()DimIAsInteger,aAsInteger,bAsInteger,cAsInteger,stAsStringForI=100To999a=I100b=(IMod100)10c=IMod10IfI=a3+b3+c3Thenst=I&=&a&3+&b&3+&c&3List1.AddItemstEndIfNextIEndSub,42,例5-9方法二,OptionExplicitPrivateSubCommand1_Click()DimIAsInteger,aAsInteger,bAsInteger,cAsInteger,stAsStringFora=1To9Forb=0To9Forc=0To9I=a*100+b*10+cIfI=a3+b3+c3Thenst=I&=&a&3+&b&3+&c&3List1.AddItemstEndIfNextcNextbNextaEndSub,43,例5-10,OptionExplicitPrivateSubcmd1_Click()DimxAsSingle,x1AsSingle,EpsAsSinglex=InputBox(输入初始值x:,牛顿迭代法)Eps=InputBox(输入允许误差Eps:,牛顿迭代法)Dox1=xx=x1-(x1*Exp(x1)-1)/(Exp(x1)*(x1+1)LoopUntilAbs(x-x1)=EpsText1.Text=Str(x)EndSubPrivateSubcmd2_Click()EndEndSub,44,例5-11,
展开阅读全文