八年级信息技术《第九讲 Select Case 语句》教案_信息技术第一册下教案

八年级信息技术《第九讲 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 作业：求分段函数的值