高中信息技术Select语句教案.docVIP

Select case语句 徐州市田家炳中学 路景鹏 【教学目标】1、让学生认识在什么情况下使用多重选择语句2、了解Select case格式3、理解多重选择语句中的表达式与表达式列表。4、培养学生的自主探究精神。【】Select case语句的执行过程 【】Select case语句解决问题 【】如果用If语句来解决这个问题，请问用个If语句来完成Private Sub Command1_Click() Dim x As Integer x = Text1.Text If 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 If End If End Sub 由于有if语句过多，造成了程序可读性差，经常会出现“End if”配对错误或缺少“End if”有没有更简单一点的语句来解决这个问题，尽是避免出现上面的错误？在VB语言中，设置了一个处理多种情况的语句，称为多重选择语句，它的基本格式为：Select Case 表达式Case 表达式列表1语句组1Case 表达式列表2语句组2…Case else语句组N+1End select如： case 1，3，5 表示当“表达式”的值为1，3，5中的任何一个值时执行下面的语句Case 10 to 20 即10到20之间的任何一个值时执行下面的语句Case is=10 表示小于或等于10时执行下面的语句 …… 当表达式的值为表达式列表N时，执行语句组N； 当表达式的值不是上述值时，执行语句组N+1； 有了多重选择语句，对于多种情况的选择问题，就可以利用它来解决。 Private Sub Command1_Click() Dim chengji As Integer chengji = Val(Text1.Text) 输入成绩 Select Case chengji Case Is = 330 Label2.Caption = 可以报考本一 Case Is = 300 Label2.Caption = 可以报考本二 Case Is = 180 Label2.Caption = 可以报考专科 Case Else Label2.Caption = 不可以报考 End Select End Sub 练习： 高中新课程实施中“学生成绩的评定”是按A、B、C、D 4个等级来评定，但是试卷测试成绩是按百分制来计，于是规定百分制成绩与等级评定有下面的关系：60分以下为D，60分—74分为C，75分—84分为B，85分以上为A。要求每输入一个百分制测试成绩，请判断一下是属于哪一个等级。（用Select case语句实现) 小结： 1、对于多种情况的选择问题，我们可以利用多重选择语句来实现。2、多重选择语句的格式select case …… end select。3、“表达式”与“表达式列表”的类型必须一致及表达式列表的三种形式。4、多重选择语句的执行过程。