VB 第四章 顺序分支与循环结构(精品).ppt

《VB 第四章 顺序分支与循环结构(精品).ppt》由会员分享，可在线阅读，更多相关《VB 第四章 顺序分支与循环结构(精品).ppt（37页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第四章第四章 基本的控制结构基本的控制结构 4.1 4.1 顺序结构顺序结构 4.2 4.2 选择结构选择结构 4.3 4.3 循环结构循环结构 4.4 4.4 其它辅助控制语句其它辅助控制语句 4.5 4.5 常用算法（一）常用算法（一）4.6 4.6 常见错误常见错误 （顺序、条件、循环）（顺序、条件、循环）4.1 4.1 顺序结构顺序结构一一.赋值语句赋值语句 P96P96 形式:LET变量名表达式变量名表达式 作用:将表达式的值赋值给变量名.一般用于给变量赋值或对控件设定属性值.例:sRate!=0.1 Text1.Text 欢迎使用Visual Basic 6.0”当表达式的类型与变

2、量的类型不一致时,强制转换成左边的精度 iA%=10 /3 iA中的结果为3 注意：注意：错误的赋值语句错误的赋值语句 二二.与用户交互函数和过程与用户交互函数和过程 1.1.InputBoxInputBox函数函数 P80P80 InputBoxInputBox(提示提示，标题，标题，缺省，缺省，x x 坐标位置坐标位置，y y坐标位置坐标位置)其中:提示 提示信息，标题 对话框标题，缺省输入区缺省值 函数返回字符类型.注意多行提示信息的显示方法注意多行提示信息的显示方法:Dim strName As String*40 strName=InputBox(“请输入你的姓名”+vbCrLf+“

3、然后单击确定”,“输入框”)也可以使用如下语句：Dim strName As String*40，strS1 As String*40strS1=“请输入你的姓名”+Chr(13)+Chr(10)+“然后单击确定”strName=InputBox(strS1，“输入框”，100，100)当键盘输入“王晓明”后，变量strName获得键盘输入的值.2.MsgBoxMsgBox函数和函数和MsgBoxMsgBox过程过程P81P81 函数形式:变量%=MsgBox(提示,按钮，标题)过程形式:MsgBox 提示,按钮,标题 按钮值如下:函数返回所选按钮整数值:例例4.1 编一帐号和密码检验程序。要

4、求:帐号不超过6位数字,有错,清除原内容再输入.密码输入时在屏幕上以“*”代替;若密码错，显示有关信息，选择“重试”按钮，清除原内容再输入，选择“取消”按钮，停止运行。分析:帐号6位,MaxLength为6,LostFocus判断数字IsNumeric函数 密码PassWordChar为“*”,MsgBox函数设置密码错对话框.常见错误常见错误数据合法性检查中引起程序的死循环Private Sub Text1_LostFocus()If Not IsNumeric(Text1)Then msgbox“请输入正整数 Text1=Text1.SetFocus End IfEnd SubPrivat

5、e Sub Text2_LostFocus()If Not IsNumeric(Text2)Then msgbox“请输入正整数 Text2=Text2.SetFocus End IfEnd SubIf Text2 And Not IsNumeric(Text2)当年龄框中输入非字符串，并按下Tab键时。就会出现循环的错误提示。例4-1-12009-3-22 4.2 4.2 选择结构选择结构 1.1.IfThenIfThen语句语句(单分支结构单分支结构)P100P100 If Then 语句块语句块 End If 或或 If Then 例:已知两个数x和y，比较它们的大小，使得x大于y.If

6、 xy Then t=x x=y y=t End If 或或 If xy Then t=x:x=y:y=t重要的是学会两个数的交换，若上述语句次序变一下，结果如何？重要的是学会两个数的交换，若上述语句次序变一下，结果如何？单分支结构实现:y=cos(x)x3+3*x If x0 Then y=sin(x)+sqr(x*x+1)例如：计算分段函数思考：如果上面的两个语句换一下顺序即:If x0 Then y=sin(x)+sqr(x*x+1)y=cos(x)x3+3*x 会是什么结果？2.2.IfThenElseIfThenElse语句语句(双分支结构双分支结构)P101P101 If Then

7、 Else End If 也可以写为一行，格式为：If Then Else 双分支结构实现:If x0 Then y=sin(x)+sqr(x*x+1)Else y=cos(x)x3+3*x End If3 3IfIf语句的嵌套语句的嵌套P102P102 If语句的嵌套是指If或Else后面的语句块中又包含If语句。形式如下：If Then If Then End If End If 例例4.4 已知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

8、:y=t End If End IfIf语句的嵌套注意事项：书写锯齿型；If 与End If配对。4.IfThen4.IfThenElseIfElseIf语句语句(多分支结构多分支结构)P106P106 形式:If Then ElseIf Then Else 语句块语句块 n+1 End If例如：成绩小于60吗，否的话小于70吗，例例4.2 已知变量strC中存放了一个字符，判断该字符是字母字符、数字字符还是其他字符。注：Ucase()小写变大写，Lcase()相反用多分支结构实现用多分支结构实现:If Ucase(strC)=A And Ucase(strC)=0 And strC=60

9、thenI=“及格及格”if mark=70 thenI=“中中”if mark=80 thenI=“良良”if mark=90 thenI=“优优”end ifEnd ifend ifprint IElseprint“不及格不及格”End if：与同类型的下面四种形式之一：表达式 例:A 一组枚举表达式(用逗号分隔)2,4,6,8 表达式1 To 表达式2 60 To 100 Is 关系运算符表达式 Is =A And Ucase(strC)=0 And strC 0 And y 0 Then Print 在第一象限ElseIf x 0 Then Print 在第二象限ElseIf x 0

10、And y 0 And y 0 And y 0Print 在第一象限 Case x 0Print 在第二象限 Case x 0 And y 0 And y 0Print 在第四象限End Select方法二代码错误：1.Select Case 后不能出现多个变量，应写为后不能出现多个变量，应写为select case x2.Case后不能出现变量及有关运算符，应写为后不能出现变量及有关运算符，应写为 is 0,而非而非x y，x，y）（2）Choose函数形式是：Choose（数字类型变量，值为数字类型变量，值为1的返回值，值为的返回值，值为2的返回值的返回值）例如，No是14的值，转换成+、

11、-、运算符的语句如下：No=int(rnd*4+1)Ysf=Choose（No，+，-，）当值为1，返回字符串“+”，然后放入Ysf变量中，值为2，返回字符 串“-”，依次类推；当No是1-4的非整数，系统自动取No的整数办法在判断；若No不在1-4之间，函数返回Null值。注意注意Rnd的用法，避免出现的用法，避免出现“固定的随机数固定的随机数”(使用使用Randomize语句）语句）常见错误常见错误1在选择结构中缺少配对的结束语句对多行式的If块语句中，应有配对的 End If语句结束。2.ElseIf关键字不要写成Else If；多个条件表达式次序问题,见例4.33.Select Cas

12、e语句的使用 Select Case 后不能出现多个变量；Case子句后不能出现变量见例见例4.64.64.3 循环结构循环结构P1101.DoLoop循环语句循环语句(用于控制循环次数未知)形式1：Do While|Until 语句块语句块 Exit Do 语句块语句块 Loop形式2：Do 语句块语句块Exit Do语句块语句块 Loop While|Until 先判断后执行，语句块可先判断后执行，语句块可能一次也不执行能一次也不执行先执行后判先执行后判 断，语句块至少执断，语句块至少执行一次行一次Do While LoopDo While Loop示例示例 i=5 Do While i

13、10 Print i;i=i+2 Loop结果：5 7 9Do Loop While Do Loop While 示例示例 i=5 Do Print i;i=i+2 Loop While i 10结果：5 7 9例4.11 我国有13亿人口，按人口年增长0.8%计算，多少年后我国人口超过26亿。分析：解此问题两种方法，可根据公式：26=13*(1+0.008)n 直接利用标准对数函数求得；也可利用循环求得，程序如下：Private Sub Command1_Click()x=13 n=0 Do While x n；(2)m除以n得余数r；(3)若r=0，则n为最大公约数结束；否则执行(4)；(

14、4)m n，n r，再重复执行(2)。例 求 m=14,n=6 的最大公约数.If m n Then t=m:m=n:n=t r=m mod n Do While(r 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=nDo 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 2Loop2.For循环语句循环语句(一般用于循环次数已知)形式：For 循环变量初值循环变

15、量初值 to 终值终值 Step 步长步长 语句块语句块Exit For 语句块语句块 Next 循环变量循环变量循环体例4.8 计算1100的奇数和，程序段如下：Dim i%,s%s=0 For i=1 To 100 step 2 s=s+I Next i 0 初值终值 =1 时,可省略终值=0 死循环循环次数要注意：要注意：v 出了循环，循环控制变量值的问题。例程序段：For i=2 To 13 Step 3 输出 i的值分别为:Print i 2 5 8 11 Next I 最后输出结果为:I=14 Print 循环次数为 Print“I=“,I For语句执行次数为5次v 在循环体内对

16、循环控制变量可多次引用；但最好不要对其赋值，否则影响原来的循环控制规律(参下面的例题)。步长例4.9 改变循环控制变量对循环的影响。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例4.10 输出可打印的ASCII码字符与它的编码值。3.循环的嵌套循环的嵌套 一个循环体内又包含了一个完整的循环结构称为循环的嵌套.例例4.13打印各

17、种九九乘法表.For i=1 To 9 For j=1 To 9 se=i&j&=&i*j Picture1.Print Tab(j-1)*9+1);se;Next j Picture1.Print Next 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 i

18、i=1 To 10 Next ii For ii=1 To 10 Next ii 对于循环的嵌套，要注意以下事项：内循环变量与外循环变量不能同名；外循环必须完全包含内循环，不能交叉；不能从循环体外转向循环体内，反之则可以。正正 确确错错 误误4.4 4.4 其他辅助控制语句其他辅助控制语句 1.Go To 语句语句 形式形式:Go To 标号标号|行号行号 作用：无条件地转移到标号或行号指定的那行语句.标号是一个字符序列,行号是一个数字序列.2.Exit语句语句 多种形式：Exit For、Exit Do、Exit Sub、Exit Function等。作用：退出某种控制结构的执行。3.End

19、语句语句 多种形式：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.

20、FontSize=22 Label1.Caption=MyLabel 等价实际应用举例实际应用举例1.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思考：若把循环体前面置各变量初值的语句放在循环体内，程序运行时会产生什么情况？求下面表达式的近似值,要求其误差小于0.00001 Private Sub Command1_Click(

21、)Dim x!表达式的最终值 Dim t!表达式中通项的值 Dim n&下一通项中n的值，由于可能计算的项比较多，因此定义为长整型 x=1 x的初始值为1 n=2 该计算下一个通项2/(1*3)了 t=n/(n-1)/(n+1)下一个通项的值，也可以写为t=n/(n-1)*(n+1)Do Until t=0.00001 x=x+t n=n+1 t=n/(n-1)/(n+1)Loop Print 计算结果为;x;计算了;n;项End Sub2.求素数求素数素数是一个大于2，且不能被1和本身以外的整数整除的整数。判别某数m是否为素数最简单的方法是:对于m 从 i=2，3，m-1判别m能否被i整除，

22、只要有一个能整除，m不是素数，否则m是素数。例例4.15 求100以内素数的代码：For m=2 To 100 For i=2 To m-1 If(m Mod i)=0 Then GoTo NotNextM Next i Print mNotNextM:Next mm是否为素数求100以内的素数思考：思考：此例用Go To语句对非素数不作判断，若不用GoTo语句，如何修改程序？（参见例题4.15）3.3.穷举法穷举法 “穷举法”也称为“枚举法”或“试凑法”，即将可能出现的各种情况一一测试，判断是否满足条件，一般采用循环来实现。例例4.16 百元买百鸡问题。假定小鸡每只5角，公鸡每只2元，母鸡每

23、只3元。现在有100元钱要求买100只鸡，编程列出所有可能的购鸡方案。设母鸡、公鸡、小鸡各为x、y、z只，根据题目要求，列出方程为：x+y+y=100 3x+2y+0.5z=100三个未知数，两个方程，此题有若干个解。解决此类问题采用“试凑法”，把每一种情况都考虑到。方法一：最简单三个未知数利用三重循环来实现。方法二：从三个未知数的关系，利用两重循环来实现。4.4.递推法递推法 “递推法”又称为“迭代法”，其基本思想是把一个复杂的计算过程转化为简单过程的多次重复。每次重复都从旧值的基础上递推出新值，并由新值代替旧值。例例4.17 猴子吃桃子。小猴在某天摘桃若干个，当天吃掉一半多一个；第二天吃了

24、剩下的桃子的一半多一个；以后每天都吃尚存桃子的一半多一个，到第7天要吃时只剩下一个，问小猴共摘下了多少个桃子？分析：这是一个“递推”问题，先从最后一天推出倒数第二天的桃子，再从倒数第二天的桃子推出倒数第三天的桃子。设第n天的桃子为xn，那么它是前一天的桃子数的xn-1 的一半减1，即xn=（xn-1+1）25.5.最小、最大值最小、最大值在若干个数中求最大值，一般先假设一个较小的数为最大值的初值，若无法估计较小的值，则取第一个数为最大值的初值；然后将每一个数与最大值比较，若该数大于最大值，将该数替换为最大值；依次逐一比较。例例 随机产生随机产生1010个个100100200200之间的数，求最

25、大值。之间的数，求最大值。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 最大值=;MaxEnd Sub4.4.7 7 常见错误常见错误1.不循环或死循环的问题不循环或死循环的问题 主要是循环条件、循环初值、循环终值、循环步长的设置有问题。2.循环结构中缺少配对的结束语句循环结构中缺少配对的结束语句 For 少 配对的Next 3.循环嵌套时循环嵌套时,内外循环交叉内外循环交叉4.累加、连乘时，存放累加、连乘结果的变量赋初值问题累加、连乘时，存放累加、连乘结果的变量赋初值问题 (1)一重循环 在一重循环中,存放累加、连乘结果的变量初值设置应在循环语句前。（2）多重循环 这要视具体问题分别对待。