- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
第 PAGE 页
《选择结构》教学设计
● 学习者剖析 本课教学对象是高二年级学生,他们思维活跃,具有一定逻辑思维与推理演绎能力,但归纳总结能力较弱。在前面课程中,学生已经掌握了VB常量、变量、表达式、Let语句、Print方法等基本知识,了解了程序设计一般过程,急切地想编写程序解决生活中更为复杂实际问题,但他们现有知识结构仅限于解决顺序结构问题,而且将实际问题转化为VB程序能力也有待提高。
● 学习内容剖析
本课是教育科学出版社出版《算法与程序设计》(选修)第二章“程序基本结构”中第三节第二部分内容。任何规范程序都可以分解为三种基本结构,即顺序结构、选择结构与循环结构,教材前一节介绍了顺序结构程序设计。选择结构是用于判断给定条件,并根据判断结果控制程序执行流程,它分为单分支、双分支及多分支选择结构,而不同分支结构有不同语法格式与适用场合。牢固掌握选择结构程序设计,是学习程序设计基本要求,是学会编写结构清晰、易读易懂程序前提。
● 教学目标
知识与技能目标:掌握选择结构基本格式,理解选择结构执行过程。
过程与方法目标:能根据问题建立合适、正确条件,利用选择结构解决实际问题。
情感态度与价值观目标:领悟选择结构思想,体验选择在生活中应用。
● 教学重点、难点
重点:选择结构基本格式,利用选择结构解决实际问题。
难点:选择结构嵌套。
● 教学策略
本课教学采用了案例模拟教学法。笔者通过呈现问题、观察代码、模仿尝试、归纳小结、问题解决、拓展应用、总结提升等课堂教学环节,设计了递进式学习活动。学生通过“比较两个数大小”“出租车计费器”“月饼促销”“计算三角形面积”“BMI等级判断”等程序完善,在解决一个个问题同时,层层深入地认识选择结构。学生在模仿中,通过对多个“个”尝试,找出“个”背后“类”规律性问题,归纳出选择结构一般格式,实现从“个”到“类”提升。这样设计有助于学生从整体上认识选择结构,并不断地向纵深发展。同时,真实问题情境能有效地激发学生学习兴趣,让他们积极思考、主动建构,获得程序设计成就感。
● 教学过程
1.代码呈现
运行上节课编写“计算两个数商”程序,代码如下:
Private Sub cmddiv_Click()
Dim x As Single 被除数
Dim y As Single 除数
Dim q As Single 商
x = Val(InputBox(?输入被除数:))
y = Val(InputBox(请输入除数:))
q = x / y
Print q
End Sub
学生运行上述程序,剖析程序漏洞:当除数为0时,程序提示出错,说明这样程序是不完善。实际上,在除数不为零情况下,学生才能计算它们商,否则应提示“除数为零”。
用VB程序来描述如下:
If y 0 Then
q = x / y
Print q
Else
Print 除数为零
End If
教师小结:根据条件判断结果,选择执行不同语句结构,称为选择结构。
设计意图:教师从上一节课顺序结构程序引入,让学生通过观察、剖析,发现其中If语句结构起着引导程序走向作用。这样设计使学生学习不是被动接受,而是一个以已有知识经验为基础主动建构过程。
2.模仿尝试
活动1:模仿上例完善程序,尝试解决下面两个问题。
①输入两个数x与y,比较它们大小,使x大于y。
Private Sub cmdxy_Click()
Dim x As Single,y As Single,t As Single
x = Val(InputBox(输入x值:))
y = Val(InputBox(输入y值:))
If _________ Then
t = x
x = y
y = t
End If
Print x值为:; x
Print y值为:; y
End Sub
②出租车计费程序,三公里以内(含)起步价9元,超出三公里部分每公里2.4元。
Private Sub cmdtaxi_Click()
Dim s As Single,y As Single
s = Val(InputBox(输入里程数:))
If s 3.归纳提升
选择结构根据条件判断结果控制程序走向,不同问题可能有不同条件判断,但If语句基本格式是固定。
单分支选择结构(如图1),代码如下:
If 条件 Then
语句块
End If
双分支选择结构
文档评论(0)