VB语言之选择结构 第三节

第三节选择结构

(selectionstructure)算法与程序设计之会同一中

学习内容1、用if语句实现简单选择结构2、用if语句的嵌套实现多重选择结构3、使用多重选择语句实现活动二的程序用if语句实现简单选择结构

问题：某书城在进行促销活动，凡购书满200元，可以去服务台领取相当于购书金额10%的购书券，供下次购书使用，购书券最小面值1元。现需要为服务台的工作人员编写一个程序，计算每次发放购书券的金额。1、分析问题设m表示某人的购书金额，p表示需要发放的购书券金额。求解的条件是如果则，否则

m>=200P=10%P=0活动一2、设计算法，依据问题分析，将流程图补充完整(下页)书店促销活动方案---------程序流程图开始结束m>=200是否输入购书金额m输出购书券金额p赠送购书券=？不送赠品=02、设计算法常用的If语句（三种形式）If语句是几乎所有的高级编程语言中普遍使用的选择结构语句，程序可以通过If语句来完成对条件的判断、选择。（1）简单If语句格式：If条件Then语句块EndIf简单If语句只包含一个分支，如果条件成立，则执行Then下面的语句块；如果条件不成立，就什么都不执行。（2）If/Then/Else语句格式：If条件Then语句块1Else语句块2EndIfIf/Then/Else语句包含两个分支，当条件成立时，执行Then分支后面的语句块1；当条件不成立时，执行Else分支后面的语句块2.（3）If语句的嵌套是指在一个If语句中又包含一个或多个If语句。编写程序代码PrivateSubCommand1_Click()DimmAsDimpAsm=Val(Text1.Text)Ifm>=200Thenp=Elsep=EndIfEndSubSingleIntegerm*0.10Text2.Text=p注：m为购书的金额注：p为送的购书券将赠送购书券的值传给TEXT2文本框内送多少购书券不送购书券活动二：新的促销方案消费金额范围购书券金额计算情况1m<200p=5情况2情况3情况4200<m<500500<m<1000p=m*0.1p=m*0.15m>=1000p=m*0.2开始结束m<200是输入购书金额m否否否是是p=5p=m*0.2输出p200<m<500p=m*0.1500<m<1000p=m*0.15程序代码（用IF语句的嵌套实现多重选择）PrivateSubCommand1_Click()DimmAsSingleDimpAsIntegerm=Val(Text1.Text)Ifm<200Thenp=5ElseIfm>=200Andm<500Thenp=m*0.1ElseIfm>=500Andm<1000Thenp=m*0.15Elsep=m*0.2EndIfEndIfEndIfText2.Text=pEndSub该程序使用了3个IF语句嵌套来处理四种情况，如果再多几种情况，程序的可读性和效率都会比较差。VB中还提供了一种多重选择语句(selectcase)，利用它可以方便地实现同一程序。使用多重选择语句实现活动二的程序活动二的程序中使用了三个If语句的嵌套来处理四种情况，如果再多几种情况，程序的可读性和效率都会比较差。VB中还提供了一种多重选择语句，利用它可以方便地实现上一程序。在VB中，设置了一个处理多重情况的语句，即多重选择语句。多重选择语句的执行过程是：当表达式的值满足某Case语句的表达式范围，则执行该语句后的语句组。例如，本程序中当m<200时，执行p=5；当200<=m<=499.99时，执行p=m*0.1，当500<=m<=999.99时，执行p=m*0.15，当m>=1000时，执行p=m*0.2

。活动三编写程序代码（selectcase语句）PrivateSubCommand1_Click()DimmAsSingleDimpAsIntegerm=Val(Text1.Text)SelectCasemCaseIs<200p=5Case200To499.99p=m*0.1Case500To999.99p=m*0.15CaseIs>=1000p=m*0.2EndSelectText2.Text=pEndSub对比，哪个程序语句少，效率高？PrivateSubCommand1_Click()DimmAsSingleDimpAsIntegerm=Val(Text1.Text)SelectCasemCaseIs<200p=5Case200To499.99p=m*0.1Case500To999.99p=m*0.15CaseIs>1000p=m*0.2EndSelectText2.Text=pEndSubIF语句selectcase语句√PrivateSubCommand1_Click()DimmAsSingleDimpAsIntegerm=Val(Text1.Text)Ifm<200Thenp=5ElseIfm>=200Andm<500Thenp=m*0.1ElseIfm>=500Andm<1000Thenp=m*0.15Elsep=m*0.2EndIfEndIfEndIfText2.Text=pEndSub学生成绩分等级(5:ABCDF)成绩（score）等级（grade）case1S>=90Acase280=<S<89.9Bcase370=<S<79.9Ccase460=<S<69.9Dcase5S<60F程序代码如下PrivateSubCommand1_Click()DimsAsSingleDimgAsStrings=Val(Text1.Text)SelectCasesCaseIs>=90g="A"Case80To89.9g="B"Case70To79.9g="C"Case60To69.9g="D"CaseIs<60g="F"EndSelectText2.Text=gEndSubPrivateSubCommand1_Click()DimsAsSingleDimgAsStrings=Val(Text1.Text)SelectCasesCaseIs>=90g="A"Case80To89.9g="B"Case70To79.9g="C"Case60To69.9g="D"Case0To59.9g="F"CaseElseg="数据错误"EndSelectText2.Text=gEndSub初级的程序完善的程序布置作业练习1：火车站寄存行李的收费标准是50千克以内（包括50千克）0.2元/千克，超过部分收费标准为0.5元/千克。编写程序，根据输入的任意重量计算应付的行李费。程序代码如下，窗体内容自已修改PrivateSubCommand1_Click()DimmAsSingleDimpAsIntegerm=Val(Text1.Text)Ifm<=50Thenp=m*0.2Elsep=50*0.2+(m-50)*0.5EndIfText2.Text=pEndSub练习3、

给定三角形的三条边长，计算三角形的面积提示：首先判断给出三条边能否构成三角形（三角形的两边之和大于第三边），如可以，则计算面积，否则输出“不能构成三角形”。设三角形三边为a、b、c，q=，则面积S=求平方根数学函数：Sqr(x)可能出现的

种情况两练习3程序代码PrivateSubCommand1_Click()DimaAsSingleDimbAsSingleDimcAsSingleDimqAsSingleDimSAsStringa=Text1.Textb=Text2.Textc=Text3.TextIfa+b>cAnda+c>bAndb+c>aThenq=(a+b+c)/2S=Sqr(q*(q-a)*(q-b)*(q-c))ElseS="不能构成三角形"EndIfText4.Text=SEndSub面积S为何要定义成字条符形变量？

And为逻辑运算符练习4:编写一个判断某年是否为闰年的程序提示：判断某年是否为闰年的方法---如果该年的数值能被4整除但不能被100整除，或者能被400整除则该年份是闰年。老百姓常说的,四年一闰,百年不闰,四百年再闰程序