Selectcase语句徐州市田家炳中学路景鹏【教学目标】1、让学生认识在什么情况下使用多重选择语句2、了解Selectcase语句格式3、理解多重选择语句中的表达式与表达式列表。4、培养学生的自主探究精神。【重点】Selectcase语句的执行过程【难点】使用Selectcase语句解决问题【教学内容】我们来看一下这样一个小程序（这是一个关于高考填报的小程序，如果分数高于330，可以填报本一，在330-300之间可以填报本二，300-180可以填报专科，180以下没有填报资格）这样一个小程序，如果用If语句来解决这个问题，请问用多个个If语句来完成。PrivateSubCommand1_Click()DimxAsIntegerx=Text1.TextIfx<180ThenLabel2.Caption="无法填报"ElseIfx>=180Andx<300ThenLabel2.Caption="可以填报专科"ElseIfx>=300Andx<330ThenLabel2.Caption="可以填报本二"ElseLabel2.Caption="可以填报本一"EndIfEndIfEndIfEndSub由于有if语句过多，造成了程序可读性差，经常会出现“Endif”配对错误或缺少“Endif”的情况，有没有更简单一点的语句来解决这个问题，尽是避免出现上面的错误？在VB语言中，设置了一个处理多种情况的语句，称为多重选择语句，它的基本格式为：SelectCase表达式Case表达式列表1语句组1Case表达式列表2语句组2…Caseelse语句组N+1Endselect其中（1）表达式和表达式列表可以是数值型或字符型，表达式列表还可以是多个用逗号分开的表达式。（2）表达式列表与表达式的类型必须相同。（3）表达式列表又称值域，它有如下三种形式：①表达式1，表达式2，……如：case1，3，5表示当“表达式”的值为1，3，5中的任何一个值时执行下面的语句②表达式1to表达式2如Case10to20即10到20之间的任何一个值时执行下面的语句③Is关系表达式如Caseis<=10表示小于或等于10时执行下面的语句多重选择语句的执行过程是：当表达式的值为表达式列表1时，执行语句组1；当表达式的值为表达式列表2时，执行语句组2；……当表达式的值为表达式列表N时，执行语句组N；当表达式的值不是上述值时，执行语句组N+1；有了多重选择语句，对于多种情况的选择问题，就可以利用它来解决。PrivateSubCommand1_Click()DimchengjiAsIntegerchengji=Val(Text1.Text)'输入成绩SelectCasechengjiCaseIs>=330Label2.Caption="可以报考本一"CaseIs>=300Label2.Caption="可以报考本二"CaseIs>=180Label2.Caption="可以报考专科"CaseElseLabel2.Caption="不可以报考"EndSelectEndSub练习：高中新课程实施中“学生成绩的评定”是按A、B、C、D4个等级来评定，但是试卷测试成绩是按百分制来计，于是规定百分制成绩与等级评定有下面的关系：60分以下为D，60分—74分为C，75分—84分为B，85分以上为A。要求每输入一个百分制测试成绩，请判断一下是属于哪一个等级。（用Selectcase语句实现)小结：1、对于多种情况的选择问题，我们可以利用多重选择语句来实现。2、多重选择语句的格式selectcase……endselect。3、“表达式”与“表达式列表”的类型必须一致及表达式列表的三种形式。4、多重选择语句的执行过程。
