第4章选择结构程序设计(精品).ppt

《第4章选择结构程序设计(精品).ppt》由会员分享，可在线阅读，更多相关《第4章选择结构程序设计(精品).ppt（69页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、第第4章章选择结构程序设计选择结构程序设计4.1条件表达式1关系运算符与关系表达式关系运算符与关系表达式比较两个运算量之间的关系，关系表达式的运算结果为逻辑比较两个运算量之间的关系，关系表达式的运算结果为逻辑量。若关系成立，结果为量。若关系成立，结果为True，若关系不成立，结果为，若关系不成立，结果为False。VB中的关系运算符如下表所示。中的关系运算符如下表所示。运算符含义优先级实例结果小于所有关系运算所有关系运算优先级相同。优先级相同。低于算术运算低于算术运算的加的加“+”，减减“-”运算，运算，高于逻辑非高于逻辑非“Not”运算。运算。15+1020False=小于或等于10大于10

2、20False=大于或等于This=ThatTrue=等于This=ThatFalse不等于ThisThatTrueLike字符串匹配ThisLike*isTrueIs对象比较关系运算的规则如下：关系运算的规则如下：（1）当两个操作式均为数值型，按数值大小比较。）当两个操作式均为数值型，按数值大小比较。（2）字符串比较）字符串比较,则按字符的则按字符的ASCII码值从左到右一一比较码值从左到右一一比较,直到出现不同的字符为止直到出现不同的字符为止.。例：例：ABCDEABRA结果为结果为False（3）数值型与可转换为数值型的数据比较，）数值型与可转换为数值型的数据比较，如：如：29189，按

3、数值比较，结果为，按数值比较，结果为False。（4）数值型与不能转换成数值型的字符型比较，）数值型与不能转换成数值型的字符型比较，如：如：77sdcd，不能比较，系统出错。，不能比较，系统出错。（5）“Like”运算符是运算符是VB6.0新增加的。新增加的。其使用格式为：其使用格式为：str1Likestr22逻辑运算符与逻辑表达式逻辑运算符与逻辑表达式逻辑运算符：逻辑运算符：Not，And，OrXor说说明：明：（1）逻辑运算符的优先级不相同，）逻辑运算符的优先级不相同，Not（逻辑非）最高，（逻辑非）最高，但它低于关系运算。但它低于关系运算。（2）VB中常用的逻辑运算符是中常用的逻辑运算

4、符是Not、And和和Or。它们用。它们用于将多个关系表达式进行逻辑判断。于将多个关系表达式进行逻辑判断。例如：例如：数学上表示某个数在某个区域时用表达式：数学上表示某个数在某个区域时用表达式：10X=10AndX20如果写成如下形式将是错误的：如果写成如下形式将是错误的：10=x20或或10=xOrx字字符符串串运运算算符符-关关系系运运算算符符-布布尔尔运运算符算符【例例4-1】设设变变量量x=4，y=1，a=7.5，b=6.2，求求表表达达式式x+ya+bAndNoty1.3AndNotyb(2)再作关系运算：再作关系运算：TrueAndNotFalse(3)作非运算：作非运算：True

5、AndTrue(4)最后得：最后得：True【例例4-2】判判断断某某个个年年份份是是闰闰年年的的根根据据是是年年份份数数满满足足下下述述条条件之一。件之一。(1)能被能被4整除，但不能被整除，但不能被100整除的年份都是闰年。整除的年份都是闰年。(2)能被能被100整除，又能被整除，又能被400整除的年份都是闰年。整除的年份都是闰年。设变量设变量y表示年份，写出判断表示年份，写出判断y是否闰年的布尔表达式。是否闰年的布尔表达式。解解：判判断断y是是否否满满足足条条件件(1)的的布布尔尔表表达达式式是是yMod4=0AndyMod1000判判断断y是是否否满满足足条条件件(2)的的布布尔尔表表

6、达达式式是是yMod100=0AndyMod400=0两者取两者取“或或”，即得判断闰年的布尔表达式，即得判断闰年的布尔表达式yMod4=0AndyMod1000OryMod100=0AndyMod400=04.3单条件选择语句单条件选择语句IF1.单行结构条件语句单行结构条件语句IFTHENELSEIf条件条件Then语句序列语句序列1Else语句序列语句序列2【例例4-3】输入输入x，计算计算y的值。其中：的值。其中：设计步骤如下：设计步骤如下：(1)建立应用程序用户界面与设置对象属性。建立应用程序用户界面与设置对象属性。(2)编写程序代码。编写程序代码。写出命令按钮写出命令按钮Comma

7、nd1的单击（的单击（Click）事件代码为事件代码为PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)Ifx=0Theny=1+xElsey=12*xText2.Text=yEndSub【例例4-4】学学校校对对学学习习成成绩绩优优良良的的学学生生进进行行奖奖励励，获获奖奖的的条条件件如下：如下：(1)所考所考5门课的总分超过门课的总分超过450分。分。(2)每门课的成绩都在每门课的成绩都在88分以上。分以上。(3)前前3门门（主主课课）的的成成绩绩都都在在95分分以以上上，其其他他两两门门（非非主主课）的成绩都

8、在课）的成绩都在80分以上。分以上。输入某学生输入某学生5门课的成绩门课的成绩s1、s2、s3、s4、s5，判断他是否能判断他是否能够获奖。够获奖。设计步骤如下：设计步骤如下：(1)建立应用程序用户界面与设置对象属性。建立应用程序用户界面与设置对象属性。(2)编写程序代码。编写程序代码。图图4-5判断能否获奖判断能否获奖可以写出命令按钮可以写出命令按钮Command1的单击（的单击（Click）事件代码为：事件代码为：PrivateSubCommand1_Click()Dims1AsSingle,s2AsSingle,s3AsSingle,s4AsSingle,s5AsSingleDimpAs

9、Strings1=Val(InputBox(请输入第请输入第1门课的成绩：门课的成绩：,输入框输入框,0)s2=Val(InputBox(请输入第请输入第2门课的成绩：门课的成绩：,输入框输入框,0)s3=Val(InputBox(请输入第请输入第3门课的成绩：门课的成绩：,输入框输入框,0)s4=Val(InputBox(请输入第请输入第4门课的成绩：门课的成绩：,输入框输入框,0)s5=Val(InputBox(请输入第请输入第5门课的成绩：门课的成绩：,输入框输入框,0)t1=(s1+s2+s3+s4+s5=450)t2=(s1=88Ands2=88Ands3=88Ands4=88And

10、s5=88)t3=(s1=95Ands2=95Ands3=95Ands4=80Ands5=80)Ift1Ort2Ort3Thenp=可可以以获获奖奖!Elsep=不不能能获获奖奖!p=Str(s1)&,&Str(s2)&,&Str(s3)&,&Str(s4)&,&Str(s5)&Chr(13)&pLabel1.Caption=该该生生五五门门课课的的成成绩绩分分别别是是：&Chr(13)&pEndSub【例4-5】利用输入框函数输入3个不同的数，选出其中最大的数。设计步骤如下：(1)建立应用程序用户界面与设置对象属性。(2)编写程序代码。可以写出命令按钮可以写出命令按钮Command1的单击（

11、的单击（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&三个数中最大的数是：三个数中最大的数是：IfabAndacThenp=p&aIfbaAndbcThenp=p&bIfcaAndcbThenp=p&cLabel1.Capti

12、on=pEndSub2使用使用IIF函数函数IIf函函 数数 可可 用用 来来 执执 行行 简简 单单 的的 条条 件件 判判 断断 操操 作作，它它 相相 当当 于于IFThen.Else结构。结构。IIf函数的语法结构为函数的语法结构为IIf(条件表达式条件表达式，表达式表达式1，表达式表达式2)说明：说明：（1）与与IF语句中的表达式相同，通常是关系表语句中的表达式相同，通常是关系表达式、逻辑表达式，也可为算术表达式。如果是算术表达式，达式、逻辑表达式，也可为算术表达式。如果是算术表达式，其值按非其值按非0为为True，0为为False进行判断。进行判断。（2）当）当为真时，函数返回为真

13、时，函数返回的值，当的值，当为假时，函数返回为假时，函数返回的值。的值。（3）、可以是任何表达式。可以是任何表达式。【例例4-6】例例4-3中命令按钮中命令按钮Command1的单击（的单击（Click）事件代码可以改为事件代码可以改为PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)y=IIf(x=0,1+x,12*x)Text2.Text=yEndSub3.块结构条件语句块结构条件语句IFTHENELSEENDIF其语法结构为其语法结构为If条件条件1Then语句列语句列1Else语句列语句列2EndIf【例例

14、4-7】将将例例4-3中中命命令令按按钮钮Command1的的单单击击（Click）事件代码改为多行事件代码改为多行If语句：语句：PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)Ifx=0Theny=1+xElsey=12*xEndIfText2.Text=yEndSub4.IF语句的嵌套语句的嵌套1)IF语句的嵌套1.【例例4-8】铁铁路路托托运运行行李李，从从甲甲地地到到乙乙地地，规规定定每每张张客客票票托托运运费费计计算算方方法法是是行行李李重重量量不不超超过过50kg时时，0.25元元/kg，超超过过5

15、0kg而而不不超超过过100kg时时，其其超超过过部部分分按按0.35元元/kg收收费费，超超过过100kg时时，其其超超过过部部分分按按0.45元元/kg收收费费。编编写写程程序序，输输入入行行李李重重量量，计计算算并并输输出出托托运运的费用。的费用。设计步骤如下：设计步骤如下：(1)建建立立应应用用程程序序用用户户界界面面与与设设置置对对象象属性。属性。图4-9计算托运费(2)编写程序代码。编写程序代码。可以写出命令按钮可以写出命令按钮Command1的单击（的单击（Click）事件代码事件代码为为PrivateSubCommand1_Click()DimwAsSingle,xAsSing

16、lew=Val(Text1.Text)Ifw=50Thenx=0.25*wElseIfw=100Thenx=0.25*50+0.35*(w50)Elsex=0.25*50+0.35*50+0.45*(w100)EndIfEndIfText2.Text=xEndSub可以将上例中命令按钮Command1的单击（Click）事件代码改为：PrivateSubCommand1_Click()DimwAsSingle,xAsSinglew=Val(Text1.Text)x=IIf(w=50,0.25*w,0.25*50+IIf(w=100,0.35*(w50),0.35*50+0.45*(w100)T

17、ext2.Text=xEndSub【例4-9】某百货公司为了促销，采用购物打折扣的优惠办法：每位顾客一次购物(1)在1000元以上者，按九五折优惠；(2)在2000元以上者，按九折优惠；(3)在3000元以上者，按八五折优惠；(4)在5000元以上者，按八折优惠。设计步骤如下：(1)建立应用程序用户界面与设置对象属性。(2)编写程序代码。可以写出命令按钮Command1的单击（Click）事件代码为PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)Ifx1000Theny=xElseIfx2000Theny=0.9

18、5*xElseIfx3000Theny=0.9*xElseIfx5000Theny=0.85*xElsey=0.08*xEndIfEndIfEndIfEndIfText2.Text=yEndSub2)IF语句的嵌套格式ELSEIF其语法结构为If条件条件1Then语句列语句列1ElseIf条件条件2Then语句列语句列2.Else其他语句列其他语句列EndIf【例4-10】在例4-9中使用带ElseIf的块If语句来计算出优惠价，只需将其中命令按钮Command1的单击（Click）事件代码改为PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=

19、Val(Text1.Text)Ifx1000Theny=xElseIfx2000Theny=0.95*xElseIfx3000Theny=0.9*xElseIfx5000Theny=0.85*xElsey=0.08*xEndIfText2.Text=yEndSub4.4多分支条件选择语句多分支条件选择语句SELECTCASE1.SELECTCASE结构与语法结构与语法语句的语法格式为语句的语法格式为:SelectCase变量或表达式变量或表达式Case表达式列表表达式列表1语句块语句块1Case表达式列表表达式列表2语句块语句块2CaseElse语句块语句块n+1EndSelect数值型或字符

20、串表达式说明：说明：与：与同类型的下面同类型的下面四种形式之一：四种形式之一：表达式表达式如如:A+5一组枚举表达式一组枚举表达式(用逗号分隔用逗号分隔)如如:2,4,6,8表达式表达式1To表达式表达式2如如:60to100Is关系运算符表达式关系运算符表达式如如;Is602.SELECTCASE结构的应用【例4-11】在例4-9中使用SelectCase语句来计算优惠价，只需将其中命令按钮Command1的单击（Click）事件代码改为PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)SelectCasexCa

21、seIs1000y=xCaseIs2000y=0.95*xCaseIs3000y=0.9*xCaseIs5000y=0.85*xCaseElsey=0.8*xEndSelectText2.Text=yEndSub【例4-12】某航空公司规定在旅游的旺季79月份，如果订票数超过20张，票价优惠15%，20张以下，优惠5%；在旅游的淡季15月份、10月份、11月份，如果订票数超过20张，票价优惠30%，20张以下，优惠20%；其他情况一律优惠10%。设计程序，根据月份和订票张数决定票价的优惠率。设计步骤如下：(1)建立应用程序用户界面与设置对象属性。(2)编写程序代码。根 据 流 程 图，可 以

22、写 出 命 令 按 钮 Command1的 单 击（Click）事件代码为：PrivateSubCommand1_Click()DimmAsInteger,nAsInteger,rAsIntegerm=Val(Text1.Text)n=Val(Text2.Text)SelectCasemCaseIs=5,10,11Ifn20Thenr=20Elser=30Case7To9Ifn0AndText1.Text0ThenCommand1.SetFocusEndIfEndSub4.5使用计时器控件使用计时器控件1.用途用途计时器控件（计时器控件（Timer）又称时钟、定时器控件，用于有规律地定）又称时

23、钟、定时器控件，用于有规律地定时执行指定的工作，常常用于编写不需要与用户进行交互就可时执行指定的工作，常常用于编写不需要与用户进行交互就可直接执行的代码，如计时、倒计时、动画等。在程序运行阶段，直接执行的代码，如计时、倒计时、动画等。在程序运行阶段，时钟控件不可见。时钟控件不可见。2属属性性（1）Interval属性属性取值范围在取值范围在064767，单位：为毫秒（，单位：为毫秒（0.001秒），表示计时间秒），表示计时间隔。若将隔。若将Interval属性设置为属性设置为0或负数，则计时器停止工作。缺或负数，则计时器停止工作。缺省设置为省设置为0（2）Enabled属性属性设置为设置为Tr

24、ue，而且，而且Interval属性值大于属性值大于0，则计时器开始工（以，则计时器开始工（以Interval属性值为间隔，触发属性值为间隔，触发Timer事件）。事件）。设置为设置为False可使时钟控件无效，即计时器停止工作。缺省设置可使时钟控件无效，即计时器停止工作。缺省设置为为True3方方法法Timer控件没有方法控件没有方法。4事事件件时钟控件只有时钟控件只有Timer事件事件当当Enabled属性值为属性值为True且且Interval属性值大于属性值大于0时，时，该事该事件以件以Interval属性指定的时间间隔发生属性指定的时间间隔发生常常将需要定时执行的操作放在常常将需要定

25、时执行的操作放在Timer事件过程中事件过程中计时器控件计时器控件应用举例应用举例1.设计一个电子表设计一个电子表【例4-13】在窗体上设计一个数字时钟，如图4-15所示。图4-16建立界面与设置属性图4-15数字时钟设计步骤如下：(1)建立应用程序用户界面。(2)设置对象属性，(3)编写程序代码。编写计时器控件Timer1的Timer事件代码：PrivateSubTimer1_Timer()Label1.Caption=Format(Time,Form1.Tag)Label2.Caption=IIf(Hour(Time)12,下午,上午)EndSub编写命令按钮Command1的Click事

26、件代码：PrivateSubCommand1_Click()IfCommand1.Caption=改为12小时ThenForm1.Tag=hh:mm:ssAM/PMCommand1.Caption=改为24小时Label2.Visible=TrueElseForm1.Tag=hh:mm:ssCommand1.Caption=改为12小时Label2.Visible=FalseEndIfEndSub2.设计一个计时器【例4-14】一个简单计时器。如图4-17所示。图4-17简单计时器图4-18计时器的设计设计步骤如下：(1)建立应用程序用户界面与设置对象属性。(2)编写程序代码。编写Comman

27、d1（开始）的Click事件代码：PrivateSubCommand1_Click()IfCommand1.Caption=&S暂停ThenCommand1.Caption=&C继续Timer1.Enabled=FalseElseCommand1.Caption=&S暂停IfLabel1.Caption=00:00:00:0ThenForm1.Tag=TimerTimer1.Enabled=TrueEndIfEndSub编写Command2（重置）的Click事件代码：PrivateSubCommand2_Click()Form1.Tag=TimerLabel1.Caption=00:00:0

28、0:0EndSub编写Timer1的Timer事件代码：PrivateSubTimer1_Timer()m=TimerForm1.Tagn0=(m*10)Mod10m=Int(m)n1=Format(mMod60,00.)n2=Format(m60)Mod60,00:)n3=Format(m3600,00:)Label1.Caption=n3&n2&n1&n0EndSub3.设计一个流动字幕板设计一个流动字幕板【例4-15】为一个应用系统设计流动字幕板，如图4-19所示，标题“欲穷千里目，更上一层楼”在窗体中自右至左地反复移动。图4-19电子标题板图4-20用户界面的设计设计步骤如下：(1)建

29、立应用程序用户界面与设置对象属性(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.Width0ThenLabel1.MoveLabel1.Left20El

30、seLabel1.Left=Form1.ScaleWidthEndIfEndSub4.6提供简单选择的控件提供简单选择的控件4.6.1选项按钮选项按钮1用途用途单选钮（单选钮（OptionButton）也称作选择按钮。一组单选钮控）也称作选择按钮。一组单选钮控件可以提供一组彼此相互排斥的选项，任何时刻用户只能从中件可以提供一组彼此相互排斥的选项，任何时刻用户只能从中选择一个选项，实现一种选择一个选项，实现一种“单项选择单项选择”的功能，被选中项目左的功能，被选中项目左侧圆圈中会出现一黑点。侧圆圈中会出现一黑点。2.重要属性重要属性（1）Caption：文本标题。设置单选钮的文本注释内容。：文本

31、标题。设置单选钮的文本注释内容。（2）Alignment属性：属性：0：LeftJustify(缺省设置缺省设置)控件钮在左边，标题显示在右边。控件钮在左边，标题显示在右边。1：RightJustify控件钮在右边，标题显示在左边。控件钮在右边，标题显示在左边。（3）Value属性属性True:单选钮被选定单选钮被选定False:单选钮未被选定（缺省设置单选钮未被选定（缺省设置）(4)Style属性属性0-Standard：标准方式标准方式 1-Graphical：图形方式：图形方式3方法方法SetFocus方法是单选钮控件最常用的方法，可以在代码中方法是单选钮控件最常用的方法，可以在代码中通

32、过该方法将通过该方法将Value属性设置为属性设置为True。与命令按钮相同，使用该方法之前，必须要保证单选钮处与命令按钮相同，使用该方法之前，必须要保证单选钮处于可见和可用状态（即于可见和可用状态（即Visible与与Enabled属性值均属性值均True）。）。4事件事件Click事件是单选钮控件最基本的事件，一般情况用户无事件是单选钮控件最基本的事件，一般情况用户无需为单选钮编写需为单选钮编写Click事件过程，因为当用户单击单选钮事件过程，因为当用户单击单选钮时，它会自动改变状态。时，它会自动改变状态。选项按钮组应用举例选项按钮组应用举例【例例4-16】在例在例4-13中使用选项按钮组

33、来选择时间的格式中使用选项按钮组来选择时间的格式编写新增控件的事件代码。编写新增控件的事件代码。编写选项按钮编写选项按钮Option1的的Click事件代码：事件代码：PrivateSubOption1_Click()Form1.Tag=hh:mm:ssAM/PMLabel2.Visible=TrueEndSub编写选项按钮编写选项按钮Option2的的Click事件代码：事件代码：PrivateSubOption2_Click()Form1.Tag=hh:mm:ssLabel2.Visible=FalseEndSub例例4-17】设设银银行行定定期期存存款款年年利利率率为为：1年年期期2.2

34、5%，2年年期期2.43%，3年年期期2.70%，5年年期期2.88%（不不计计复复利利）。今今有有本本金金a元，元，5年以后使用，共有以下年以后使用，共有以下6种存法：种存法：l l存一次存一次5年期。年期。l l存一次存一次3年期，一次年期，一次2年期。年期。l l存一次存一次3年期，两次年期，两次1年期。年期。l l存两次存两次2年期，一次年期，一次1年期。年期。l l存一次存一次2年期，三次年期，三次1年期。年期。l l存五次存五次1年期。年期。分别计算各种存法分别计算各种存法5年后到期时的本息合计年后到期时的本息合计编写命令按钮编写命令按钮Command1的单击（的单击（Click）

35、事件代码：事件代码：PrivateSubCommand1_Click()DimaAsSingle,yAsSingleDimx1AsSingle,x2AsSingleDimx3AsSingle,x5AsSinglea=Val(Text1.Text)x1=0.0225:x2=0.0243x3=0.027:x5=0.0288SelectCaseTrueCaseOption1.Valuey=(1+5*x5)*aCaseOption2.Valuey=(1+3*x3)*(1+2*x2)*aCaseOption3.Valuey=(1+3*x3)*(1+x1)2*aCaseOption4.Valuey=(1+

36、2*x2)2*(1+x1)*aCaseOption5.Valuey=(1+2*x2)*(1+x1)3*aCaseOption6.Valuey=(1+x1)5*aEndSelectText2.Text=yText1.SetFocusEndSub编写文本框编写文本框Text1的的GotFocus事件代码：事件代码：PrivateSubText1_GotFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.Text)EndSub图形选项按钮应用举例图形选项按钮应用举例将选项按钮设计成图形按钮的形式将选项按钮设计成图形按钮的形式【例例4-18】用用图图形形选

37、选项项按按钮钮组组控控制制流流动动字字幕幕中中的的字字体体，如图如图4-23所示。所示。设计步骤如下：设计步骤如下：(1)建立应用程序用户界面与设置对象属性。建立应用程序用户界面与设置对象属性。(2)编写程序代码。编写程序代码。依次编写选项按钮依次编写选项按钮Option1Option4的的Click事件代码：事件代码：PrivateSubOption1_Click()Text1.FontName=宋体EndSubPrivateSubOption2_Click()Text1.FontName=隶书EndSubPrivateSubOption3_Click()Text1.FontName=黑体E

38、ndSubPrivateSubOption4_Click()Text1.FontName=楷体_GB2312EndSub4.6.2复选框复选框1用途用途复选框（复选框（CheckBox）也称作检查框、选择框。一组复选框）也称作检查框、选择框。一组复选框控件可以提供多个选项，它们彼此独立工作，所以用户可控件可以提供多个选项，它们彼此独立工作，所以用户可以同时选择任意多个选项，实现一种以同时选择任意多个选项，实现一种“不定项选择不定项选择”的功的功能。选择某一选项后，该控件将显示能。选择某一选项后，该控件将显示，而清除此选项后，而清除此选项后，消失。消失。检查框被选中2.重要属性重要属性Capti

39、on、Alignment、Style与单选钮相同与单选钮相同复选框的复选框的Value属性与单选按钮不同，其值为数值型数据，属性与单选按钮不同，其值为数值型数据，可取可取0,1,2复选框与单选按钮复选框与单选按钮Value属性的比较属性的比较 检查框检查框0-Unchecked：未被未被选定选定1-Checked：选定选定2-Grayed：灰色，禁止选择灰色，禁止选择 单选钮单选钮True:True:单选钮被单选钮被选定选定False:False:单选钮未被单选钮未被选定，选定，缺省设置缺省设置4事件事件Click事件是检查框控件最基本的事件。用户一般无事件是检查框控件最基本的事件。用户一般无

40、需为检查框编写需为检查框编写Click事件过程，但其对事件过程，但其对Value属性值的属性值的改变遵循以下规则：改变遵循以下规则：单击未选中的检查框时，单击未选中的检查框时，Value属性值变为属性值变为1；单击已选中的检查框时，单击已选中的检查框时，Value属性值变为属性值变为0；单击变灰的检查框时，单击变灰的检查框时，Value属性值变为属性值变为0。复选框应用举例复选框应用举例1.使用单个复选框使用单个复选框【例4-19】在上例中，增加复选框，控制选项按钮组的显示。增加复选框控件Check1的Click事件代码：PrivateSubCheck1_Click()Option1.Visi

41、ble=Check1.ValueOption2.Visible=Check1.ValueOption3.Visible=Check1.ValueOption4.Visible=Check1.ValueEndSub2.使用多个复选框使用多个复选框【例4-20】设计一个个人资料输入窗口，使用选项按钮组输入性别与民族，使用复选框输入个人爱好，如图4-25所示。.图4-25使用多个复选框图4-26建立用户界面设计步骤如下：设计步骤如下：(1)建立应用程序用户界面。建立应用程序用户界面。(2)设置对象属性。设置对象属性。(3)编写程序代码。编写程序代码。编写命令按钮编写命令按钮Command1的的Cli

42、ck事件代码：事件代码：PrivateSubCommand1_Click()IfText1.Text=Thena=InputBox(您您忘忘了了输输入入姓姓名名！,注注意意,请请在在此此输输入入姓姓名名)Ifa=Ora=请在此输入姓名请在此输入姓名ThenExitSubText1.Text=aEndIfp1=Text1.Text+，p2=IIf(Option1,男,女)+，p3=IIf(Option3,汉族,少数民族)p4=，喜欢：IfCheck1.Value=1Thenp4=p4+Check1.Caption+、IfCheck2.Value=1Thenp4=p4+Check2.Caption

43、+、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=EndSub3.复选框的图形方式复选框的图形方式【例例4-21】利利用用图图形形复复选选框框来来控控制制文文本本的的字字体体风风格格

44、，如如图图4-27所示。所示。设计步骤如下：(1)建立应用程序用户界面。(2)设置对象属性。(3)编写代码。复选框控件Check1的Click事件代码：PrivateSubCheck1_Click()Check2.Enabled=Check1.ValueCheck3.Enabled=Check1.ValueCheck4.Enabled=Check1.ValueCheck1.Caption=IIf(Check4.Caption=锁上,打开,锁上)EndSub复选框控件Check2的Click事件代码：PrivateSubCheck2_Click()Text1.FontBold=Check2.Va

45、lueEndSub复选框控件Check3的Click事件代码：PrivateSubCheck3_Click()Text1.FontItalic=Check3.ValueEndSub复选框控件Check4的Click事件代码：PrivateSubCheck4_Click()Text1.FontUnderline=Check4.ValueEndSub习题四习题四4.1写出下列各表达式的值。(1)2*3=8(2)BCDBCE(3)1234512345&ABC(4)Not2*511(5)4=4And52+2(6)85OrNot1012+3(7)233And54And7=54.2用布尔表达式表示下列命题

46、。(1)n是m的倍数(2)n是小于正整数k的偶数(3)|x|y|或xy(4)x，y其中有一个小于z(5)x，y都小于z(6)y10，1，并且y1，104.3根据所给条件，列出布尔表达式。(1)闰年的条件是：年号（year）能被4整除，但是不能被100整除；或者能被400整除。(2)一元二次方程ax2+bx+c=0有实根的条件为：a0，并且b24ac 0。(3)征兵的条件是：男性（sex）年龄（age）在1820岁之间，身高（size）在1.65m以上；或者女性（sex）年龄（age）在1618岁之间，身高（size）在1.60m以上。(4)分房的条件为：已婚（marrigerat），年龄（ag

47、e）在26岁以上，工作年限（workingage）在5年以上。4.4“x是小于100的非负数”，用VB表达式表示正确的是(1)0 x100(2)0=x100(3)0=xAndx100(4)0=xOrx1004.5选择结构的特点是什么？用流程图描述看交通灯通过十字路口的过程。4.6输入3个不同的数，将它们从大到小排序。4.7任给3个实数，求其中间数（即其值大小居中者）。4.8编写程序，任意输入一个整数，判定该整数的奇偶性。4.9文本框的PasswordChar属性可以隐蔽用户通过键盘输入的字符。编写程序，利用文本框检查用户口令，如图4-28所示。4.10键盘输入a、b、c的值，判断它们能否构成三

48、角形的3个边。如果能构成一个三角形，则计算三角形的面积。4.11求一元二次方程的根。4.12输入一个数字（06），用中英文显示星期几。4.13给定年号与月份，判断该年是否闰年，并根据给出的月份来判断是什么季节和该月有多少天？（闰年的条件是：年号能被4整除但不能被100整除，或者能被400整除。）4.14若基本工资大于等于600元，增加工资20%；若小于600元大于等于400元，则增加工资15%；若小于400元则增加工资10%。请根据用户输入的基本工资，计算出增加后的工资。4.15编制程序，根据用户输入的考试成绩（百分制，若有小数则四舍五入），按表4-11的划分标准，输出相应的等级。分数等级90100优秀8089良好7079中等6069及格60不及格4.16输入圆的半径r，利用选项按钮，选择运算：计算面积、计算周长等。4.17设计一个计时器，能够设置倒计时的时间，并进行倒计时，如图4-29所示。