VB第5章选择结构程序设计课件.ppt

《VB第5章选择结构程序设计课件.ppt》由会员分享，可在线阅读，更多相关《VB第5章选择结构程序设计课件.ppt（54页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第第5 5章章选择结构选择结构程序设计程序设计本章要点本章要点:条件语句条件语句单行结构条件语句单行结构条件语句If.Then.Else.块结构条件语句块结构条件语句If.ThenEndIf多分支选择语句多分支选择语句Select Case.End Select条件语句的嵌套条件语句的嵌套特点特点:根据条件是否成立，决定程序的执行分支根据条件是否成立，决定程序的执行分支例例5-3例例5-51引言引言 顺序结构程序的执行次序是按语句的先后排列顺序结构程序的执行次序是按语句的先后排列次序依次执行的，然而，计算机在处理实际问题次序依次执行的，然而，计算机在处理实际问题时，往往需要根据条件是否成立，决

2、定程序的执时，往往需要根据条件是否成立，决定程序的执行方向，在不同的条件下，进行不同的处理。假行方向，在不同的条件下，进行不同的处理。假如遇到这样一个问题：如遇到这样一个问题：Y=|x|x0lnx x0 在输入变量在输入变量x的值之后，需根据的值之后，需根据x的不同取值范的不同取值范围做不同的处理，使用顺序结构的程序无法解决围做不同的处理，使用顺序结构的程序无法解决这一问题的。本章将介绍解决此类问题的语句结这一问题的。本章将介绍解决此类问题的语句结构。构。25.1 单行结构条件语句单行结构条件语句1.格式格式 If 条件条件 Then 语句组语句组1 Else 语句组语句组22.功能功能 如果

3、如果“条件条件”成立成立(True)，则执行，则执行“语句语句组组1”否则执行否则执行“语句组语句组2”T语句组语句组1条件条件语句组语句组2F例：例：If x 0 Then y=1 Else y=-1 例：例：If x 0 And x 10 Then y=1 Else y=-1数值表达式：数值表达式：0为为False；非非0为为True 例：例：x=5 If x Then y=1 Else y=-1字符串表达式：字符串表达式：0为为False；非非0为为True2）可以没有可以没有Else部分部分,这时必须有这时必须有“语句组语句组1”例：例：If Xaaa Then Print X43）语

4、句组语句组1、语句组、语句组2:可以有多条语句，可以有多条语句，各语句之间用冒号隔开。各语句之间用冒号隔开。例例:If N0 Then A=A+B:B=B+A Else A=A-B:B=B-A5【例【例5-1】设界面如下图所示，用文本框输】设界面如下图所示，用文本框输入入x的值，单击的值，单击“计算计算Y”按钮时，根据以按钮时，根据以下公式计算下公式计算y的值。的值。|x|x0lnx x0y=Command1Text1Label36Private Sub Command1_Click()X=Val(Text1.Text)If X 0 Then A=A+B:B=B+A Else _ A=A-B:

5、B=B-A82）多条单行结构条件语句不要用冒号合并）多条单行结构条件语句不要用冒号合并成一行成一行。例如：。例如：a=1:b=-2 If a 0 And b 0 Then y=a+b If a 0 And b 0 And b 0 Then y=a+b:If a 0 And b=0 Then X=1+X Else X=5-X Y=1-X Print Y=;Y X=-2 If X=0 Then X=1+X Else X=5-X Y=1-X Print Y=;Y共同出口共同出口105.2 块结构条件语句块结构条件语句1.格式格式 If 条件条件1 Then 语句组语句组1 ElseIf 条件条件2

6、Then 语句组语句组2 ElseIf 条件条件N Then 语句组语句组N Else 其他其他语句组语句组 End If例：例：If x 10 Then y=x-10 ElseIf x 5 Then y=x-5 ElseIf x 0 Then y=x Else Print error End If112.功能功能TTTF条件条件1 1语句组语句组1 1语句组语句组2 2条件条件2 2F条件条件n n语句组语句组n nF语句组语句组n+1n+112条件：关系表达式、布尔表达式、数值表条件：关系表达式、布尔表达式、数值表达式或字符串表达式。达式或字符串表达式。两种常见的简化形式两种常见的简化形式

7、:形式一：形式一：If 条件条件 Then 语句组语句组1Else 语句组语句组2End If形式二：形式二：If 条件条件 Then 语句组语句组End If3.说明说明13【例【例5-2】某运输公司对用户计算运费，距离某运输公司对用户计算运费，距离越远，每公里运费越低，计算标准如下越远，每公里运费越低，计算标准如下:距离距离250km 没有折扣没有折扣 250km距离距离500km 2%折扣折扣 500km距离距离1000km 5%折扣折扣 1000km距离距离2000km 8%折扣折扣 2000km距离距离3000km 10%折扣折扣 3000km距离距离 15%折扣折扣使用块结构条件语

8、句，按以上标准计算运费使用块结构条件语句，按以上标准计算运费14分析：分析：设每公里每吨货物的基本运费为设每公里每吨货物的基本运费为Price，货物重为货物重为Weight，运输距离为运输距离为Distance，折扣为折扣为Discount，则总运费则总运费Freight的计算公式为的计算公式为:Freight=Price*Weight*Distance*(1-Discount)15界面设计：界面设计：Text1Text2Text3Label4Command116代码设计：代码设计：Private Sub Command1_Click()Price=Val(Text1.Text)输入基本运费输

9、入基本运费 Weight=Val(Text2.Text)输入货物重量输入货物重量 distance=Val(Text3.Text)输入运输距离输入运输距离 根据不同的运输距离根据不同的运输距离distance计算折扣计算折扣 If distance=250 And distance=500 And distance=1000 And distance=2000 And distance 3000 Then Discount=0.1 Else Discount=0.15 End If 计算总运费计算总运费 Freight=Price*Weight*distance*(1-Discount)输出总

10、运费输出总运费 Label4.Caption=Format(Freight,0.00)End Sub18If distance 250 Then Discount=0ElseIf distance 500 Then Discount=0.02ElseIf distance 1000 Then Discount=0.05ElseIf distance 2000 Then Discount=0.08ElseIf distance=0 Then y=1 Else y=2 End If 以下两种写法都是错误的：以下两种写法都是错误的：写法一：写法一：If x=0 Then y=1Else y=2End

11、 If写法二：写法二：If x=1 Then y=1 Else y=2End If4.注意注意205.3 多分支选择语句多分支选择语句1.格式格式 Select Case 测试表达式测试表达式 Case 表达式表表达式表1 语句组语句组1 Case 表达式表表达式表2 语句组语句组2 Case Else 语句组语句组n End Select2.功能功能根据测试表达式根据测试表达式的值，按顺序匹的值，按顺序匹配配Case后的表后的表达式，如果匹配达式，如果匹配成功，则执行该成功，则执行该Case下的语句下的语句块，然后转到块，然后转到End Select语句语句之后继续执行。之后继续执行。21语

12、句组语句组n+1n+1TTTF匹配匹配表达式表表达式表1语句组语句组1 1语句组语句组2 2F语句组语句组n nF匹配表达式匹配表达式表表2匹配表达式匹配表达式表表n多分支选择语句的功能流程图多分支选择语句的功能流程图:223.说明说明1）测试表达式测试表达式:数值或字符表达式数值或字符表达式2）Case 后的后的“表达式表表达式表”可以为如下形式可以为如下形式:表达式表达式1,表达式表达式2.如如:Case 1,3,5 表达式表达式1 TO 表达式表达式2 如如:Case 10 TO 30 Case A TO Z Is 关系运算符关系运算符 表达式表达式 如如:Case Is=10 Case

13、 Is=0 与与 Case 0 相同相同 且三种形式可以混用且三种形式可以混用,如如:Case Is -5,0,5 To 10023【例例5-3】用用多多分分支支选选择择语语句句实实现现：输输入入年年份和月份，求该月的天数。份和月份，求该月的天数。分析：分析：当月份为当月份为1、3、5、7、8、10、12时，天时，天数为数为31天；天；当月份为当月份为4、6、9、11时，天数为时，天数为30天；天；当月份为当月份为2时，如果是闰年则天数为时，如果是闰年则天数为29天，天，否则天数为否则天数为28天。天。某年为闰年的条件是：某年为闰年的条件是：年份能被年份能被4整除，但不能被整除，但不能被100

14、整除，或整除，或年份能被年份能被400整除。整除。24界面设计：Text1Text2Text325代码设计：Private Sub Command1_Click()Dim Y As Integer,M As Integer Y=Val(Text1.Text)输入年份输入年份 M=Val(Text2.Text)输入月份输入月份 Select Case M Case 1,3,5,7,8,10,12 Text3.Text=31 Case 4,6,9,11 Text3.Text=3026 Case 2 如果月份为如果月份为2 If(Y Mod 4=0 And Y Mod 100 0)_ Or(Y Mo

15、d 400=0)Then Text3.Text=29 Else Text3.Text=28 End If End SelectEnd Sub271）“测试表达式测试表达式”的类型应与各的类型应与各Case后的表后的表达式类型一致。达式类型一致。2）不能在不能在Case后的表达式中使用后的表达式中使用“测试表测试表达式达式”中的变量。例如：中的变量。例如：Select Case X Case X 0 在这里使用了在这里使用了X，是错误的，是错误的 Y=Abs(X)End Select4.注意注意283）“测试表达式测试表达式”只能是一个变量或一个只能是一个变量或一个表达式，而不能是变量表或表达式

16、表。例表达式，而不能是变量表或表达式表。例如，检查变量如，检查变量X1、X2、X3之和是否小于之和是否小于零，零，不能写成：不能写成：Select Case X1,X2,X3 错误写法错误写法 Case X1+X2+X3 0 End Select 而应该写成：而应该写成：Select Case X1+X2+X3 正确写法正确写法 Case Is 0 End Select294）不要在不要在Case后使用布尔运算符表示条件后使用布尔运算符表示条件 例如，要表示条件例如，要表示条件0X0 And Is B,A,B)例例2：求三个变量：求三个变量A、B和和C的最大数：的最大数：MaxAB=IIf(A

17、 B,A,B)MaxABC=IIf(MaxAB C,MaxAB,C)312Choose函数函数格式：格式：Choose(数值表达式数值表达式,选项选项1,选项选项2,.,选项选项n)功能：功能：当当“数值表达式数值表达式”的值为的值为1时，返回时，返回“选项选项1”的值；当的值；当“数值表达式数值表达式”的值为的值为2时，返回时，返回“选项选项2”的值；的值；。如果如果“数值表达式数值表达式”的值不是整数，则先四的值不是整数，则先四舍五入为整数。舍五入为整数。当数值表达式小于当数值表达式小于1或大于或大于n时，返回时，返回Null。32例：将成绩例：将成绩1分、分、2分、分、3分、分、4分和分

18、和5分转分转换成相应的等级：换成相应的等级：不及格（不及格（1分，分，2分）分）及格（及格（3分）分）良（良（4分）分）优（优（5分）分）语句如下：语句如下：Grade=Choose(Score,不及格不及格,不及不及格格,及格及格,良良,优优)33 如果在条件成立或不成立的情况下要继如果在条件成立或不成立的情况下要继续判断其他条件，则可以使用嵌套的条件语续判断其他条件，则可以使用嵌套的条件语句来实现，也就是在语句组中再使用另一个句来实现，也就是在语句组中再使用另一个条件语句。条件语句。5.5 条件语句的嵌套条件语句的嵌套34块结构条件语句的嵌套示例：块结构条件语句的嵌套示例：If A=1 T

19、hen If B=0 Then Print*0*ElseIf B=1 Then Print*1*End IfElseIf A=2 Then Print*2*End If35多分支选择语句的嵌套示例：多分支选择语句的嵌套示例：Select Case A Case 1 Select Case B Case 0 Print*0*Case 1 Print*1*End Select Case 2 Print*2*End Select36多分支选择语句与块结构条件语句的互多分支选择语句与块结构条件语句的互相嵌套示例：相嵌套示例：Select Case A Case 1 If B=0 Then Print*

20、0*ElseIf B=1 Then Print*1*End If Case 2 Print*2*End Select37【例【例5-4】求一元二次方程求一元二次方程ax2+bx+c=0的解的解 5.6 应用举例应用举例1)如果如果a=0，则不是二次方程，此时如果则不是二次方程，此时如果b=0，则提示重新输入系数；如果则提示重新输入系数；如果b 0，则则:x=-c/b2)如果如果a 0，且且b2-4ac=0，则有两个相等的则有两个相等的实根实根3)如果如果a 0，且且b2-4ac0，则有两个不等的则有两个不等的实根实根4)如果如果a 0，且且b2-4ac 0 X1=(-B+Sqr(Delta)/

21、(2*A)X2=(-B-Sqr(Delta)/(2*A)Print X1=;Format(X1,0.000)CurrentX=600:CurrentY=1300 Print X2=;Format(X2,0.000)Case Is 0 A1=-B/(2*A)A2=Sqr(Abs(Delta)/(2*A)41 Print X1=;Format(A1,0.000);+;_ Format(A2,0.000);i CurrentX=600 CurrentY=1300 Print X2=;Format(A1,0.000);-;_ Format(A2,0.000);i End SelectEnd Sub42

22、【例【例5-5】设计一个口令检测程序，界面如下设计一个口令检测程序，界面如下图，当用户输入的口令正确时，显示图，当用户输入的口令正确时，显示“恭恭喜！您已成功进入本系统喜！您已成功进入本系统”，否则，显示，否则，显示，“口令错！请重新输入口令错！请重新输入”。如果连续两次。如果连续两次输入了错误口令，在第三次输入完口令后输入了错误口令，在第三次输入完口令后则显示一个消息框，提示则显示一个消息框，提示“对不起对不起,您不能您不能使用本系统使用本系统”，然后结束程序的执行。，然后结束程序的执行。Text1Label243分析：分析：界面中用一个文本框界面中用一个文本框Text1接受口令，接受口令，

23、Text1的属性设置如下：的属性设置如下：PasswordChar：*MaxLength：6 要求运行时在用户输入完口令并按回车要求运行时在用户输入完口令并按回车键时对口令进行判断，因此本例使用了文键时对口令进行判断，因此本例使用了文本框本框Text1的的KeyUp事件过程事件过程，当焦点在文，当焦点在文本框时，松开键盘任一键后产生本框时，松开键盘任一键后产生KeyUp事事件，同时返回按键代码件，同时返回按键代码KeyCode。回车键的回车键的KeyCode为为13，所以程序首先判断如果用户，所以程序首先判断如果用户在在Text1中按下了回车键，表示口令输入完，中按下了回车键，表示口令输入完，

24、再判断口令是否正确。再判断口令是否正确。Text1的的KeyUp事件过程如下：事件过程如下：44Private Sub Text1_KeyUp(KeyCode As Integer,_ Shift As Integer)Static I As Integer 保存输入错误口令的次数保存输入错误口令的次数 If KeyCode=13 Then 如果按下的键为回车键如果按下的键为回车键 If UCase(Text1.Text)=HELLO Then Label2.Caption=恭喜恭喜!,您已成功进入本系统您已成功进入本系统 ElseIf I=0 Or I=1 Then I=I+1 Label2

25、.Caption=口令错口令错!,请重新输入请重新输入 Text1.SelStart=0 Text1.SelLength=Len(Text1.Text)Else MsgBox 对不起对不起,您不能使用本系统您不能使用本系统:End End If End IfEnd Sub45【例例5-6】使用单选按钮和复选框对标签文使用单选按钮和复选框对标签文字的颜色和效果进行设置。通过单选按钮字的颜色和效果进行设置。通过单选按钮可以将标签的文字设置为红、绿、蓝三种可以将标签的文字设置为红、绿、蓝三种颜色，通过复选框可以设置标签上的文字颜色，通过复选框可以设置标签上的文字是否具有粗体、斜体和下划线效果。是否具

26、有粗体、斜体和下划线效果。46界面设计：界面设计：BorderStyle：1 Fixed SingleAlignment：2 Center字体：宋体、常规、一号字体：宋体、常规、一号文字颜色：黑色文字颜色：黑色Label1Command1Command2Option1Option3Check1Check347代码设计：代码设计：Private Sub Command1_Click()确定确定 If Option1.Value Then Label1.ForeColor=vbRed ElseIf Option2.Value Then Label1.ForeColor=vbGreen ElseIf

27、 Option3.Value Then Label1.ForeColor=vbBlue End If If Check1.Value=1 Then Label1.FontBold=True _ Else Label1.FontBold=False If Check2.Value=1 Then Label1.FontItalic=True _ Else Label1.FontItalic=False If Check3.Value=1 Then Label1.FontUnderline _ =True Else Label1.FontUnderline=FalseEnd Sub48Private

28、 Sub Command2_Click()取消取消 取消单选按钮的选中状态取消单选按钮的选中状态 Option1.Value=False Option2.Value=False Option3.Value=False 取消复选框的选中状态取消复选框的选中状态 Check1.Value=0 Check2.Value=0 Check3.Value=0 将标签设置为初始状态将标签设置为初始状态 Label1.ForeColor=vbBlack Label1.FontBold=False Label1.FontItalic=False Label1.FontUnderline=FalseEnd Sub

29、49【例例5-7】编写应用程序，模拟交通管理信号灯。编写应用程序，模拟交通管理信号灯。界面设计：界面设计：Timer1Image1Image2Image350代码设计代码设计:1）在窗体的）在窗体的Load事件过程中编写代码，使事件过程中编写代码，使得运行时三个信号灯图像重叠在一起，且绿得运行时三个信号灯图像重叠在一起，且绿色信号灯图像色信号灯图像Image1置于顶层，这样运行置于顶层，这样运行时首先看到的是绿灯时首先看到的是绿灯:Private Sub Form_Load()Image1.Left=Image2.Left Image1.Top=Image2.Top Image3.Left=I

30、mage2.Left Image3.Top=Image2.Top Image1.ZOrder 将绿灯图像置前将绿灯图像置前End Sub512）假设每隔）假设每隔1秒信号灯变换一种状态。信号秒信号灯变换一种状态。信号灯按绿灯按绿黄黄红的顺序变化。代码应写在红的顺序变化。代码应写在Timer1控件的控件的Timer事件过程中事件过程中:Private Sub Timer1_Timer()Static i As Integer i=(i+1)Mod 3 使使i按按1、2、0依次变化依次变化 If i=1 Then Image2.ZOrder 将黄灯图像置前将黄灯图像置前 ElseIf i=2 Th

31、en Image3.ZOrder 将红灯图像置前将红灯图像置前 ElseIf i=0 Then Image1.ZOrder 将绿灯图像置前将绿灯图像置前 End IfEnd Sub52本章小结本章小结1.单行结构条件语句单行结构条件语句 If 条件条件 Then 语句组语句组1 Else 语句组语句组22.块结构条件语句块结构条件语句 If 条件条件1 Then 语句组语句组1 ElseIf 条件条件2 Then 语句组语句组2 ElseIf 条件条件n Then 语句组语句组n Else 语句组语句组n+1 End If533.多分支选择语句多分支选择语句 Select Case 测试表达式测试表达式 Case 表达式表表达式表1 语句组语句组1 Case 表达式表表达式表2 语句组语句组2 Case 表达式表表达式表n 语句组语句组n Case Else 语句组语句组n+1 End Select54