活动三 使用多重选择语句实现活动二的程序.ppt

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

1、活动三使用多重选择语句实现活动二的程序活动二的程序中使用了三个If语句的嵌套来处理四种情况，如果再多几种情况，程序的可读性和效率都会比较差。VB中还提供了一种多重选择语句，利用它可以方便地实现上一程序。格式：SelectCase语句（多重选择语句）SelectCase表达式Case表达式范围1语句块1Case表达式范围2语句块2……Case表达式范围n语句块n[CaseElse语句块n+1]EndSelect说明：表达式的范围可有四种PrivateSubCommand1_Click()DimmAsSingle,pAsIntegerm=Val(Te

2、xt1.Text)SelectCasemCaseIs<200p=5Case200To499.99p=m*0.05Case500To999.99p=m*0.1CaseIs>=1000p=m*0.15EndSelectText2.Text=pEndSubSelectCase语句格式：SelectCase测试表达式[Case表达式1[语句1]][Case表达式2[语句2]]……[CaseElse[语句]]EndSelect说明：(1)测试表达式可以是变量、函数、数值表达式、字符串表达式或逻辑表达式。(2)Case子句中表达式的数据类型应与测试表达式的数

3、据类型一致。(3)Case子句中表达式的几种形式：①常数或表达式例：CaseTrue测试表达式的值等于True。②常数1（表达式1）To常数2（表达式2）例：Case1To5测试表达式的值在1到5范围内③Is比较运算表达式例：CaseIs>6测试表达式的值大于6的值。(4)Case子句中允许含有多个表达式，表达式间用逗号分隔。例：Case1To5,10To5,21,Is>MinCase"A","C"To"F",Name$(5)SelectCase语句允许嵌套。(6)SelectCase语句以EndSelect结束。SelectCase语句流程图：

4、SelectCase<表达式>Case①Case②NoCase③NoEndSelect的下个语句语句块4No（CaseElse）①②③为表达式取值范围，可以是：常量或常量列表如10，20值1To值2如30To50Is<比较符>常量如Is>50语句块1Yes语句块2Yes语句块3YesCase“表达式值”的几种形式:表达式值表示固定值，如Case1或Case3*5+7用逗号分隔的值表示几个固定值之一，如Case1,3,5表达式值1To值2表示上、下限范围，如Case2To4Is关系运算符值表示范围，如CaseIs>5