选择结构设计

选择结构设计第1页，课件共106页，创作于2023年2月5.1选择结构的概念在日常生活和工作中，经常需要根据给定的条件进行分析、比较和判断，以采取相应的不同操作。第2页，课件共106页，创作于2023年2月选择结构是计算机科学用来描述自然界和社会生活中分支现象的重要手段。其特点是：根据所给定的条件为真(即条件成立)与否，而决定从各实际可能的不同分支中执行某一分支的相应操作，并且任何情况下总有“无论分支多寡，必择其一；纵然分支众多，仅选其一”的特性。第3页，课件共106页，创作于2023年2月5.2条件表达式

5.2.1关系运算符与关系表达式

1.关系运算符关系运算符的作用是对两个表达式的值进行比较，若关系成立，则返回True，否则返回False。VB提供了6种关系运算符，如表5-1所示。第4页，课件共106页，创作于2023年2月表5-1关系运算符第5页，课件共106页，创作于2023年2月

2.关系表达式关系表达式是指用关系运算符将两个表达式连接起来的式子(例如2*3>2+3)，关系表达式的格式为〈表达式1〉〈关系运算符〉〈表达式2〉[〈关系运算符〉〈表达式3〉...]第6页，课件共106页，创作于2023年2月

5.2.2布尔运算符与布尔表达式布尔表达式是指用布尔运算符连接若干关系表达式或布尔值而组成的式子。如不等式2≤x≤3可以表示为2<=xAndx<=3。布尔表达式的值也是一个布尔值。常用的布尔运算符有And、Or、Not等3种，如表5-2所示。第7页，课件共106页，创作于2023年2月表5-2布尔运算符第8页，课件共106页，创作于2023年2月表5-3布尔运算真值表第9页，课件共106页，创作于2023年2月

5.2.3运算符的优先顺序在一个表达式中进行多种操作时，VB会按一定的顺序进行求值，称这个顺序为运算符的优先顺序。运算符的优先顺序见表5-4。第10页，课件共106页，创作于2023年2月表5-4运算符的优先顺序第11页，课件共106页，创作于2023年2月

【例5-1】写出VB表达式2+3>1+4AndNot6<8的值。在计算前，先要看清表达式中有哪些运算符，再根据运算符的优先级进行计算。本例中应按下面的步骤进行计算：①算术运算： 5>5AndNot6<8②关系运算： FalseAndNotTrue③非运算： FalseAndFalse④结果： False第12页，课件共106页，创作于2023年2月

【例5-2】根据下列所给条件，写出VB布尔表达式：

(1)一元二次方程ax2+bx+c=0有实根的条件为：a≠0，并且b2-4ac≥0。

(2)闰年的条件是：年号(year)能被4整除，但不能被100整除；或者能被400整除。

第13页，课件共106页，创作于2023年2月5.3If语句5.3.1单行结构条件语句If...Then...Else

单行条件语句比较简单，其语法格式为

If〈条件〉Then[〈语句序列1〉][Else〈语句序列2〉]

第14页，课件共106页，创作于2023年2月【例5-3】输入x，计算y的值。其中：第15页，课件共106页，创作于2023年2月图5.1计算分段函数y的值第16页，课件共106页，创作于2023年2月设计步骤如下：

(1)建立应用程序用户界面并设置对象属性，如图5.1所示。

(2)编写事件代码。命令按钮Command1的单击(Click)事件代码为PrivateSubCommand1_Click()DimxAsSingle,yAsSingle '定义x、y为单精度数

第17页，课件共106页，创作于2023年2月x=Val(Text1.Text) '输入x的值

Ifx>=0Theny=Sqr(x)Elsey=-x'判断并计算

Text2.Text=y '输出结果

Text2.Locked=TrueEndSub程序运行结果如图5.1所示。第18页，课件共106页，创作于2023年2月图5.2输出两数中的较大数第19页，课件共106页，创作于2023年2月

【例5-4】已知两个数x和y，比较它们的大小，输出较大数。设计步骤如下：

(1)建立应用程序用户界面并设置对象属性，如图5.2所示。

(2)编写事件代码。命令按钮Command1的单击(Click)事件代码为第20页，课件共106页，创作于2023年2月PrivateSubCommand1_Click()DimxAsSingle,yAsSingle '定义变量数据类型为单精度数

x=Val(Text1.Text)y=Val(Text2.Text)Ifx<yThenLabel3.Caption="较大数为"&Str(y)Ifx>yThenLabel3.Caption="较大数为"&Str(x)EndSub第21页，课件共106页，创作于2023年2月或者编写代码为PrivateSubCommand1_Click()DimxAsSingle,yAsSingle '定义变量数据类型为单精度数

x=Val(Text1.Text)y=Val(Text2.Text)Ifx<yThent=x:x=y:y=t '如果x小，则交换x、y的值

Label3.Caption="较大数为"&Str(x) '输出比较结果EndSub程序运行结果如图5.2所示。第22页，课件共106页，创作于2023年2月

5.3.2使用IIf函数使用IIf函数可以实现一些比较简单的选择结构。IIf函数的语法结构为

IIf(〈条件表达式〉，〈真部分〉，〈假部分〉)第23页，课件共106页，创作于2023年2月

5.3.3块结构条件语句If...Then...Else...EndIf

虽然单行If语句使用方便，可以满足许多选择结构程序设计的需要，但是当Then部分和Else部分包含较多内容时，在一行中就难以容纳所有命令。为此，VB提供了块If语句，将一个选择结构用多个语句行来实现。第24页，课件共106页，创作于2023年2月块If语句又称为多行If语句，其语法结构为If〈条件〉Then[语句列1][Else[语句列2]]EndIf第25页，课件共106页，创作于2023年2月

【例5-5】将例5-3中命令按钮Command1的单击(Click)事件代码改为多行If语句：

PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)Ifx>=0Theny=Sqr(x)Elsey=-xEndIfText2.Text=yText2.Locked=TrueEndSub第26页，课件共106页，创作于2023年2月

【例5-6】将例5-4中命令按钮Command1的单击(Click)事件代码改为多行If语句：

PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)y=Val(Text2.Text)Ifx<yThen第27页，课件共106页，创作于2023年2月Label3.Caption="较大数为"&Str(y)ElseLabel3.Caption="较大数为"&Str(x)EndIfEndSub第28页，课件共106页，创作于2023年2月

5.3.4If语句的嵌套

1.If语句的嵌套

If语句的嵌套是指If或Else后面的语句块中又包含If语句。语句形式如下：

If〈条件1〉ThenIf〈条件2〉ThenEndIEndIf第29页，课件共106页，创作于2023年2月

【例5-7】键盘输入3个不同的数，将它们从大到小排序。

(1)建立应用程序用户界面并设置对象属性，如图5.3所示。

(2)编写事件代码。命令按钮Command1的单击(Click)事件代码为

第30页，课件共106页，创作于2023年2月图5.3从大到小排序第31页，课件共106页，创作于2023年2月PrivateSubCommand1_Click()DimxAsSingle,yAsSingle,zAsSinglex=Val(Text1.Text)'输入数据

y=Val(Text2.Text)z=Val(Text3.Text)Ifx<yThen'将第1个数与第2个数进行比较，使大数在前t=x:x=y:y=t '交换数据第32页，课件共106页，创作于2023年2月

EndIfIfy<zThent=y:y=z:z=t '使得y>zIfx<yThen '使得x>y，此时的x、y已不再是原x、y的值

t=x:x=y:y=tEndIfEndIfLabel4.Caption="从大到小排序结果："&Str(x)&Str(y)&Str(z)EndSub第33页，课件共106页，创作于2023年2月

【例5-8】某百货公司为了促销，采用购物打折扣的优惠办法，即每位顾客一次购物：

(1)在1000元以上2000元以下者，按九五折优惠；

(2)在2000元以上3000元以下者，按九折优惠；

(3)在3000元以上5000元以下者，按八五折优惠；

(4)在5000元以上者，按八折优惠。第34页，课件共106页，创作于2023年2月设计步骤如下：

(1)建立应用程序用户界面并设置对象属性，如图5.4所示。

(2)编写事件代码。命令按钮Command1的单击(Click)事件代码为第35页，课件共106页，创作于2023年2月图5.4计算优惠价第36页，课件共106页，创作于2023年2月PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)Ifx<1000Theny=x '不打折

ElseIfx<2000Then '九五折

y=0.95*xElseIfx<3000Then第37页，课件共106页，创作于2023年2月y=0.9*x '九折

ElseIfx<5000Theny=0.85*x '八五折Elsey=0.8*x '八折EndIf

第38页，课件共106页，创作于2023年2月EndIfEndIfEndIfText2.Text=yText2.Locked=TrueEndSub程序运行结果如图5.4所示。第39页，课件共106页，创作于2023年2月

2.If语句的嵌套格式ElseIf

如果出现多层If语句嵌套，将使程序冗长，不便阅读。为此VB提供了带ElseIf的块If语句来处理当条件为假时又内嵌块If语句的情形，以使程序简化易写。其语法结构为第40页，课件共106页，创作于2023年2月If〈条件1〉Then[语句列1]ElseIf〈条件2〉Then[语句列2]

[Else[其他语句列]]EndIf第41页，课件共106页，创作于2023年2月

【例5-9】在例5-8中使用带ElseIf的块If语句来计算出优惠价。将命令按钮Command1的单击(Click)事件代码改为

PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)Ifx<1000Theny=x '不打折

ElseIfx<2000Theny=0.95*x '九五折第42页，课件共106页，创作于2023年2月ElseIfx<3000Theny=0.9*x '九折

ElseIfx<5000Theny=0.85*x '八五折

Elsey=0.8*x '八折

EndIfText2.Text=yText2.Locked=TrueEndSub第43页，课件共106页，创作于2023年2月

【例5-10】编制命令按钮代码，要求每单击一次命令按钮，就会依次在窗体上显示下面诗词中的诗句。静夜思床前明月光，疑是地上霜。举头望明月，低头思故乡。

(1)建立应用程序用户界面并设置对象属性，如图5.5所示。

(2)编写事件代码。命令按钮Command1的单击(Click)事件代码为第44页，课件共106页，创作于2023年2月PrivateSubCommand1_Click()Label1.FontName="隶书"Label1.FontSize=14Label1.ForeColor=QBColor(4)Label1.Caption="静夜思" '设置标签Label1的标题

Command1.Caption="显示" '设置命令按钮的标题属性第45页，课件共106页，创作于2023年2月

StaticiAsInteger '声明静态变量i为整型数

i=i+1Mytext1="床前明月光，"Mytext2=Mytext1+Chr(13)+"疑是地上霜。" 'Chr(13)表示换行

Mytext3=Mytext2+Chr(13)+"举头望明月，"Mytext4=Mytext3+Chr(13)+"低头思故乡。"Ifi=1ThenLabel2.Caption=Mytext1ElseIfi=2Then第46页，课件共106页，创作于2023年2月Label2.Caption=Mytext2ElseIfi=3ThenLabel2.Caption=Mytext3ElseLabel2.Caption=Mytext4i=0EndIfEndSub程序运行结果如图5.5所示。第47页，课件共106页，创作于2023年2月图5.5显示诗句第48页，课件共106页，创作于2023年2月5.4多分支条件选择语句SelectCase虽然使用嵌套的办法可以利用If语句实现多分支选择，但是最好还是使用VB提供的多分支选择结构(SelectCase语句)来实现。根据单一表达式来执行多种可能的动作时，SelectCase更为简捷。多分支选择结构的特点是：从多个选择结构中，选择第一个条件为真的路线作为执行的路线。SelectCase语句的语法格式为第49页，课件共106页，创作于2023年2月SelectCase〈测试条件〉[Case〈表达式表1〉[〈语句列1〉]][Case〈表达式表2〉[〈语句列2〉]]

[CaseElse[〈其他语句列〉]]EndSelect第50页，课件共106页，创作于2023年2月

【例5-11】在例5-8中使用SelectCase语句来计算优惠价，只需将其中命令按钮Command1的单击(Click)事件代码改为

PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)SelectCasexCaseIs<1000y=xCaseIs<2000y=0.95*x第51页，课件共106页，创作于2023年2月CaseIs<3000y=0.9*xCaseIs<5000y=0.85*xCaseElsey=0.8*xEndSelectText2.Text=yText2.Locked=TrueEndSub第52页，课件共106页，创作于2023年2月表5-5表达式的形式第53页，课件共106页，创作于2023年2月【例5-12】用Select语句编制命令按钮代码完成例5-10。PrivateSubCommand1_Click()StaticiAsInteger '声明静态变量i为整型数

i=i+1Mytext1="床前明月光，"Mytext2=Mytext1+Chr(13)+"疑是地上霜。"Mytext3=Mytext2+Chr(13)+"举头望明月，"Mytext4=Mytext3+Chr(13)+"低头思故乡。"第54页，课件共106页，创作于2023年2月

SelectCaseiCase1Label2.Caption=Mytext1Case2Label2.Caption=Mytext2Case3Label2.Caption=Mytext3Case4Label2.Caption=Mytext4i=0EndSelectEndSub第55页，课件共106页，创作于2023年2月

【例5-13】编写一个对输入字符进行转换的程序。转换规则为：将其中的大写字母转换成小写字母，小写字母转换成大写字母，空格不转换，其余转换成“*”。要求每输入一个字符，马上就进行判断和转换。

(1)建立应用程序用户界面，如图5.6所示。

(2)设置对象属性，如图5.7所示。第56页，课件共106页，创作于2023年2月图5.6设置用户界面第57页，课件共106页，创作于2023年2月图5.7设置对象属性第58页，课件共106页，创作于2023年2月

(3)编写事件代码。根据题中要求，当在“输入字符串”文本框中每输入一个字符键时，马上就进行判断，这就要求对“输入字符串”文本框对象Text1对应的KeyPress事件进行编程。第59页，课件共106页，创作于2023年2月PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimaaAsString*1aa=Chr$(KeyAscii) '将ASCII码转换成字符

SelectCaseaaCase"A"To"Z"aa=LCase(aa) '大写转换成小写Case"a"To"z"aa=UCase(aa) '小写转换成大写Case""第60页，课件共106页，创作于2023年2月

aa=""CaseElseaa="*"EndSelectText2.Text=Text2.Text&aa '将转换文本框已有的内容与刚输入并转换的字符连接EndSub命令按钮Command1的Click事件代码为PrivateSubCommand1_Click()Text1.Text=""'清除文本框Text1的内容第61页，课件共106页，创作于2023年2月Text2.Text=""'清除文本框Text2的内容EndSub命令按钮Command2的Click事件代码为PrivateSubCommand2_Click()UnloadMeEndSub程序运行结果如图5.8所示。第62页，课件共106页，创作于2023年2月图5.8大小写字母转换第63页，课件共106页，创作于2023年2月5.5计时器控件计时器(Timer)控件能有规律地以一定的时间间隔激发计时器事件(Timer)而执行相应的事件代码。计时器控件在设计时显示为一个小时钟图标，而在运行时并不显示在屏幕上，通常用标签来显示时间。计时器控件的主要属性如表5-6所示。第64页，课件共106页，创作于2023年2月表5-6Timer控件的属性第65页，课件共106页，创作于2023年2月

【例5-14】在窗体上建立数字计时器。设计步骤如下：

(1)建立用户界面。在窗体上建立一个计时器控件和两个标签控件，如图5.9所示。

(2)按表5-7所示设置对象属性。第66页，课件共106页，创作于2023年2月图5.9建立用户界面第67页，课件共106页，创作于2023年2月表5-7属性设置第68页，课件共106页，创作于2023年2月图5.10程序运行结果第69页，课件共106页，创作于2023年2月(3)编写事件代码。编写计时器控件Timer1的Timer事件代码：PrivateSubTimer1_Timer()Label2.Caption=Time$EndSub程序运行结果如图5.10所示。第70页，课件共106页，创作于2023年2月5.6选择性控件

5.6.1单选钮单选钮(OptionButton)的左边有一个“○”。一般来说，单按钮总是成组(单选按钮组)出现，用户在一组单选钮中必须选择一项，并且最多只能选择一项。当某一项被选定后，其左边的圆圈中出现一个黑点。单选钮主要用于在多种功能中由用户选择一种功能的情况。第71页，课件共106页，创作于2023年2月1.单选钮的主要属性单选钮的主要属性如表5-8所示。表5-8单选钮的主要属性第72页，课件共106页，创作于2023年2月

2.选择单选钮的方法选择一个单选钮可以用以下方法：●在运行期间用鼠标单击单选钮。●用Tab键定位到单选按钮组，然后在组内使用方向键(箭头键)定位单选钮。●用代码将它的Value属性设置为真：Option1.Value=True。●使用在OptionButton标题中指定的快捷键。第73页，课件共106页，创作于2023年2月

3.使用单选按钮组单选钮和复选框都可以接受Click事件，但一般不需要编写Click事件过程。因为当用户单击单选钮和复选框时，它们自动改变状态。单选钮的一个特点是当选定其中一个，其余就自动关闭。第74页，课件共106页，创作于2023年2月

【例5-15】单选按钮用法示例。设计步骤如下：

(1)建立应用程序用户界面和设置对象属性。在窗体中建立了两组单选钮，分别放在名称为“字体”和“字号”的框架中，如图5.11所示。第75页，课件共106页，创作于2023年2月图5.11建立用户界面和设置属性第76页，课件共106页，创作于2023年2月(2)编写事件代码。下面是该窗体中涉及的两个事件过程：PrivateSubCommand1_Click()IfOption1.ValueThenText1.FontName="宋体"ElseText1.FontName="黑体"EndIfIfOption3.ValueThen第77页，课件共106页，创作于2023年2月图5.12单选钮程序运行结果第78页，课件共106页，创作于2023年2月Text1.FontSize=10ElseText1.FontSize=14EndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSub程序运行结果如图5.12所示。第79页，课件共106页，创作于2023年2月

4.使用图形选项按钮可以将单选钮设计成图形按钮的形式。

【例5-16】设计流动字幕板。使滚动字幕内容“海阔凭鱼跃，天高任鸟飞”在窗体中从右向左反复地移动。设计步骤如下：

(1)建立应用程序用户界面。选择“新建”工程，进入窗体设计器，增加一个计时器控件Timer1、一个标签控件Label1和一个命令按钮Command1，4个单选钮Option1～Option4。其中，计时器控件Timer1可以放在窗体的任何位置，参见图5.13所示。第80页，课件共106页，创作于2023年2月图5.13建立用户界面第81页，课件共106页，创作于2023年2月

(2)设置对象属性。修改Timer1的属性：Interval改为100，Enabled改为False。修改Option1～Option4的Style属性为：1－Graphical(图形方式)。其他属性修改参见图5.14。第82页，课件共106页，创作于2023年2月图5.14滚动字幕程序运行结果第83页，课件共106页，创作于2023年2月(3)编写事件代码。命令按钮Command1的Click事件代码为PrivateSubCommand1_Click()IfCommand1.Caption="&S暂停"ThenCommand1.Caption="&C继续"Timer1.Enabled=FalseElseCommand1.Caption="&S暂停"Timer1.Enabled=TrueEndIfEndSub第84页，课件共106页，创作于2023年2月通过在不断激发的Timer事件中改变标签的Left属性，可改变标签的位置。编写Timer1的Timer事件代码：PrivateSubTimer1_Timer()IfLabel1.Left+Label1.Width>0ThenLabel1.MoveLabel1.Left-20 '当标签右边位置>0时，标签向左移

ElseLabel1.Left=Form1.ScaleWidth '标签从头开始

EndIfEndSub第85页，课件共106页，创作于2023年2月依次编写单选钮Option1～Option4的Click事件代码：PrivateSubOption1_Click()Label1.FontName="宋体"EndSubPrivateSubOption2_Click()Label1.FontName="隶书"EndSubPrivateSubOption3_Click()

第86页，课件共106页，创作于2023年2月Label1.FontName="黑体"EndSubPrivateSubOption4_Click()Label1.FontName="楷体_GB2312"EndSub程序运行结果如图5.14所示。第87页，课件共106页，创作于2023年2月

5.6.2复选框

1.复选框的常用属性复选框的常用属性与单选钮基本相同，如复选框的Caption属性可以指定出现在复选框旁边的文本，而Picture属性用来指定当复选框被设计成图形按钮时的图像。第88页，课件共106页，创作于2023年2月

2.复选框的使用

【例5-17】用复选框控制文本输入是否加上“下划线”和“斜体显示”。设计步骤如下：

(1)建立应用程序用户界面。建立3个控件：一个文本框和两个复选框。在文本框中显示文本，由两个复选框决定显示的文本是否加下划线或用斜体显示。

(2)设置对象属性。3个控件的属性设置如图5.15所示。第89页，课件共106页，创作于2023年2月图5.15复选框应用示例第90页，课件共106页，创作于2023年2月(3)编写事件代码。编写的事件代码为PrivateSubText1_Change()IfCheck1.Value=1ThenText1.FontUnderline=TrueElseIfCheck2.Value=1ThenText1.FontItalic=TrueEndIfEndSubPrivateSubCheck1_Click()IfCheck1.Value=1ThenText1.FontUnderline=TrueElse第91页，课件共106页，创作于2023年2月Text1.FontUnderline=FalseEndIfEndSubPrivateSubCheck2_Click()IfCheck2.Value=1ThenText1.FontItalic=TrueElseText1.FontItalic=FalseEndIfEndSub程序运行结果如图5.15所示。第92页，课件共106页，创作于2023年2月习题五5.1写出下列VB表达式的值。(1)4*10>=65(2)"ABCDE"<"ABCDF"(3)"456"<>"456"&"xyz" (4)Not10*20<>256(5)10=10And10>4+3 (6)10<>2OrNot5>20+5(7)10^3>10And2<2+3 (8)10>20And12=20第93页，课件共106页，创作于2023年2月5.2将下列命题用VB布尔表达式表示。(1)z比x，y都大 (2)|a|≤|b+2|或a>b+2(3)p是q的倍数 (4)x([-5，-2]，并且x([2，5](5)x，y其中有一个小于z (6)a是小于正整数b的偶数第94页，课件共106页，创作于2023年2月

5.3根据下面所给的条件，列出相应的VB布尔表达式。

(1)分房的条件为：已婚(married)，年龄(age)在26岁以上，工作年限(working_age)在5年以上。

(2)征兵的条件是：男性(sex)年龄(age)在18～20岁之间，身高(size)在1.65米以上；或者女性(sex)年龄(age)在16～18岁之间，身高(size)在1.60米以上。

5.4已知下面的分段函数，要求输入x，计算y的值：第95页，课件共106页，创作于2023年2月

5.5为铁路编写计算运费的程序。假设铁路托运行李，规定每张客票托运费计算方法是：行李重量不超过50kg时，每千克0.25元；超过50kg而不超过100kg时，其超过部分每千克0.35元；超过100kg时，其超过部分每千克0.45元。要求输入行李重量，计算并输出托运的费用。

5.6编写程序，任给3个实数，求其中间数(即其值大小居中者)。

5.7编写程序，输入一个数字(0～6)，用中英文显示星期几。第96页，课件共106页，创作于2023年2月

5.8编写程序，求一元二次方程的根。

5.9编写程序，任意输入一个整数，判定该整数的奇偶性。

5.10编写程序，键盘输入a、b、c的值，判断它们能否构成三角形的3个边。如果能构成一个三角形，则计算三角形的面积。

5.11编写程序，利用文本框检查用户口令。提示：可以利用文本框的PasswordChar属性来隐蔽