第五章分支与循环.pptVIP

第五章 分支与循环 第一节 分支结构 5.1 分支结构 2. If…Then…Else语句(双分支结构) If 表达式 Then 语句块1 Else 语句块2 End If 也可以写为一行，格式为： If 表达式 Then 语句1 Else 语句2 [例5-1] 已知三角形三条边的长度，设计求此三角形面积的程序。输出结果显示在文本框中，并且把结果再存入D：盘文件名为“sear.dat”。 问题分析：设三角形的三条边分别为a、b、c，从数学上已知，当a+bc、a+cb且b+ca时，三角形存在，其面积 式中： P = (a + b + c)／2 4. If…Then…ElseIf语句(多分支结构) 形式: If 表达式1 Then 语句块1 ElseIf 表达式2Then 语句块2 … [Else 语句块 n+1 ] End If [例5-3]将考试成绩转换成等级。计算规则如下： 分数 100-90 89-80 79-70 69-60 60 等级 A B C D E 要求：从文本框1中输入成绩分数，当输完数据按回车键时，等级结果自动地出现在文本框2中。 考虑到题目的要求，有关转换的程序代码应放在Text1_KeyPress( )过程中 5. Select Case语句(情况语句) 形式： Select Case 变量或表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 … [Case Else 语句块n+1] End Select [例5-4] 用Select Case结构实现[例5-3]的功能。 第二节 循环结构 5.2 循环结构 [例5-6]求自然对数e的近似值，要求其误差小于0.00001，近似公式为： e=1+1/1!+1/2!+1/3!+…+1/n!+… 把计算结果存入D：盘的“result.dat”文件中。 算法分析：该题涉及两个问题 （1）用循环结构求级数和的问题。求级数和的项数和精度都是有限的，否则有可能会造成溢出或死循环，本例根据某项数的精度来控制循环的结束与否。 （2）累加与连乘在程序设计中非常重要。累加是在原有和的基础上一次次的加一个数，如e=e+t。连乘则是在原有积的基础上一次次的乘以一个数，如n=n*i。为了保证程序的可靠，一般在循环体外对存放累加和的变量清零、存放连乘积的变量则置1 5.2.3 For-Next循环结构 [例5-8] 编写一个程序求1~10这十个数的和与乘积。 算法分析：求若干个数之和或若干个数的乘积，可采用“累加”与“累乘”法。累加法是设置一个存放和数的变量，称为“累加器”，它的初始值设为0，累加过程通过循环实现，在循环体中，和数与累加器相加后再赋值给累加器；累乘的算法与累加类似，不过设置的是“累乘器”，它的初始值应设为1，在循环体内，乘数应与累乘器相乘。在求乘积时，应注意乘积的大小，设置适当的数据类型。 [例5-9] 下面是一个从由字母数字组成的字符串中找出所有大写字母并逆序输出的程序。最后再把结果存入D：盘的数据文件“letter.dat”中。 从一个字符串中找出符合要求的字符是采取对字符串的每一个字符逐个筛选的方法实现的。本例利用Mid函数可以从字符串中提取出单个字符，利用循环控制处理过程，循环的终值使用Len函数；对于符合要求的字符采用连接运算 组成新字符串；逆序输出则是通过从后往前逐个提取字符再连接的。 5.2.4 循环的嵌套 [例5-10] 下面是一个模拟摇奖的程序。设有100个人中签，要从中找出两个中奖人。由机器自动随机产生第一组1000个1~100间的数据，第1000个随机数据即为第一个中奖人的号码；然后再次随机产生第二组1000个1~100间的数据，第1000个随机数据即为第二个中奖人的号码。 算法分析：本程序算法比较简单，首先外循环用来控制产生两个随机数，里面使用For-Next循环产生1000个1-100间的随机整数即可。但为了获得摇奖的效果，每产生一个随机数，再利用一个For-Next循环起到延时作用，降低数据显示的速度，以便可以较容易地看清数据变化的状况，使用Refresh方法，使文本框中的文本不断改变。 第三节 程序示例 [例5-11] 产生10