选择结构程序设计

选择结构程序设计4.1选择结构程序设计的概念4.2条件表达式4.2.1关系运算符与关系表达式关系表达式是指用关系运算符将两个表达式连接起来的式子（例如a+b>0），关系运算符又称比较运算符，用来对两个表达式的值进行比较，比较的结果是一个布尔值（True或False），这个结果就是关系表达式的值。1.关系运算符

VB提供的关系运算符有以下6种，如表4-1所示。第2页,共31页，2024年2月25日，星期天2.关系表达式关系表达式的格式为〈表达式1〉〈关系运算符〉〈表达式2〉[〈关系运算符〉〈表达式3〉…]4.2.3运算符的优先顺序第3页,共31页，2024年2月25日，星期天【例4-2】判断某个年份是闰年的根据是年份数满足下述条件之一。

(1)能被4整除，但不能被100整除的年份都是闰年。

(2)能被100整除，又能被400整除的年份都是闰年。设变量y表示年份，写出判断y是否闰年的布尔表达式。解：判断y是否满足条件(1)的布尔表达式是yMod4=0AndyMod100<>0

判断y是否满足条件(2)的布尔表达式是yMod100=0AndyMod400=0

两者取“或”，即得判断闰年的布尔表达式yMod4=0AndyMod100<>0OryMod100=0AndyMod400=0第4页,共31页，2024年2月25日，星期天4.3单条件选择语句IF

4.3.1单行结构条件语句IF…THEN…ELSE

单行If语句的语法格式为If〈条件〉Then[〈语句序列1〉][Else〈语句序列2〉]【例4-3】输入x，计算y的值。其中：第5页,共31页，2024年2月25日，星期天设计步骤如下：

(1)建立应用程序用户界面与设置对象属性(2)编写程序代码。根据流程图，可以写出命令按钮Command1的单击（Click）事件代码为PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)Ifx>=0Theny=1+xElsey=1–2*xText2.Text=yEndSub第6页,共31页，2024年2月25日，星期天【例4-5】利用输入框函数输入3个不同的数，选出其中最大的数。分析：若a是a、b、c三个数中的最大数，则应有a>b并且a>c，依此类推。设计步骤如下：

(1)建立应用程序用户界面与设置对象属性。(2)编写程序代码。根据流程图，可以写出命令按钮Command1的单击（Click）事件代码为PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSinglea=Val(InputBox("请输入第1个数：","输入框",0))b=Val(InputBox("请输入第2个数：","输入框",0))c=Val(InputBox("请输入第3个数：","输入框",0))p=""&a&"，"&b&"，"&cp=p&"三个数中最大的数是："Ifa>bAnda>cThenp=p&aIfb>aAndb>cThenp=p&bIfc>aAndc>bThenp=p&cLabel1.Caption=pEndSub第7页,共31页，2024年2月25日，星期天4.3.2使用IIF函数还可以使用IIf函数来实现一些比较简单的选择结构。IIf函数的语法结构为IIf(〈条件表达式〉，〈真部分〉，〈假部分〉)【例4-6】例4-3中命令按钮Command1的单击（Click）事件代码可以改为PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)y=IIf(x>=0,1+x,1–2*x)Text2.Text=yEndSub第8页,共31页，2024年2月25日，星期天4.3.3块结构条件语句IF…THEN…ELSE…ENDIF其语法结构为If〈条件1〉Then[语句列1][Else[语句列2]]EndIf4.3.4IF语句的嵌套1.IF语句的嵌套第9页,共31页，2024年2月25日，星期天【例4-8】铁路托运行李，从甲地到乙地，规定每张客票托运费计算方法是行李重量不超过50kg时，0.25元/kg，超过50kg而不超过100kg时，其超过部分按0.35元/kg收费，超过100kg时，其超过部分按0.45元/kg收费。编写程序，输入行李重量，计算并输出托运的费用。分析：设行李重量为wkg，应付运费为x元，则运费公式为第10页,共31页，2024年2月25日，星期天设计步骤如下：

(1)建立应用程序用户界面与设置对象属性。(2)编写程序代码。根据流程图，可以写出命令按钮Command1的单击（Click）事件代码为PrivateSubCommand1_Click()DimwAsSingle,xAsSinglew=Val(Text1.Text)Ifw<=50Thenx=0.25*wElseIfw<=100Thenx=0.25*50+0.35*(w–50)Elsex=0.25*50+0.35*50+0.45*(w–100)EndIfEndIfText2.Text=xEndSub第11页,共31页，2024年2月25日，星期天2.IF语句的嵌套格式ELSEIF其语法结构为If〈条件1〉Then[语句列1]ElseIf〈条件2〉Then[语句列2]...[Else[其他语句列]]EndIf第12页,共31页，2024年2月25日，星期天【例4-10】在例4-9中使用带ElseIf的块If语句来计算出优惠价，只需将其中命令按钮Command1的单击（Click）事件代码改为PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)Ifx<1000Theny=xElseIfx<2000Theny=0.95*xElseIfx<3000Theny=0.9*xElseIfx<5000Theny=0.85*xElsey=0.08*xEndIfText2.Text=yEndSub第13页,共31页，2024年2月25日，星期天4.4多分支条件选择语句SELECTCASE4.4.1SELECTCASE结构与语法SelectCase语句的语法格式为SelectCase〈测试条件〉[Case〈表达式表1〉[〈语句列1〉]][Case〈表达式表2〉[〈语句列2〉]]...[CaseElse[〈其他语句列〉]]EndSelect第14页,共31页，2024年2月25日，星期天4.5使用计时器控件【例4-13】在窗体上设计一个数字时钟，如图4-15所示。图4-15数字时钟第15页,共31页，2024年2月25日，星期天设计步骤如下：

(1)建立应用程序用户界面。

(2)设置对象属性

(3)编写程序代码。编写计时器控件Timer1的Timer事件代码：PrivateSubTimer1_Timer()Label1.Caption=Format(Time,Form1.Tag)Label2.Caption=IIf(Hour(Time)>12,"下午","上午")EndSub

第16页,共31页，2024年2月25日，星期天编写命令按钮Command1的Click事件代码：PrivateSubCommand1_Click()IfCommand1.Caption="改为12小时"ThenForm1.Tag="hh:mm:ssAM/PM"Command1.Caption="改为24小时"Label2.Visible=TrueElseForm1.Tag="hh:mm:ss"Command1.Caption="改为12小时"Label2.Visible=FalseEndIfEndSub第17页,共31页，2024年2月25日，星期天4.5.3设计一个流动字幕板【例4-15】为一个应用系统设计流动字幕板，如图4-19所示，标题“欲穷千里目，更上一层楼”在窗体中自右至左地反复移动。

图4-19电子标题板图4-20用户界面的设计第18页,共31页，2024年2月25日，星期天

(2)编写程序代码。编写命令按钮Command1的Click事件代码：PrivateSubCommand1_Click()IfCommand1.Caption="&S暂停"ThenCommand1.Caption="&C继续"Timer1.Enabled=FalseElseCommand1.Caption="&S暂停"Timer1.Enabled=TrueEndIfEndSub编写Timer1的Timer事件代码：PrivateSubTimer1_Timer()IfLabel1.Left+Label1.Width>0ThenLabel1.MoveLabel1.Left–20ElseLabel1.Left=Form1.ScaleWidthEndIfEndSub设计步骤如下：

(1)建立应用程序用户界面与设置对象属性。第19页,共31页，2024年2月25日，星期天4.6提供简单选择的控件4.6.1选项按钮

使用选项按钮组【例4-16】在例4-13中使用选项按钮组来选择时间的格式，如图4-21所示。

图4-21使用选项按钮组第20页,共31页，2024年2月25日，星期天设计步骤如下：

(1)修改程序用户界面与设置对象属性。

(2)编写新增控件的事件代码。编写选项按钮Option1的Click事件代码：PrivateSubOption1_Click()Form1.Tag="hh:mm:ssAM/PM"Label2.Visible=TrueEndSub

编写选项按钮Option2的Click事件代码：PrivateSubOption2_Click()Form1.Tag="hh:mm:ss"Label2.Visible=FalseEndSub第21页,共31页，2024年2月25日，星期天2.使用图形选项按钮【例4-18】用图形选项按钮组控制流动字幕中的字体，如图4-23所示。

图4-23图形选项按钮组第22页,共31页，2024年2月25日，星期天设计步骤如下：

(1)建立应用程序用户界面与设置对象属性。

(2)编写程序代码。依次编写选项按钮Option1～Option4的Click事件代码：PrivateSubOption1_Click()Text1.FontName="宋体"EndSubPrivateSubOption2_Click()Text1.FontName="隶书"EndSubPrivateSubOption3_Click()Text1.FontName="黑体"EndSubPrivateSubOption4_Click()Text1.FontName="楷体_GB2312"EndSub第23页,共31页，2024年2月25日，星期天2.使用多个复选框【例4-20】设计一个个人资料输入窗口，使用选项按钮组输入性别与民族，使用复选框输入个人爱好，如图4-25所示。设计步骤如下：

(1)建立应用程序用户界面。

(2)设置对象属性。

图4-25使用多个复选框图4-26建立用户界面第24页,共31页，2024年2月25日，星期天

(3)编写程序代码。编写命令按钮Command1的事件代码：

Click事件：PrivateSubCommand1_Click()IfText1.Text=""Thena=InputBox("您忘了输入姓名！","注意","请在此输入姓名")Ifa=""Ora="请在此输入姓名"ThenExitSubText1.Text=aEndIfp1=Text1.Text+"，"p2=IIf(Option1,"男","女")+"，"p3=IIf(Option3,"汉族","少数民族")p4="，喜欢："第25页,共31页，2024年2月25日，星期天

IfCheck1.Value=1Thenp4=p4+Check1.Caption+"、"IfCheck2.Value=1Thenp4=p4+Check2.Caption+"、"IfCheck3.Value=1Thenp4=p4+Check3.Caption+"、"IfCheck4.Value=1Thenp4=p4+Check4.Caption+"、"aa=p1+p2+p3+IIf(p4="，喜欢：","，无爱好。",p4)Label4.Caption=Left(aa,Len(aa)–1)+"。"Text1.SetFocusEndSub

编写文本框Text1的Change事件代码：PrivateSubText1_Change()Label4.Caption=""EndSub第26页,共31页，2024年2月25日，星期天习题四

4.1

写出下列各表达式的值。

(1)2*3>=8 (2)"BCD"<"BCE" (3)"12345"<>"12345"&"ABC" (4)Not2*5<>11 (5)4=4And5>2+2 (6)8<>5OrNot10>12+3 (7)2^3>3And5<10 (8)3>4And7=54.2

用布尔表达式表示下列命题。

(1)n是m的倍数 (2)n是小于正整数k的偶数

(3)|x|≥|y|或x<y (4)x，y其中有一个小于z (5)x，y都小于z (6)y

[–10，–1]，并且y

[1，10]第27页,共31页，2024年2月25日，星期天4.3

根据所给条件，列出布尔表达式。

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

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

≥0。

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

(4)分房的条件为：已婚（marrigerat），年龄（age）在26岁以上，工作年限（workingage）在5年以上。

4.4“x是小于100的非负数”，用VB表达式表示正确的是

(1)0≤x＜100 (2)0<=x<100 (3)0<=xAndx<100