VB选择结构程序设计

Ch4-1选择结构程序设计VB编程尽管采用事件驱动机制，调用功能相对独立的过程，但在设计过程的程序代码时，仍需要对过程的流程进行控制程序流程有三种最基本的控制结构，即顺序结构、选择结构和循环结构Ch4-1选择结构程序设计选择结构设计用顺序结构编写的程序比较简单，只能实现一些简单的处理。在实际应用中，有许多问题需要判断某些条件，根据判断的结果来控制程序的流程。使用选择结构的程序，可以实现这样的处理◆VB中实现选择结构的语句主要有：◇If语句◇SelectCase语句使用选择结构语句时，要用条件表达式来描述条件◆条件表达式可以分为：◇关系表达式◇逻辑表达式◆条件表达式的取值为逻辑值（也称布尔值）：◇真（True）◇假（False）Ch4-1选择结构程序设计关系表达式运算符名称示例结果小于38True=小于或等于“2”=“4”True大于68False=大于或等于7=9False=等于“ac”=“a”False不等于36TrueLike比较样式“abc”Like“?bc”TrueIs比较对象变量◇关系运算符的运算级别相同，运算时按其出现的顺序从左到右执行◇关系运算符两侧可以是数值、字符或日期表达式，但类型必须完全一致◇字符型数据按其ASCII码值进行比较◇日期型数据将日期看成“yyyymmdd”8位数字，再按数值比较◇Like用于判断一个字符串是否属于某一种样式（内有通配符）关系表达式（也称关系式）是用比较运算符把两个表达式连接起来的式子Ch4-1选择结构程序设计逻辑表达式逻辑表达式是用逻辑运算符把关系表达式或逻辑值连接起来的式子说明:◇逻辑表达式的运算顺序是：先进行算术运算或字符串运算，再做比较运算，最后进行逻辑运算。括号优先，同级运算从左到右执行逻辑运算符按Not、And、Or、Xor、Eqv、Imp的优先顺序级执行◇有时一个逻辑表达式里还包含多个逻辑符，例如：32AndNot46Or“12”=“123”ABAandBAOrBNotAAXorBAEqvBAImpBTrueTrueTrueTrueFalseFalseTrueTrueTrueFalseFalseTrueFalseTrueFalseFalseFalseTrueFalseTrueTrueTrueFalseTrueFalseFalseFalseFalseTrueFalseTrueFalseCh4-1选择结构程序设计If…Then语句VB提供了两种格式的条件语句：If…Then和If…Then…Else◆If…Then语句◇单行结构格式：If条件Then语句◇块结构格式：If条件Then语句块EndIf功能：若条件成立（值为真），则执行Then后的语句或语句块，否则直接执行下一条语句或“EndIf”后的下一条语句条件语句(块)假真下一条语句Ch4-1选择结构程序设计If…Then…Else语句◇单行结构格式：If条件Then语句1Else语句2◇块结构格式：If条件Then语句块1Else语句块2EndIf功能：首先测试条件，如果条件成立（值为真），则执行Then后的语句块1，否则执行Else后面的语句块2。在执行Then或Else之后的语句块后，会从EndIf之后的语句继续执行条件语句块1假真下一条语句语句块2Ch4-1选择结构程序设计例1输入3个数a、b、c，求其中的最大数开始从3个文本框中读取数值a,b,cabm=bm=acmm=c在Text4中显示m值结束真真假假Ch4-1选择结构程序设计单条件选择语句单行结构条件语句语法格式为：If条件Then[语句序列1][Else语句序列2]1+x(x=0)1-2x(x0)设计步骤如下：◇建立应用程序用户界面并设置对象属性，如下图：示例3：输入x，计算y的值。其中：y=教材示例4-1Ch4-1选择结构程序设计◇编写事件代码PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)Ifx=0Theny=1+xElsey=1-2*xText2.Text=yText1.SelStart=0Text1.SelLength=Len(Text1.Text)Text1.SetFocusEndSubPrivateSubForm_Activate()Text1.SetFocusEndSub单条件选择语句PrivateSubText1_Change()Text2.Text=EndSubCh4-1选择结构程序设计单条件选择语句块结构条件语句（多行IF语句）语法格式为：If条件Then[语句序列1][Else[语句序列2]]EndIf示例7：用多行IF语句改写示例3Command1_Click()。PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)Ifx=0Theny=1+xElsey=1-2*xEndIfText2.Text=yEndSub教材示例4-2Ch4-1选择结构程序设计例2在一个文本框内输入一段文本，在另一个文本框中输出该文本的所有数字字符，并分别统计数字字符及非数字字符的个数。Ch4-1选择结构程序设计IIF函数IIf函数可用来执行一些简单的条件判断操作，其语法格式为：IIf(条件表达式,真部分,假部分)功能：对条件表达式进行测试，若条件成立（值为真），取第一个值，否则取第二个值说明：◇条件表达式可以是关系表达式、布尔表达式◇m=IIf(条件,a,b)相当于：If条件Thenm=aElsem=b条件m=a假真m=bCh4-1选择结构程序设计单条件选择语句示例6：用IIF函数改写示例1。设计步骤如下：◇建立应用程序用户界面并设置对象属性，示例3图◇编写事件代码PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)y=IIF(x=0,1+x,1-2*x)Text2.Text=yEndSubCh4-1选择结构程序设计条件语句的嵌套在条件语句中，Then和Else后面的语句块也可以包含另一个条件语句，这就形成条件语句的嵌套。一般格式为：If条件1ThenIf条件2Then……EndIfElse……EndIf条件1假真……条件2假真……Ch4-1选择结构程序设计例3根据不同的时间段发出问候语，如0时～12时，显示“早上好”Ch4-1选择结构程序设计ElseIf格式如果出现多层If语句嵌套，将是程序冗长，不便阅读If条件1Then语句块1ElseIf条件2Then语句块2ElseIf条件3Then语句块3……[Else语句块n]EndIf例如，程序代码中的嵌套条件语句可改写称如下形式：Ifh12ThenPrint“早上好!”ElseIfh18ThenPrint“下午好!”ElsePrint“晚上好!”EndIf教材示例4-3Ch4-1选择结构程序设计多分支语句虽然使用条件语句的嵌套办法可以实现多分支选择，但结构不够简明。使用多分支语句SelectCase也可以实现多分支选择，它比起条件嵌套更有效，更易读，并且易于跟踪调试多分支语句也称为情况语句语法格式：SelectCase测试表达式Case表达式表1语句块1Case表达式表2语句块2……[CaseElse语句块n]EndSelect条件1假真下一条语句语句块1条件2假真语句块2……条件n-1假真语句块n-1语句块nCh4-1选择结构程序设计多分支语句执行过程：先计算测试表达式的值，然后将该值依次与结构中的每个Case的值进行比较。如果该值符合某个Case指定的值条件，执行该Case的语句块，然后跳到EndSelect出口语句。如果没有相符合的Case值，执行CaseElse中的语句块表达式表中的表达式必须与测试表达式的数据类型相同。表达式表通常是一个具体值，每一个值确定一个分支。还有三种方法可以确定设定值：◇一组值（用逗号隔开），例如：Case1,3,5‘表示条件在1,3,5范围内取值◇表达式1To表达式2，例如：Case60To80‘表示条件取值范围为60～80◇Is关系式，例如：CaseIs5‘表示条件在小于5的范围内取值教材示例4-4Ch4-1选择结构程序设计滚动条控件用于那些不能自动支持滚动的应用程序和控件提供滚动观察的功能，也用于输入数据。滚动条控件分水平滚动条（HScorollBar）和垂直滚动条（VScorllBar）两种。使用滚动条控件Ch4-1选择结构程序设计属性说明LargeChange决定当单击滚动条区域时，Value的改变量SmallChange决定当单击滚动条的两端箭头时，Value的改变量Value表示滚动块在滚动条中的位置值移动滚动块时，代表的值随之改变Min决定Value的最小值，默认值为0，取值范围-32768-32767Max决定Value的最大值默认值为32767，取值范围-32768-32767滚动条控件的常用属性使用滚动条控件Ch4-1选择结构程序设计事件说明Scroll当用鼠标拖动滚动块时，即触发Scroll事件Change当释放滚动块、单击滚动条内空白处或滚动箭头改变Value属性值时，即触发Change事件滚动条控件的常用事件示例：改变字体大小。设计一个窗体，该窗体包含一个文本框和一个水平滚动条。要求拖动滚动条滑块时，可以改变文本框的字体大小。教材示例4-10使用滚动条控件Ch4-1选择结构程序设计使用滚动条控件示例：建立三个水平滚动条作为红、绿、蓝三种基本颜色的输入工具，合成的颜色显示在右边的标签中，用其背景颜色属性BackColor值的改变实现合成颜色的调色。标签Label1Label1.BackColor=RGB(R,G,B)其值分别由3个滚动条控制示例Ch4-1选择结构程序设计说明：根据调色原理，基本颜色有红、绿、蓝三种，选择这三种颜色的不同比例，可以合成所需要的任意颜色。对象属性属性值Form1Caption调色板应用HScroll1HScroll2HScroll3Min0Max255SmallChange10LargeChange1◇设置对象属性，如下表使用滚动条控件Ch4-1选择结构程序设计使用计时器控件计时器（Timer）控件可以在应用中以重复的时间间隔产生一个事件。计时器控件在设计时为一个小时钟图标，而在运行时则看不到，常用来做后台处理。属性说明Enabled该属性为True时，定时器开始工作，为False时暂停Interval该属性用来设置定时器触发的周期（以毫秒计）取值范围为0~64767Timer控件的属性教材示例4-11Ch4-1选择结构程序设计使用计时器控件设计一个电子表示例13：在窗体上设计一个数字时钟，如下图设计步骤如下：◇建立应用程序用户界面，如上右图增加一个命令按钮Command1、一个计时器控件Timer1和两个标签Label1、Label2。示例13Ch4-1选择结构程序设计使用计时器控件◇设置对象属性，如下表对象属性属性值Form1Taghh:mm:ssAM/PMLabel1Caption00:00:00BackColor（白色）BorderStyle1-FixedSingleLabel2CaptionVisibleFalseCommand1Caption改为12小时TimerInterval1000Ch4-1选择结构程序设计使用计时器控件◇编写事件代码PrivateSubTimer1_Timer()Label1.Caption=Format(Time,Form1.Tag)Label2.Caption=IIf(Hour(Time)12,下午,上午)EndSubPrivateSubCommand1_Click()I