粤教版高中信息技术选修1 2.3.3 多重选择语句 教案

多重选择语句的格式 教学重点：语法格式 教学难点：条件设置 教学场所：多媒体教室 教学课时：1 学情分析：同学们已学习了算法、VB基础知识和IF语句，对条件语句中的条件分析有一定的理解和动手编程的能力。选修课目《算法与程序设计》内容多，学生零基础，一周一节课，学生学起来吃力。“先会算法、然后会编程，最后到机房上机调试程序”，这样的教学安排学生普通反映学习效率高。因此选择在多媒体教室上分析理论课。 一、复习导入 利用恩格尔系数，运用IF条件语句判断家庭生活水平的状况。 N=人均食品支出总额/人均个人消费支出总额×100% 如果运用IF语句则： Dim x As Single Dim y As Single Dim n As Single x = InputBox("请输入人均食品消费总额") y = InputBox("请输入人均个人消费支出总额") n = x / y Print "恩格尔系数："; n If n > 0.59 Then Print "贫困！" If 0.5 <= n And n <= 0.59 Then Print "温饱" If 0.4 <= n And n < 0.5 Then Print "小康" If 0.3 <= n And n < 0.4 Then Print "富裕" If n < 0.3 Then Print "特别富裕" 我们使用了5个IF语句来处理5种情况，这样的程序的可读性和效率方面都是比较差的，如果再多一些情况，它的缺陷就会暴露得更加明显。如何处理这个问题呢？ 二、新课 请同学们自主学习P46页的多重选择语句的格式。 Select case 表达式 Case 表达式列表1 语句组1 case表达式列表2 …… ［Case else 语句组N+1］ End select （1）自主学习后，教师提问： 1、数据类型有哪些？表达式与表达式列表只能是什么数据类型？ 2、表达式列表与表达式有什么关系？ 3、表达式与表达式列表的数据类型可以不一样吗？ 4、如何理解表达式列表的三种表现形式？ （2）select case多重选择语句的格式分析 1、表达式和表达式列表可以是数值型或字符型，表达式列表还可以是多个用逗号分开的表达式。 2、表达式列表又称为值域。 3、表达式列表与表达式类型必须相同。 4、表达式列表有如下三种形式： 1）表达式1，表达式2，…… 2）表达式1 to 表达式2。 3）IS 关系表达式。 例如： Case 1,3,5 表示表达式的值为1或3或5时，执行后面的语句组。 Case 10 to 20 表示当表达式的值在10到20之间时执行后面的语句组。 Case is >=10表示当表达式的值大于或等于10时执行后面的语句组。 例1：运用Select case 多重选择语句编写：运用恩格尔系数判断同学们家庭生活水平状况。 Dim x As Single Dim y As Single Dim n As Single x = InputBox("请输入个人食品消费总额") y = InputBox("请输入个人人均消费总额") n = x / y Select Case CInt(n * 100) Case Is > 59 Print "贫困" Case 50 To 59 Print "温饱" Case 40 To 49 Print "小康" Case 30 To 39 Print "富裕" Case Is < 30 Print "特别富裕" End Select 例2：任意输入一个月份，判断“是大月，31天”？“是小月，30天”？还是“闰年，2月29天，平年2月28天”？ Dim month As Integer Dim y as integer x = InputBox("请输入月份值") y = Year(date) '返回今天日期的年份 Select Case x Case 1, 3, 5, 7, 8, 10, 12 Print "大月，31天" Case 4, 6, 9, 11 Print "小月，30天" Case 2 If y Mod 4 = 0 And y Mod 100 <> 100 Or y Mod 400 = 0 Then Print "本年是闰年，二月29天" Else Print "平年，二月是28天" End If Case Else Msgbox”您输入的月份数字不对” End Select 例3、从键盘上任意输入一个字符判断它是大写字母、小写字母、数字还是其它字符？ Dim a As String a = InputBox("请输入键盘上任意一个字符") Select Case a Case "a" To "z" Print "您输入的是小字字母！" Case "A" To "Z" Print "您输入的是大字字母！" Case "0" To "9" Print "您输入的是数字 ... ...