八年级信息技术《第九讲 Select Case 语句》教案由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“信息技术第一册下教案”。
第九讲 Select Case 语句
End Select 功能：根据“测试表达式”的值，选择第一个符合条件的语句块执行。
Select Case语句的执行过程是：先求“测试表达式”的值，然后顺序测试该值符合哪一个Case子句中情况，如果找到了，则执行该Case子句下面的语句块，然后执行End Select下面的语句；如果没找到，则执行Case Else下面的语句块，然后执行End Select下面的语句。说明：
· · · “测试表达式”可以是数值表达式或字符表达式； · · · “表达式列表”形式有以下3种：（1）一个表达式或用逗号隔开的若干表达式 select case val(t1.text)
case 1,3,5
L1.caption=”这是奇数”
case 2,4,6
L1.caption=”这是偶数” end select（2）表达式1 To 表达式2 select case t1.text
case 1 to 9
L1.caption =”此数是在1到10的范围内”
case “A”
to “Z”
L1.caption =”请输入数字” end select（3）Is 关系运算符 表达式 select case val(t1.text)
case is>=30
L1.caption =”此数的范围大于30”
case is>=20
L1.caption =”此数的范围大于20”
case is>=10
L1.caption =”此数的范围大于10” end select 【例】输入一个学生的一门课分数x（百分制），当x≥90时，输出“优秀”；当80≤x＜90 时，输出“良好”；当 70≤x＜80 时，输出“中”；当60≤x＜70 时，输出“及格”，当 x＜60 时，输出“不及格”。(1)界面设计
(2)代码设计
Private Sub Command1_Click（）
Dim score!
score = val(Text1.Text)
Select Case score
Case Is >= 90
Text2.Text = “优秀”
Case Is >= 80
Text2.Text = “良好”
Case Is >= 70
Text2.Text = “中”
Case Is >= 60
Text2.Text = “及格”
Case Else
Text2.Text = “不及格”
End Select
End Sub 作业：求分段函数的值
