admin 管理员组文章数量: 1086019
2024年3月27日发(作者：同步导出和异步导出)
多重选择语句的格式
教学重点：语法格式
教学难点：条件设置
教学场所：多媒体教室
教学课时：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 "您输入的是数字！"
Case Else
Print "您输入的是其它字符！"
End Select
例4、书本第47页实践（1）：阅读以下的程序，分别写出当F=1，2，3，4地程序运行的结果，说明程序
的功能，并上机验证。
f = InputBox("请输入1-4之间任意一个正整数！")
a = 2
b = 3
Select Case f
Case 1: c = a + b: d = "+"
Case 2: c = a - b: d = "-"
Case 3: c = a * b: d = "*"
Case 4: c = a / b: d = "/"
Case Else: End
End Select
Print a; d; b; "="; c
三、复习巩固
多重选择语句的格式，条件设置，表达式列表的三种表达方式。
四、作业
书本第47页的实践1；第49页练习（4）。
下节课上机房调试程序。
版权声明：本文标题：粤教版高中信息技术选修1 2 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1711484879a596426.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论