第4章选择结构程序设计

会计学1第4章选择结构程序设计2逻辑运算符与逻辑表达式逻辑运算符：Not，And，OrXor第1页/共68页说明：（1）逻辑运算符的优先级不相同，Not（逻辑非）最高，但它低于关系运算。（2）VB中常用的逻辑运算符是Not、And和Or。它们用于将多个关系表达式进行逻辑判断。例如：数学上表示某个数在某个区域时用表达式：10≤X<20

用VB程序中应写成：X>=10AndX<20

如果写成如下形式将是错误的：

10<=x<20或

10<=xOrx<20第2页/共68页3运算符的优先顺序

算术运算符--->字符串运算符---关系运算符--布尔运算符【例4-1】设变量x=4，y=–1，a=7.5，b=–6.2，求表达式x+y>a+bAndNoty<b的值。分析：将按下面步骤计算：

(1)先作算术运算：3>–1.3AndNoty<b(2)再作关系运算：TrueAndNotFalse(3)作非运算：TrueAndTrue(4)最后得：True第3页/共68页【例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页/共68页4.3单条件选择语句IF

1.单行结构条件语句IF…THEN…ELSEIf〈条件〉Then[〈语句序列1〉][Else〈语句序列2〉]【例4-3】输入x，计算y的值。其中：第5页/共68页

设计步骤如下：

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

(2)编写程序代码。写出命令按钮Command1的单击（Click）事件代码为PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)Ifx>=0Theny=1+xElsey=1–2*xText2.Text=yEndSub第6页/共68页【例4-4】学校对学习成绩优良的学生进行奖励，获奖的条件如下：

(1)所考5门课的总分超过450分。

(2)每门课的成绩都在88分以上。

(3)前3门（主课）的成绩都在95分以上，其他两门（非主课）的成绩都在80分以上。输入某学生5门课的成绩s1、s2、s3、s4、s5，判断他是否能够获奖。设计步骤如下：

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

(2)编写程序代码。第7页/共68页图4-5判断能否获奖可以写出命令按钮Command1的单击（Click）事件代码为：PrivateSubCommand1_Click()Dims1AsSingle,s2AsSingle,s3AsSingle,s4AsSingle,s5AsSingleDimpAsStrings1=Val(InputBox("请输入第1门课的成绩：","输入框",0))s2=Val(InputBox("请输入第2门课的成绩：","输入框",0))s3=Val(InputBox("请输入第3门课的成绩：","输入框",0))第8页/共68页s4=Val(InputBox("请输入第4门课的成绩：","输入框",0))s5=Val(InputBox("请输入第5门课的成绩：","输入框",0))t1=(s1+s2+s3+s4+s5>=450)t2=(s1>=88Ands2>=88Ands3>=88Ands4>=88Ands5>=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第9页/共68页【例4-5】利用输入框函数输入3个不同的数，选出其中最大的数。设计步骤如下：

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

(2)编写程序代码。第10页/共68页可以写出命令按钮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第11页/共68页2使用IIF函数IIf函数可用来执行简单的条件判断操作，它相当于IF…Then….Else结构。

IIf函数的语法结构为

IIf(〈条件表达式〉，〈表达式1〉，〈表达式2〉)说明：（1）<条件表达式>与IF语句中的表达式相同，通常是关系表达式、逻辑表达式，也可为算术表达式。如果是算术表达式，其值按非0为True，0为False进行判断。（2）当<条件表达式>为真时，函数返回<表达式1>的值，当<条件表达式>为假时，函数返回<表达式2>的值。（3）<表达式1>、<表达式2>可以是任何表达式。第12页/共68页【例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第13页/共68页3.块结构条件语句IF…THEN…ELSE…ENDIF其语法结构为If〈条件1〉Then[语句列1][Else[语句列2]]EndIf第14页/共68页【例4-7】将例4-3中命令按钮Command1的单击（Click）事件代码改为多行If语句：PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)Ifx>=0Theny=1+xElsey=1–2*xEndIfText2.Text=yEndSub第15页/共68页4.IF语句的嵌套1)IF语句的嵌套【例4-8】铁路托运行李，从甲地到乙地，规定每张客票托运费计算方法是行李重量不超过50kg时，0.25元/kg，超过50kg而不超过100kg时，其超过部分按0.35元/kg收费，超过100kg时，其超过部分按0.45元/kg收费。编写程序，输入行李重量，计算并输出托运的费用。设计步骤如下：

(1)建立应用程序用户界面与设置对象属性。图4-9计算托运费第16页/共68页(2)编写程序代码。可以写出命令按钮Command1的单击（Click）事件代码为PrivateSubCommand1_Click()DimwAsSingle,xAsSinglew=Val(Text1.Text)Ifw<=50Thenx=0.25*wElseIfw<=100Thenx=0.25*50+0.35*(w–50)Else第17页/共68页x=0.25*50+0.35*50+0.45*(w–100)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*(w–50),0.35*50+0.45*(w–100)))Text2.Text=xEndSub第18页/共68页【例4-9】某百货公司为了促销，采用购物打折扣的优惠办法：每位顾客一次购物

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

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

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

(4)在5000元以上者，按八折优惠。

设计步骤如下：

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

(2)编写程序代码。第19页/共68页可以写出命令按钮Command1的单击（Click）事件代码为PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)Ifx<1000Theny=xElseIfx<2000Theny=0.95*xElseIfx<3000Then第20页/共68页y=0.9*xElseIfx<5000Theny=0.85*xElsey=0.08*xEndIfEndIfEndIfEndIfText2.Text=yEndSub第21页/共68页2)IF语句的嵌套格式ELSEIF

其语法结构为If〈条件1〉Then[语句列1]ElseIf〈条件2〉Then[语句列2]...[Else[其他语句列]]EndIf第22页/共68页【例4-10】在例4-9中使用带ElseIf的块If语句来计算出优惠价，只需将其中命令按钮Command1的单击（Click）事件代码改为PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)Ifx<1000Theny=xElseIfx<2000Theny=0.95*x第23页/共68页ElseIfx<3000Theny=0.9*xElseIfx<5000Theny=0.85*xElsey=0.08*xEndIfText2.Text=yEndSub第24页/共68页4.4多分支条件选择语句SELECTCASESELECTCASE结构与语法语句的语法格式为:SelectCase变量或表达式

Case表达式列表1

语句块1Case表达式列表2

语句块2 …[CaseElse

语句块n+1]EndSelect数值型或字符串表达式第25页/共68页说明：

<表达式列表>：与<变量或表达式>同类型的下面四种形式之一：表达式如:A+5

一组枚举表达式(用逗号分隔)如:2,4,6,8

表达式1To表达式2 如:60to100

Is关系运算符表达式如;Is<60第26页/共68页2.SELECTCASE结构的应用

【例4-11】在例4-9中使用SelectCase语句来计算优惠价，只需将其中命令按钮Command1的单击（Click）事件代码改为PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)SelectCasexCaseIs<1000y=x

第27页/共68页CaseIs<2000y=0.95*xCaseIs<3000y=0.9*xCaseIs<5000y=0.85*xCaseElsey=0.8*xEndSelectText2.Text=yEndSub第28页/共68页【例4-12】某航空公司规定在旅游的旺季7～9月份，如果订票数超过20张，票价优惠15%，20张以下，优惠5%；在旅游的淡季1～5月份、10月份、11月份，如果订票数超过20张，票价优惠30%，20张以下，优惠20%；其他情况一律优惠10%。设计程序，根据月份和订票张数决定票价的优惠率。设计步骤如下：

(1)建立应用程序用户界面与设置对象属性。第29页/共68页(2)编写程序代码。根据流程图，可以写出命令按钮Command1的单击（Click）事件代码为：PrivateSubCommand1_Click()DimmAsInteger,nAsInteger,rAsIntegerm=Val(Text1.Text)n=Val(Text2.Text)SelectCasemCaseIs<=5,10,11Ifn<20Thenr=20Elser=30第30页/共68页Case7To9Ifn<20Thenr=5Elser=15CaseElser=10EndSelectLabel4.Caption="所订机票的优惠率为:"&Str(r)&"%"EndSub

为了使用更加方便，再增加如下代码。窗体的Load事件代码：第31页/共68页PrivateSubForm_Load()Text1.Text=Month(Date) 'Text1中的默认值为当前月份EndSub

文本框Text1的GotFocus事件代码：PrivateSubText1_GotFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.Text)EndSub第32页/共68页

文本框Text1的按健（KeyPress）事件代码：PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then'在Text1按回车键，光标跳到Text2IfText1.Text>0AndText1.Text<13ThenText2.SetFocusEndIfEndIfEndSub

文本框Text2的GotFocus事件代码：PrivateSubText2_GotFocus()第33页/共68页Text2.SelStart=0Text2.SelLength=Len(Text2.Text)EndSub

文本框Text2的按健（KeyPress）事件代码：PrivateSubText2_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then'在Text2按回车键，光标跳到Command1IfText2.Text>0ThenCommand1.SetFocusEndIfEndSub第34页/共68页4.5使用计时器控件

1.用途计时器控件（Timer）又称时钟、定时器控件，用于有规律地定时执行指定的工作，常常用于编写不需要与用户进行交互就可直接执行的代码，如计时、倒计时、动画等。在程序运行阶段，时钟控件不可见。2属性（1）Interval属性取值范围在0~64767，单位：为毫秒（0.001秒），表示计时间隔。若将Interval属性设置为0或负数，则计时器停止工作。缺省设置为0（2）Enabled属性设置为True，而且Interval属性值大于0，则计时器开始工（以Interval属性值为间隔，触发Timer事件）。设置为False可使时钟控件无效，即计时器停止工作。缺省设置为True第35页/共68页3方法

Timer控件没有方法。4事件

时钟控件只有Timer事件

当Enabled属性值为True且Interval属性值大于0时，该事件以Interval属性指定的时间间隔发生常常将需要定时执行的操作放在Timer事件过程中第36页/共68页计时器控件应用举例1.设计一个电子表【例4-13】在窗体上设计一个数字时钟，如图4-15所示。

图4-16建立界面与设置属性图4-15数字时钟第37页/共68页设计步骤如下：

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

(2)设置对象属性，

(3)编写程序代码。编写计时器控件Timer1的Timer事件代码：PrivateSubTimer1_Timer()Label1.Caption=Format(Time,Form1.Tag)Label2.Caption=IIf(Hour(Time)>12,"下午","上午")EndSub第38页/共68页编写命令按钮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

第39页/共68页2.设计一个计时器【例4-14】一个简单计时器。如图4-17所示。

图4-17简单计时器图4-18计时器的设计第40页/共68页设计步骤如下：

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

(2)编写程序代码。编写Command1（开始）的Click事件代码：PrivateSubCommand1_Click()IfCommand1.Caption="&S暂停"ThenCommand1.Caption="&C继续"Timer1.Enabled=FalseElseCommand1.Caption="&S暂停"IfLabel1.Caption="00:00:00:0"ThenForm1.Tag=TimerTimer1.Enabled=TrueEndIfEndSub第41页/共68页编写Command2（重置）的Click事件代码：PrivateSubCommand2_Click()Form1.Tag=TimerLabel1.Caption="00:00:00:0"EndSub

编写Timer1的Timer事件代码：PrivateSubTimer1_Timer()m=Timer–Form1.Tagn0=(m*10)Mod10m=Int(m)n1=Format(mMod60,"00.")n2=Format((m\60)Mod60,"00:")n3=Format(m\3600,"00:")Label1.Caption=n3&n2&n1&n0EndSub第42页/共68页3.设计一个流动字幕板【例4-15】为一个应用系统设计流动字幕板，如图4-19所示，标题“欲穷千里目，更上一层楼”在窗体中自右至左地反复移动。

图4-19电子标题板图4-20用户界面的设计第43页/共68页设计步骤如下：

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

(2)编写程序代码。编写命令按钮Command1的Click事件代码：PrivateSubCommand1_Click()IfCommand1.Caption="&S暂停"ThenCommand1.Caption="&C继续"Timer1.Enabled=FalseElseCommand1.Caption="&S暂停"Timer1.Enabled=TrueEndIfEndSub第44页/共68页编写Timer1的Timer事件代码：PrivateSubTimer1_Timer()IfLabel1.Left+Label1.Width>0ThenLabel1.MoveLabel1.Left–20ElseLabel1.Left=Form1.ScaleWidthEndIfEndSub第45页/共68页4.6提供简单选择的控件4.6.1选项按钮

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

0：LeftJustify(缺省设置)控件钮在左边，标题显示在右边。

1：—RightJustify控件钮在右边，标题显示在左边。（3）Value属性 True:单选钮被选定

False:单选钮未被选定（缺省设置）(4)Style属性

0--Standard：标准方式 1--Graphical：图形方式第46页/共68页3方法

SetFocus方法是单选钮控件最常用的方法，可以在代码中通过该方法将Value属性设置为True。与命令按钮相同，使用该方法之前，必须要保证单选钮处于可见和可用状态（即Visible与Enabled属性值均True）。4事件

Click事件是单选钮控件最基本的事件，一般情况用户无需为单选钮编写Click事件过程，因为当用户单击单选钮时，它会自动改变状态。第47页/共68页选项按钮组应用举例【例4-16】在例4-13中使用选项按钮组来选择时间的格式编写新增控件的事件代码。编写选项按钮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第48页/共68页例4-17】设银行定期存款年利率为：1年期2.25%，2年期2.43%，3年期2.70%，5年期2.88%（不计复利）。今有本金a元，5年以后使用，共有以下6种存法：l

存一次5年期。l

存一次3年期，一次2年期。l

存一次3年期，两次1年期。l

存两次2年期，一次1年期。l

存一次2年期，三次1年期。l

存五次1年期。分别计算各种存法5年后到期时的本息合计

第49页/共68页

编写命令按钮Command1的单击（Click）事件代码：PrivateSubCommand1_Click()DimaAsSingle,yAsSingleDimx1AsSingle,x2AsSingleDimx3AsSingle,x5AsSinglea=Val(Text1.Text)x1=0.0225:x2=0.0243x3=0.027:x5=0.0288SelectCaseTrueCaseOption1.Valuey=(1+5*x5)*a第50页/共68页CaseOption2.Valuey=(1+3*x3)*(1+2*x2)*aCaseOption3.Valuey=(1+3*x3)*(1+x1)^2*aCaseOption4.Valuey=(1+2*x2)^2*(1+x1)*aCaseOption5.Valuey=(1+2*x2)*(1+x1)^3*aCaseOption6.Valuey=(1+x1)^5*aEndSelect第51页/共68页Text2.Text=yText1.SetFocusEndSub

编写文本框Text1的GotFocus事件代码：PrivateSubText1_GotFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.Text)EndSub第52页/共68页图形选项按钮应用举例将选项按钮设计成图形按钮的形式【例4-18】用图形选项按钮组控制流动字幕中的字体，如图4-23所示。设计步骤如下：

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

(2)编写程序代码。依次编写选项按钮Option1～Option4的Click事件代码：PrivateSubOption1_Click()第53页/共68页Text1.FontName="宋体"EndSubPrivateSubOption2_Click()Text1.FontName="隶书"EndSubPrivateSubOption3_Click()Text1.FontName="黑体"EndSubPrivateSubOption4_Click()Text1.FontName="楷体_GB2312"EndSub第54页/共68页4.6.2复选框

1用途复选框（CheckBox）也称作检查框、选择框。一组复选框控件可以提供多个选项，它们彼此独立工作，所以用户可以同时选择任意多个选项，实现一种“不定项选择”的功能。选择某一选项后，该控件将显示√，而清除此选项后，√消失。检查框被选中第55页/共68页2.重要属性

Caption、Alignment、Style与单选钮相同复选框的Value属性与单选按钮不同，其值为数值型数据，可取0,1,2复选框与单选按钮Value属性的比较

检查框0--Unchecked：未被选定1--Checked：选定2--Grayed：灰色，禁止选择

单选钮True:单选钮被选定False:单选钮未被选定，缺省设置 第56页/共68页4事件

Click事件是检查框控件最基本的事件。用户一般无需为检查框编写Click事件过程，但其对Value属性值的改变遵循以下规则：单击未选中的检查框时，Value属性值变为1；单击已选中的检查框时，Value属性值变为0；单击变灰的检查框时，Value属性值变为0。第57页/共68页复选框应用举例1.使用单个复选框【例4-19】在上例中，增加复选框，控制选项按钮组的显示。增加复选框控件Check1的Click事件代码：PrivateSubCheck1_Click()Option1.Visible=Check1.ValueOption2.Visible=Check1.ValueOption3.Visible=Check1.ValueOption4.Visible=Check1.ValueEndSub第58页/共68页2.使用多个复选框

【例4-20】设计一个个人资料输入窗口，使用选项按钮组输入性别与民族，使用复选框输入个人爱好，如图4-25所示。.

图4-25使用多个复选框图4-26建立用户界面

第59页/共68页设计步骤如下：

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

(2)设置对象属性。

(3)编写程序代码。编写命令按钮Command1的Click事件代码：PrivateSubCommand1_Click()IfText1.Text=""Thena=InputBox("您忘了输入姓名！","注意","请在此输入姓名")Ifa=""Ora="请在此输入姓名"ThenExitSubText1.Text=aEndIf第60页/共68页p1=Text1.Text+"，"p2=IIf(Option1,"男","女")+"，"p3=IIf(Option3,"汉族","少数民族")p4="，喜欢："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第61页/共68页3.复选框的图形方式【例4-21】利用图形复选框来控制文本的字体风格，如图4-27所示。

设计步骤如下：

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

(2)设置对象属性。(3)编写代码。复选框控件Check1的Click事件代码：PrivateSubCheck1_Click()Check2.Enabled=Check1.ValueCheck3.Enabled=Check1.ValueCheck4.Enabled=Check1.ValueCheck1.Caption=IIf(Check4.Caption="锁上","打开","锁上")EndSub第62页/共68页复选框控件Check2的Click事件代码：PrivateSubCheck2_Click()Text1.FontBold=Check2.ValueEndSub

复选框控件Check3的Click事件代码：PrivateSubCheck3_Click()Text1.FontItalic=Check3.ValueEndSub

复选框控件Check4的Click事件代码：Priva