第九讲 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 作业：求分段函数的值
