VB蒋加伏第四版第5章.ppt

第5章 Visual Basic控制结构,5.1 算法及其描述 5.2 选择结构 5.3 循环结构 5.4 常用算法,5.1 算法及其描述,1.算法的概念 是解决问题的有序步骤。 2.算法的特征 (1) 有穷性。 (2) 确定性。 (3) 有效性。 (4) 零个或多个输入。 (5) 至少有一个输出。,3.算法的描述 （1）自然语言 文字冗长、表达不确切、二义性。 （2）流程图 图形方法，直观、形象、易于理解，应用广泛。 （3）N-S图 是流程图的发展，去掉了流程线，算法都表示在一个矩形框内。,3.三种基本控制结构 （1）顺序结构 在顺序结构中，算法的每一步操作都是按从上到下的线性次序执行的。 （2）选择结构 又称分支结构，根据给出的条件，选择执行一个分支。因此，在选择结构中，必然包含了条件判断。 （3）循环结构 又称重复执行结构。根据给出的条件，判断是否重复执行某一组操作。,基本的循环结构有两种：当循环和直到循环。 当循环：首先判断条件是否成立，若成立，执行循环体再判断条件，决定是否继续进行循环；若不成立，跳过这组操作，执行此循环结构后面的操作。 直到循环：首先执行循环体，然后判断条件是否成立，若成立，则继续进行循环操作；若不成立，执行此循环结构后面的操作。 在程序设计中，算法是由一系列的控制结构构成，每一个控制结构又由若干个语句组成。语句是程序中有确切含义的基本单位，也是构成程序的基本成分，程序功能是由一条条语句的执行来实现的，可把语句视为命令。,5.2 选 择 结 构 1. IfThen语句(单分支结构) If Then 语句块 End If（注意多行if语句要有End If） 或 If Then ,重要的是学会两个数的交换，若上述语句次序变一下，结果如何？,例：已知两个数x和y，比较它们的大小，使得x大于y. If xy Then t=x x=y y=t End If 或 If xy Then t=x: x=y: y=t,2. IfThenElse语句(双分支结构) If Then Else End If If Then Else 计算分段函数：,双分支结构实现： If x0 Then y=sin(x)+sqr (x*x+1) Else y=cos(x)x3+3*x End If,单分支结构实现： y=cos(x)x3+3*x If x0 Then y=sin(x)+sqr (x*x+1),3. IfThenElseIf语句(多分支结构) 形式： If Then ElseIf Then Else 语句块 n+1 End If,例5.1(补) 已知变量strC中存放了一个字符，判断该字符是字母字符、数字字符还是其它字符。 用多分支结构实现: If Ucase(strC) =“A“ And Ucase (strC) =“0“ And strC =“9“ Then Print strC + “是数字字符“ Else Print strC + “是其它字符“ End If,不管有几个分支，依次判断，当某条件满足，执行相应的语句，其余分支不再执行；若条件都不满足，且有Else子句，则执行该语句块，否则什么也不执行。. ElseIf不能写成 Else If。,例5.2(补) 已知百分制成绩mark，显示对应的五级制成绩。哪些正确，哪些错误？,4If语句的嵌套 If语句的嵌套是指If或Else后面的语句块中又包含If语句。 形式如下： If Then If Then End If End If,例5.3(补) 已知x，y，z三个数,使得xyz，用一个IF语句和一个嵌套的IF语句实现,If xy Then t=x: x=y: y=t If yz Then t=y: y=z: z=t If xy Then t=x: x=y: y=t End If End If,If语句的嵌套注意事项：书写锯齿型； If 与End If配对。,：与同类型的下面四种形式之一： 表达式 例: “A“ 一组枚举表达式(用逗号分隔) 2,4,6,8 表达式1 To 表达式2 60 To 100 Is 关系运算符表达式 Is 60,5. Select Case语句(情况语句) 形式： Select Case 变量或表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 Case Else 语句块n+1 End Select,数值型或字符串表达式,例5.4(补) 变量strC中存放了一个字符，判断该字符类型。 用多分支结构实现： If Ucase(strC) =“A“ And Ucase (strC) =“0“ And strC =“9“ Then Print strC + “是数字字符“ Else Print strC + “其他字符“ End If 用Select Case语句实现: Select Case strC Case “a“ To “z“，“A“ To “Z“ Print strC + “是字母字符“ Case “0“ To “9“ Print strC + “是数字字符“ Case Else Print strC + “是其它字符“ End Select,例5.5(补) 已知坐标点(x，y)，判断其落在哪个象限。,哪个能实现，哪个不能实现？,方法一 If x 0 And y 0 Then Print “在第一象限“ ElseIf x 0 Then Print “在第二象限“ ElseIf x 0 And y 0 Then Print “在第四象限“ End If,方法二 Select Case x,y Case x 0 And y 0 Print “在第一象限“ Case x 0 Print “在第二象限“ Case x 0 And y 0 Print “在第四象限“ End Select,方法二代码错误： 1. Select Case 后不能出现多个变量； 2. Case后不能出现变量及有关运算符。,例5.6 商店售货，按购买货物的多少分别给予不同优惠折扣如下:编程计算购物款数。购物不足250元，无折扣，购物满250元、不足500元，减价5%，计算机根据学生的答案判断正确与否，当结束时给出成绩。购物满500元、不足1000元，减价7.5%，购物满1000元、不足2000元，减价10%，购物满2000元，减价15%。 分析:设购物款为m，折扣为d，以上规定可表示如下：,d=,0 (m250) 5% (250m500) 7.5% (500m1000) 10% (1000m2000) 15% (2000m) 代码如下：,Private Sub Command1_Click() Dim s As Single, d As Single m = Val(InputBox(“请输入应付款:“) Select Case m Case Is 250 d = 0 Case Is 500 d = 0.05 Case Is 1000 d = 0.075 Case Is 2000 d = 0.1 Case Else d = 0.15 End Select Text1.Text = Str(m) Text2.Text = Str(d) Text3.Text = Str(m * (1 - d) End Sub,Private Sub Command2_Click() End End Sub 运行结果如下：,6.条件函数 （1）IIf函数形式是： IIf（表达式，当表达式为True时的值，当表达式为False时的值） 例如，求x,y中大的数，放入Tmax变量中，语句如下： Tmax=IIf（x y，x，y） （2）Choose函数形式是： Choose（数字类型变量，值为1的返回值，值为2的返回值） 例如，Nop是1-4的值，转换成 + 、-、运算符的语句如下： Op= Choose（Nop，“+“，“-“，“，“） 当值为1，返回字符串“+”，然后放入Op变量中，值为2，返回字符串“-”，依次类推；当Nop是1-4的非整数，系统自动取Nop的整数再判断；若Nop不在14之间，函数返回Null值。 （3） Switch函数形式是： Switch（条件表达式1，条件表达式1为True时的值 ，条件表达式2，条件表达式2为True时的值）,常 见 错 误 1在选择结构中缺少配对的结束语句 对多行式的If块语句中，应有配对的 End If语句结束。 2. 多边选择ElseIf关键字的书写和条件表达式的表示 ElseIf 不要写成Else If。 3. Select Case语句的使用 Select Case 后不能出现多个变量；Case子句后不能出现变量，见例5.5。,5.3 循 环 结 构 1. For循环语句 (一般用于循环次数已知) 形式 For 循环变量初值 to 终值 Step 步长 语句块 Exit For 语句块 Next 循环变量,循环变量, =,终值,语句块,Exit For,语句块,循环变量加步长,T,F,循环变量得初值,循环体,例5.7(补) 计算1100的奇数和，程序段如下： Dim i %, s% 等价于： Dim i %, s% s=0 s=0 ： i = 1 For i = 1 To 100 step 2 re: If i = 100 Then s = s + i s = s + i Next i i = i +2 GoTo re End If,0 初值终值 =0 死循环,循环次数,要注意： 出了循环，循环控制变量值的问题。 例程序段： For i=2 To 13 Step 3 循环执行次数 Print i , 输出 i的值分别为: Next i 2 5 8 11 Print : Print “I=“, i 出了循环输出为: I=14 在循环体内对循环控制变量可多次引用；但最好不要对其赋值，否则影响原来的循环控制规律。,步长,例5.8(补)改变循环控制变量对循环的影响 Private Sub Command1_Click() j = 0 For i = 1 To 20 Step 2 i = i + 3 j = j + 1 Print “第“; j; “次循环i=“; i Next i Print “退出循环后i=“; i End Sub 正常情况：i=1,3,5,7,9,11,13,15,17,19 现在：i=4,9,14,19,例5.9 输入一个班的学习成绩，统计其中及格的学生人数，并计算出全班的平均分数。学生人数不定，输入负数时截止。设全班人数不超过50人。,Private Sub Command1_Click() Dim Score As Single, PassN As Integer, n As Integer Dim i As Integer, Sum As Single Text1 = “: Text2 = “: Text3 = “ Sum = 0: PassN = 0: n = 0 For i = 1 To 50 统计人数大于50时停止循环 Score = Val(InputBox(“请输入学生成绩:“) If Score = 60 Then PassN = PassN + 1 统计及格人数 n = n + 1 统计总人数 Sum = Sum + Score 统计总分 End If Next i Text1.Text = Str$(n) Text2.Text = Str$(PassN) Text3.Text = Str$(Sum / n) End Sub,2. DoLoop循环语句(用于控制循环次数未知) 形式1： Do While|Until 语句块 Exit Do 语句块 Loop,形式2： Do 语句块 Exit Do 语句块 Loop While|Until ,例5.10(补)我国有13亿人口，按人口年增长0.8%计算，多少年后我国人口超过26亿。 分析：解此问题可利用Do Loop循环求得，程序如下： Private Sub Command1_Click() x = 13 n = 0 Do While x 26 x = x * 1.008 n = n + 1 Loop Print “年数：“; n, “人口（亿）：“; x End Sub,例5.11(补) 用辗转相除法求两自然数m，n的最大公约数。 分析：求最大公约数的算法思想： (1)对于已知两数m，n，使得mn； (2) m除以n得余数r； (3)若r=0，则n为最大公约数结束；否则执行(4)； (4)mn，nr，再重复执行(2)。 例 求 m=14 ,n=6 的最大公约数. If m 0) m=n n=r r= m mod n Loop Print “最大公约数=“; n,m n r 14 6 2 6 2 0,辗转相减法 m=m-n mn n=n-m nm m、n为公约数 m=n Do While m n m n If m n Then 14 6 m = m n 8 6 Else 2 6 n = n m 2 4 End If 2 2 Loop,3.While-Wend结构,形式如下： While 条件 循环体 Wend 功能：当给定的“条件”为True时，执行循环体；否则，跳出循环体，执行Wend后面的语句。 注意：（1）该循环结构先测试条件，然后决定是否执行循环体。（2）如果“条件”总成立，则构成死循环，所以，在循环体中应该包含有修改“条件”的操作，使循环能正常结束。（3）当循环可以嵌套，不允许交叉。每个Wend和最近的While相匹配。 例5.12(补) 小红今年12岁，她父亲比她大30岁，编程计算她的父亲在几年后比她年龄大一倍，那时父女的年龄各为多少？,代码如下： Private Sub Form_Click() Dim age As Integer age = 12 While age * 2 age + 30 age = age + 1 Wend Print “经过“; age - 12; “ 年“ Print “小红父女的年龄分别是：“; age + 30; “和“; age End Sub,4. 循环的嵌套 一个循环体内又包含了一个完整的循环结构称为循环的嵌套. 例5.13(补)打印九九乘法表. For i = 1 To 9 For j = 1 To 9 se = i Next j Print Next i,思考：打印上三角或下三角程序如何改动？要打印下三角?,For j = 1 To i,For ii =1 To 10 For jj=1 To 20 Next ii Next jj,For ii =1 To 10 For ii=1 To 20 Next ii Next ii,For ii =1 To 10 For jj=1 To 20 Next jj Next ii,For ii =1 To 10 Next ii For ii =1 To 10 Next ii,对于循环的嵌套，要注意以下事项： 内循环变量与外循环变量不能同名； 外循环必须完全包含内循环，不能交叉； 不能从循环体外转向循环体内，反之则可以。 正确 错误,其它辅助控制语句 1. Go To 语句 形式: Go To 标号|行号 作用：无条件地转移到标号或行号指定的那行语句。 标号是一个字符序列，行号是一个数字序列。 2.Exit语句 多种形式： Exit For、Exit Do、Exit Sub、Exit Function等。 作用：退出某种控制结构的执行。 3. End语句 多种形式： End、 End If、 End Select、 End With、 End Type、 End Sub、 End Function、 作用：End结束一个程序的运行；其余表示某个结构的结束，与对应的结构语句配对出现。,4.With 语句 形式如下： With 对象 语句块 End With 作用：对某个对象执行一系列的操作，而不用重复指出对象的名称。 With Label1 .Height = 2000 .Width = 2000 .FontSize=22 .Caption = “MyLabel“ End With,Label1.Height = 2000 Label1.Width = 2000 Label1.FontSize=22 Label1.Caption = “MyLabel“,等价,5.4 常用算法,算法是对某个问题求解过程的描述。 1. 累加、连乘,1100的5或7的倍数的和 Sum = 0 For i = 1 To 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then Sum = Sum + i End If Next i Print Sum,310的乘积 t = 1 For i =3 To 10 t = t * i Next i Print t,思考：若把循环体前面置各变量初值的语句放在循环体内，程序运行时会产生什么情况？,例5.14(补) 求自然对数e的近似值,要求其误差小于0.00001，近似公式为: 该例题涉及两个问题： （1）用循环结构求级数和的问题。本例根据某项值的精度来控制循环的结束与否。 （2）累加：e=e+t 循环体外对累加和的变量清零 e=0 连乘：n=n*i 循环体外对连乘积变量置1 n=1,定义Form_Click()事件过程如下：,Private Sub Form_Click() Dim i%, n e End Sub,2. 求素数 素数是一个大于2，除了1和自身外，不能被任何整数整除的整数。 判别某数m是否为素数最简单的方法是: 对于m ，从 i=2，3，m-1判别m能否被i整除，只要有一个能整除，m不是素数，否则m是素数。 例5.15(补) 求100以内的素数。代码如下： For m = 2 To 100 For i = 2 To m - 1 If (m Mod i) = 0 Then GoTo NotNextM Next i Print m; NotNextM: Next m,m是否为素数,求100以内的素数,思考： 此例用Go To语句对非素数不作判断，若不用GoTo语句，如何修改程序？,3.穷举法 “穷举法”也称为“枚举法”或“试凑法”，即将可能出现的各种情况一一测试，判断是否满足条件，一般采用循环来实现。 例5.16(补) 百元买百鸡问题。假定小鸡每只5角，公鸡每只2元，母鸡每只3元。现在有100元钱要求买100只鸡，编程列出所有可能的购鸡方案。 设母鸡、公鸡、小鸡各为x、y、z只，根据题目要求，列出方程为： x+y+z=100 3x+2y+0.5z=100 三个未知数，两个方程，此题有若干个解。 解决此类问题采用“试凑法”，把每一种情况都考虑到。 方法一：最简单三个未知数利用三重循环来实现。 方法二：从三个未知数的关系，利用两重循环来实现。,4.递推法 “递推法”又称为“迭代法”，其基本思想是把一个复杂的计算过程转化为简单过程的多次重复。每次重复都从旧值的基础上递推出新值，并由新值代替旧值。 例5.17(补) 猴子吃桃子。小猴在某天摘桃若干个，当天吃掉一半多一个；第二天吃了剩下的桃子的一半多一个；以后每天都吃剩下桃子的一半多一个，到第7天要吃时只剩下一个，问小猴共摘下了多少个桃子？ 分析：这是一个“递推”问题，先从最后一天推出倒数第二天的桃子，再从倒数第二天的桃子推出倒数第三天的桃子。设第n天的桃子数为xn，那么它是前一天的桃子数的xn-1 的一半减1，即 xn = xn-1 /2-1，即 xn-1=（ xn+1）*2,5.最小、最大值 在若干个数中求最大值，一般先假设一个较小的数为最大值的初值，若无法估计较小的值，则取第一个数为最大值的初值；然后将每一个数与最大值比较，若该数大于最大值，将该数替换为最大值；依次逐一比较。 例5.18(补) 随机产生10个100200之间的整数，求最大值。,Private Sub Command1_Click() Max = 100 For i = 1 To 10 x = Int(Rnd * 101 + 100) Print x; If x Max Then Max = x Next i Print Print “最大值=“; Max End Sub,例5.19(补) 实际应用，求最短残料。 有一根长度为321米的钢材料，要将它截取成两种规格a、b的长度分别为17米和27米的短料，每种至少1段，问分隔成a，b各多少段后，剩余的残料r最少？ 分析，该题利用“试凑法”通过二重循环求残料r的最小值正数，残料不可能是负数。程序如下：,Private Sub Command1_Click() Dim a%, b%, r!, ia%, ib% r = 321 最小值初值取钢材料的长度 For b = 1 To 321 27 b最多的段数 For a = 1 To 321 17 - b a最多的段数 t = 321 - b * 27 - a * 17 当前的残料 If t 0 And t r Then r = t 求最短的残料 ia = a 最短残料时a的段数 ib = b 最短残料时b的段数 End If Next a Next b Print ia, ib, r End Sub,常 见 错 误 1. 不循环或死循环的问题 主要是循环条件、循环初值、循环终值、循环步长的设置有问题。 2. 循环结构中缺少配对的结束语句 For 缺少 配对的Next 3. 循环嵌套时,内外循环交叉 4. 累加、连乘时，存放累加、连乘结果的变量赋初值问题 (1)一重循环 在一重循环中,存放累加、连乘结果的变量初值设置应在循环语句前。 （2）多重循环 这要视具体问题分别对待。,本章小结,选择结构：if，selectcase, iif,choose 循环结构: for,doLoop语句,辅助语句（GoTo,Exit, End,Stop,WithEnd With） 常用算法:累加，连乘，最大值，最小值，穷举，递推,习题讲解,1. 在窗体中添加一个命令按钮（Name属性为Command1），然后编写如下代码： Private Sub Command1_Click() s = 0 For k = 1 To 3 If k = 1 Then x = 1 ElseIf k = 2 Then x = 2 ElseIf k = 3 Then x = 3 Else x = 4 End If Print x; s = s + x Next k Print s End Sub 程序运行后，单击命令按钮，输出结果是( ) A)3 3 3 9 B)1 2 1 6 C)1 1 1 3 D)1 2 3 6,2. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（） x=InputBox（“请输入整数“） Select Case x Ca