1、1,第5章 选择结构程序设计,本章要点:条件语句单行结构条件语句If.Then.Else.块结构条件语句If.Then.EndIf多分支选择语句Select Case.End SelectTimer控件，单选按钮和复选按钮,特点:根据条件是否成立，决定程序的执行分支,2,5.1.1 单行结构条件语句,1.格式 If Then Else 2.功能 如果成立，则执行 否则执行,3,3.说明(1)可以是：关系表达式布尔表达式数值表达式：0为False；非0为True字符串表达式：0为False；非0为True(2)可以没有Else部分，这时必须有。,例:If Xaaa Then Print X,4,
2、(3)、:可以有多条语句，各语句之间用冒号隔开。例:If N0 Then A=A+B:B=B+A Else A=A-B:B=B-A(4)应作为一条语句书写。如果语句太长需要换行，必须在折行处使用续行符号。(5)无论条件是否成立，都具有共同出口例:If X=0 Then X=1+X Else X=5-X Y=1-X Print Y=;Y 若 X=2 Y？若 X=-2 Y？,共同出口,(6)单行结构条件语句可以嵌套 IF.THEN.IF.THEN.ELSE.ELSE,5,【例5-1】设界面如下图所示，用文本框输入x的值，单击“计算Y”按钮时，根据以下公式计算y的值。,Private Sub Com
3、mand1_Click()X=Val(Text1.Text)If X=0 Then Y=Abs(X)Else Y=Log(X)Label3.Caption=Y End Sub,6,例:比较以下两段程序，是否都能够实现上例的功能。,程序段1：X=Val(Text1.Text)Y=Abs(X)If X 0 Then Y=Log(X)Label3.Caption=Y,程序段2：X=Val(Text1.Text)Y=Log(X)If X=0 ThenY=Abs(X)Label3.Caption=Y,7,5.1.2 块结构条件语句,1.格式If Then ElseIf Then ElseIf Then
4、Else End If,If Then 语句组1Else 语句组2End If,注意:格式书写格式,8,块结构条件语句的功能：,9,【例5-8】某百货公司为了促销，采用购物打折的优惠办法。1000元以上者，按九五折优惠；2000元以上者，按九折优惠；3000元以上者，按八五折优惠；5000元以上者，按八折优惠；编写程序，输入购物款数，计算并输出优惠价。,分析：设购物款数为x元，优惠价为y元，则优惠付款公式为：x(x=5000),10,设计步骤如下：（1）建立应用程序界面并设置对象属性，如图所示。（2）编写程序代码.命令按钮command1的Click事件代码如下：,ElseIf x 3000
5、Then y=0.9*xElseIf x 5000 Then y=0.85*xElse y=0.8*xEnd IfText2.Text=yEnd Sub,Private Sub command1_Click()Dim x As Single,y As Singlex=Val(Text1.Text)If x 1000 Then y=xElseIf x 2000 Then y=0.95*x,11,注意：(1)ElseIf不能写成Else If，即中间不能有空格。(2)在书写时，可以将If语句、ElseIf子句、Else子句、和End If语句左对齐，而各语句组向右缩进若干空格，以使程序结构更清楚。
6、(3)严格按格式要求书写，不可随意换行或将两行合并成一行。例如，对于条件结构：If x=0 Then y=1 Else y=2 End If 以下两种写法都是错误的：,写法一：If x=0 Then y=1Else y=2End If,写法二：If x=1 Then y=10 Else y=20End If,12,5.1.3 多分支选择语句,1.格式 Select Case Case Case Case Else End Select2.功能:根据测试表达式的值,按顺序匹配Case后的表达式,如果匹配成功,则执行该Case下的语句块,然后转到End Select语句之后继续执行。,13,多分支
7、选择语句的功能流程图:,14,3.说明:数值或字符串表达式 Case 表达式表:表中的表项为如下形式:(1)表达式1,表达式2.如:Case 1,3,5(2)表达式1 TO 表达式2 如:Case 10 TO 30 Case A TO Z(3)Is 如:Case Is=10 Case Is=0 与 Case 0 相同 注意:测试表达式的类型应与Case后表达式类型一致，且三种形式可以混用,如:Case Is-5,0,5 To 100举例5-8 vb5lt8,15,【例5-12】任给定一年，判断是否是闰年，并根据给出的月份判断是什么季节和该月有多少天。,分析：根据闰年条件可得出判断闰年的逻辑表达
8、式(Y mod 4=0 and y mod 1000)or(y mod 400=0),每月的天数可根据月份来定，设计用户界面如图所示，设置5个标签，label3label5的boardstyle设置为fixed single,Private Sub Command1_Click()Dim y As Integer,m As IntegerDim leapyear As Booleany=Val(Text1.Text)m=Val(Text2.Text)If(y Mod 4=0 And y Mod 100 0)Or(y Mod 400=0)Thenleapyear=TrueLabel3.Capti
9、on=闰年Elseleapyear=FalseLabel3.Caption=非闰年End If,17,Select Case mCase 3 To 5Label4.Caption=springCase 6 To 8Label4.Caption=summerCase 9 To 11Label4.Caption=autummnCase 12,1,2Label4.Caption=winterEnd Select,18,Select Case mCase 1,3,5,7,8,10,12Label5.Caption=31天Case 4,6,9,11Label5.Caption=30天Case 2If l
10、eapyear ThenLabel5.Caption=29天ElseLabel5.Caption=28天”End IfEnd SelectText1.SetFocusEnd Sub,Private Sub Command2_Click()Text1.Text=Text1.Text=Label3.Caption=Label4.Caption=Label5.Caption=End Sub,19,如果在条件成立或不成立的情况下要继续判断其他条件，则可以使用嵌套的条件语句来实现，也就是在语句组中再使用另一个条件语句。,5.1.4 条件语句的嵌套,块结构条件语句的嵌套示例：If A=1 Then If
11、B=0 Then Print*0*ElseIf B=1 Then Print*1*End IfElseIf A=2 Then Print*2*End If,20,多分支选择语句的嵌套示例：Select Case A Case 1 Select Case B Case 0 Print*0*Case 1 Print*1*End Select Case 2 Print*2*End Select,21,多分支选择语句与块结构条件语句的互相嵌套示例：Select Case A Case 1 If B=0 Then Print*0*ElseIf B=1 Then Print*1*End If Case 2
12、 Print*2*End Select,22,5.2.1IIf函数格式:IIf(,)功能:当的值为True时，返回第2个参数的值；当的值为False时，返回第3个参数的值。(类似于具有两个分支的If语句的功能)例:使用IIf函数求两个变量A和B的较大数。MaxAB=IIf(A B,A,B)例:使用IIf函数求三个变量A、B和C的最大数。MaxAB=IIf(A B,A,B)MaxABC=IIf(MaxAB C,MaxAB,C),5.2 条件函数,23,5.2.2Choose函数格式:Choose(,.,)功能:当的值为1时，返回的值；当的值为2时，返回的值；。如果的值不是整数，则会先四舍五入为整
13、数。例:将成绩1分、2分、3分、4分和5分转换成相应的等级:不及格（1分，2分）、及格（3分），良（4分），优（5分）。,Grade=Choose(Score,不及格,不及格,及格,良,优),24,1.用途 时钟控件（Timer）又称计时器、定时器控件，用于有规律地定时执行指定的工作，适合编写不需要与用户进行交互就可直接执行的代码，如计时、倒计时、动画等。在程序运行阶段，时钟控件不可见2.属 性（1）Interval（事件间隔）属性 取值范围在0 到 64767 之间（包括这两个数值），单位为毫秒（0.001秒），表示计时间隔。若将Interval属性设置为0或负数，则计时器停止工作。需要屏蔽
14、计时器，将Interval设为0；需要每0.5s产生一个计时器事件，则将Interval设为500；若需要每1s产生一个计时器事件，则将Interval设为1000。（2）Enabled属性 无论何时，只要时钟控件的Enabled属性被设置为True而且Interval属性值大于0，则计时器开始工作（以Interval属性值为间隔，触发Timer事件）。通过把Enabled属性设置为False可使时钟控件无效，即计时器停止工作。,5.3 计时器控件Timer,25,3.方法:VB没有为时钟控件提供有关的方法。4.事件:时钟控件只能响应Timer事件，当Enabled属性值为True且Inter
15、val属性值大于0时，该事件以Interval属性指定的时间间隔发生，需要定时执行的操作即放在该事件过程中完成。,例5-14 在窗体上设计一个能按12小时格式和24小时格式进行转换的数字时钟。v5lt14分析：本题目需要使用的函数有3个。Time函数：返回系统时间Hour函数：返回时间表达式中的小时数Format(time,form1.tag)函数：按照指定格式返回系统当前时间。,26,设计步骤如下：1.建立用户界面，如图所示。,2.设置对象属性Form1.tag:hh:mm:ssLabel1.caption:00:00:00Label1.color:白色Label1.bordestyle:1
16、-fixed singlelabel2.visible:falseTimmer1.interval:1000,27,3.编写事件代码,Private Sub Timer1_Timer()Label1.Caption=Format(Time,Form1.Tag)If Hour(Time)12 ThenLabel2.Caption=下午ElseLabel2.Caption=上午End IfEnd Sub,28,3.编写事件代码,Private Sub Command1_Click()If Command1.Caption=改为12小时制 ThenForm1.Tag=hh:mm:ss AM/PMCo
17、mmand1.Caption=改为24小时制Label2.Visible=TrueElseForm1.Tag=hh:mm:ss Command1.Caption=改为12小时制Label2.Visible=FalseEnd IfEnd Sub,29,5.4 单选钮、复选框,5.4.1 单选钮 1.用途 单选钮（OptionButton）也称作选择按钮。一组单选钮控件可以提供一组彼此相互排斥的选项，任何时刻用户只能从中选择一个选项，实现一种“单项选择”的功能，被选中项目左侧圆圈中会出现一黑点。,单选按钮,30,2.重要属性（1）Caption：文本标题。设置单选钮的文本注释内容。（2）Align
18、ment属性：0：Left Justify(缺省)控件钮在左边，标题显示在右边。1：Right Justify 控件钮在右边，标题显示在左边。（3）Value 属性,True:单选钮被选定False:单选钮未被选定（缺省设置）,（4）Style 属性 0-Standard：标准方式 1-Graphical：图形方式 说 明：在Style属性设置为1时，可使用 Picture 属性（未选定时的图标或位图）、DownPicture属性(选定时的图标或位图)、DisabledPicture属性（禁止选择时的图标或位图）,(5)Enabled 属性要禁用某个单选按钮，可将其Enabled属性设置为假。
19、程序运行时，那么就显示为浅灰色，表示无法选取。,31,3.方法 SetFocus方法是单选钮控件最常用的方法，可以在代码中通过该方法将Value属性设置为True。与命令按钮相同，使用该方法之前，必须要保证单选钮处于可见和可用状态（即Visible与Enabled属性值均为True）。,4.事件 Click事件是单选钮控件最基本的事件，一般情况用户无需为单选钮编写Click事件过程，因为当用户单击单选钮时，它会自动改变状态。例5-15 单选钮示例 修改 例5-14。,32,例5-17 设计滚动字幕，使“欢迎使用学生成绩管理系统”字样自右向左反复移动。,设计步骤如下：1。建立如图所示界面，增加一
20、个计时器控件,一个label1和一个command1,四个单选按钮。2.设置属性：四个单选按钮的style属性设为1-graphical。Timer.interval=100,timer.enabled=false3.事件代码：Private Sub Command1_Click()If Command1.Caption=&s 暂停 ThenCommand1.Caption=&c 继续Timer1.Enabled=FalseElseCommand1.Caption=&s 暂停Timer1.Enabled=TrueEnd IfEnd Sub,33,Private Sub Timer1_Timer
21、()If Label1.Left+Label1.Width 0 ThenLabel1.Move Label1.Left-20ElseLabel1.Left=Form1.ScaleWidthEnd IfEnd Subprivate Sub Option1_Click()Label1.FontName=宋体End SubPrivate Sub Option2_Click()Label1.FontName=黑体End SubPrivate Sub Option3_Click()Label1.FontName=隶书End SubPrivate Sub Option4_Click()Label1.Fon
22、tName=楷体_GB2312End Sub,34,5.4.2 复选框或检查框,1.用途复选框（CheckBox）也称作检查框、选择框。一组复选框控件可以提供多个选项，它们彼此独立工作，所以用户可以同时选择任意多个选项，实现一种“不定项选择”的功能。选择某一选项后，该控件将显示，而清除此选项后，消失。,2.重要属性 Caption、Alignment、Style与单选钮相同,复选框,35,复选框的Value 属性与单选按钮不同，其值为数值型数据，可取 0,1,2,复选框与单选按钮Value 属性的比较,3.Click事件是复选框控件最基本的事件。无论何时单击checkbox控件都将触发clic
23、k事件，然后编写应用程序，根据复选框的状态执行某些操作。4.举例：在例5-17基础上加两个复选框控件,36,其他事件代码不变，增加两个复选框按钮的click事件代码。Private Sub Check1_Click()If Check1.Value=1 ThenLabel1.FontUnderline=TrueElseLabel1.FontUnderline=FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value=1 ThenLabel1.FontItalic=TrueElseLabel1.FontItalic=FalseEnd
24、IfEnd Sub,37,本章小结:,1.单行结构条件语句 If Then Else,2.块结构条件语句If Then ElseIf Then Else End If,3.多分支选择语句Select Case Case Case Case Else End Select,4.Timer控件，单选钮和复选按钮控件,38,作业练习:,1.建立如图所示界面，对文本框进行字体选择和效果选择，用计时器进行前景和背景色选择。,39,2.设计一个窗体，通过文本框接受数据，计算总成绩，平均成绩，再评定等级。等级评定标准：平均分91100分为“优秀”，平均分8190为“良好”，平均分6090为“中等”，平均分60以下为“差”，如图所示。,
