活动二用IF语句的嵌套实现多重选择结构.pptx

《活动二用IF语句的嵌套实现多重选择结构.pptx》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、选择结构算法与程序设计之——萍乡市福田中学易治中创设情境Ifyoudoexercisethenyouarehealthy.Ifyoudoexercisethenyouarehealthyelseyouwillweak.朗读并翻译：引入新课用IF语句实现简单选择结构某书城在进行促销活动，凡购书满200元，可以去服务台领取相当于购书金额10%的购书券，供下次购买，购书券最小面值1元。现需要为服务台的工作人员编写一个程序，计算每次发放购书券的金额。问题设m表示某人的购书金额，p表示需要发放的购书券金额。分析问题求解的条件是如果（　　　），则（）；否则（　）。分析问题m>=200p=

2、10%mP=00101开始输入购书金额mM>=200输出购书券金额p结束开始输入购书金额m开始M>=200输入购书金额m开始否是P=10%mP=0设计算法02实现应用程序→1）创建窗体03Label1Label2Text1Text2Command1程序代码PrivateSubCommand1_Click()DimmAs_____________DimpAs______________m=Val(Text1.Text)Ifm>=200Thenp=_____________Elsep=_____________EndIf______________EndSubSingleInte

3、germ*0.10Text2.Text=p实现应用程序→2）程序代码03运行程序0432532运行程序041250小结IF语句的格式1If条件Then语句块1Else语句块2EndIf功能当条件成立时，则执行语句块1，条件不成立时，执行Else分支下的语句块2。编写程序火车站寄存行李的收费标准是50千克以内（包括50千克）0.2元/千克，超过部分的收费标准为0.5元/千克。编写程序，根据输入的任意重量，计算出应付的行李费。01举一反三刚才那个程序还适用于生活中的哪些事例？02书城的促销活动方案进行了修改，购书未满200元的，赠送5元购书券；购书满200元但未满500元，赠送购

4、书券为消费金额的5%；购书满500元但未满1000元，赠送购书券金额为消费金额的10%；购书满1000元，赠送购书券金额为消费金额的15%。购书券最小面值1元。根据新的促销方案修改活动一的程序。用IF语句的嵌套实现多重选择结构问题01分析问题序号No.消费金额范围购书券金额计算情况1情况2情况3情况4写出不同的求解条件和相应的处理，完成上表。《促销活动方案表》01分析问题序号No.消费金额范围购书券金额计算情况1m<200p=5情况2200<=m<500p=m*0.05情况3500<=m<1000p=m*0.1情况4m>=1000p=m*0.15写出不同的求解条件和相应的处理

5、，完成上表。《促销活动方案表》设计算法02m<200p=5p=m*0.15是是是否否否流程图设计算法02m<200m<500m<1000p=5p=m*0.15p=m*0.05p=m*0.1是是是否否否流程图活动一的程序代码PrivateSubCommand1_Click()DimmAsSingle,pAsIntegerm=Val(Text1.Text)Ifm>=200Thenp=m*0.1Elsep=0EndIfText2.Text=pEndSub实现应用程序→修改活动一的程序代码03Ifm<200Thenp=5ElseIfm<500Thenp=m*0.05ElseIfm<1

6、000Thenp=m*0.1Elsep=m*0.15EndIfEndIfEndIf实现应用程序→修改活动一的程序代码03修改后的程序代码Ifm>=200Thenp=m*0.1Elsep=0EndIf运行程序04150520010运行程序0435518运行程序0450050运行程序0478378运行程序041000150运行程序041748262运行程序04小结IF语句的格式2If条件1ThenIf条件2Then语句块1Else语句块2EndIfElseIf条件3Then语句块3Else语句块4EndIfEndIf功能当条件1成立，且当条件2也成立时，则执行语句块1，否则执行语

7、句2；当条件1不成立，且当条件3成立时，执行语句块3，否则执行语句块4。使用多重选择语句实现活动二的程序活动二的程序中使用了三个If语句的嵌套来处理四种情况，如果再多几种情况，程序的可读性和效率都会比较差。VB中还提供了一种多重选择语句，利用它也可以方便地实现上一程序。阅读程序PrivateSubCommand1_Click()DimmAsSingle,pAsIntegerm=Val(Text1.Text)Ifm<200Thenp=5ElseIfm<500Thenp=m*0.05ElseIfm<1000