Selectcase语句

1、Select case语句 徐州市田家炳中学 路景鹏【教学目标】1、让学生认识在什么情况下使用多重选择语句2、了解Select case语句格式3、理解多重选择语句中的表达式与表达式列表。4、培养学生的自主探究精神。【重点】Select case语句的执行过程【难点】使用Select case语句解决问题【教学内容】我们来看一下这样一个小程序（这是一个关于高考填报的小程序，如果分数高于330，可以填报本一，在330-300之间可以填报本二，300-180可以填报专科，180以下没有填报资格）这样一个小程序，如果用If语句来解决这个问题，请问用多个个If语句来完成。Private Sub Com

2、mand1_Click()Dim x As Integerx = Text1.TextIf x < 180 Then Label2.Caption = "无法填报"Else If x >= 180 And x < 300 Then Label2.Caption = "可以填报专科" Else If x >= 300 And x < 330 Then Label2.Caption = "可以填报本二" Else Label2.Caption = "可以填报本一" End If End I

3、fEnd IfEnd Sub由于有if语句过多，造成了程序可读性差，经常会出现“End if”配对错误或缺少“End if”的情况，有没有更简单一点的语句来解决这个问题，尽是避免出现上面的错误？在VB语言中，设置了一个处理多种情况的语句，称为多重选择语句，它的基本格式为：Select Case 表达式Case 表达式列表1语句组1Case 表达式列表2语句组2Case else语句组N+1End select其中 （1）表达式和表达式列表可以是数值型或字符型，表达式列表还可以是多个用逗号分开的表达式。 （2） 表达式列表与表达式的类型必须相同。 （3） 表达式列表又称值域，它有如下三种形式：

4、表达式1，表达式2， 如： case 1，3，5 表示当“表达式”的值为1，3，5中的任何一个值时执行下面的语句 表达式1 to表达式2 如Case 10 to 20 即10到20之间的任何一个值时执行下面的语句 Is关系表达式 如Case is<=10 表示小于或等于10时执行下面的语句 多重选择语句的执行过程是： 当表达式的值为表达式列表1时，执行语句组1； 当表达式的值为表达式列表2时，执行语句组2； 当表达式的值为表达式列表N时，执行语句组N； 当表达式的值不是上述值时，执行语句组N+1； 有了多重选择语句，对于多种情况的选择问题，就可以利用它来解决。Private Sub Co

5、mmand1_Click()Dim chengji As Integerchengji = Val(Text1.Text) '输入成绩Select Case chengjiCase Is >= 330Label2.Caption = "可以报考本一"Case Is >= 300Label2.Caption = "可以报考本二"Case Is >= 180Label2.Caption = "可以报考专科"Case ElseLabel2.Caption = "不可以报考"End SelectEnd Sub练习：高中新课程实施中“学生成绩的评定”是按A、B、C、D 4个等级来评定，但是试卷测试成绩是按百分制来计，于是规定百分制成绩与等级评定有下面的关系：60分以下为D，60分74分为C，75分84分为B，85分以上为A。要求每输入一个百分制测试成绩，请判断一下是属于哪一个等级。（用Select case语句实现)小结：1、对于多种情况的选择问题，我们可以利用多重选择