体验程序的作用及其编制环境

4．1编制计算机程序解决问题（第一课时）
——体验程序的作用及其编制环境

一、基本说明
教学内容
1）教学内容所属模块：信息技术基础（必修）
2）年级： 高一
3）所用教材出版单位：广东教育出版社
4）所属的章节： 第四章第一节
5）学时数： 45 分钟

二、教学设计
1、教学目标：
(1)理解计算机程序的概念，体验程序的作用，初步树立利用计算机程序解决问题的基本思想。
(2)认识高级语言（VB）编程环境，能运行简单的程序，揭开程序设计的神秘感和畏难心理,培养学生进一步学习程序设计的兴趣和发现问题、解决问题的能力。
(3)体验简单的计算机程序编制实例，感悟计算机程序设计的思想，增加学生的学习成就感和形成严谨客观的解决问题作风。
2、内容分析：
(1)地位与作用
①、和通用工具一样，编程也是信息处理的基本方法，所以本章内容与第三章内容紧密相联，共同构成信息加工、表达与交流的完整体系。也与选修模块《算法与程序设计》接轨，属于基础部分。本章的第一节具体教学目标是：使学生了解程序的执行过程，并认识程序设计的基本流程。而作为本节的第一课时，本课主要通过体验计算机程序的作用及其编制环境，初步树立利用计算机程序解决问题的基本思想，并逐步了解计算机程序的工作过程，激发学生对程序设计的兴趣。
②、本节是对用计算机程序解决问题的入门介绍，是选修模块《算法与程序设计》的概述和引子。因此，能否通过本节课学习来激发学生对计算机程序设计的兴趣，将直接关系到选修模块《算法与程序设计》的顺利开设。
(2)重点分析
体验程序的作用及其编制环境，激发学生对程序设计的兴趣。
(3)难点分析
程序的编制环境，VB的初步使用
3、学情分析：
(1)高一新生来自不同的初中学校，他们的信息技术学习经历不同，信息素养和动手操作能力也不同。这节课之前学生已学完了前三章，已具备一定的计算机使用经验。但学生对程序设计普遍陌生，对自己编程来解决问题，既感觉新奇有趣，又有一定的技术难度。同时高一学生已具备一定的逻辑推理能力和相关的数学知识，对用计算机程序解决问题的初步了解不会觉得十分困难。
(2)本节是程序设计入门的第一课，是选修模块《算法与程序设计》概述和引子，同时编程又相当枯燥，因此创设情景，激发学生的兴趣，调动学生的主动性、积极性尤其重要。学生不可能用一节课的时间对编程掌握多少，但让他们在体验中理解信息的编程加工，并通过简单的改进实现小小的目标，有成功的体验是完全能够达到的。
4、设计思路：
1．教学方法设计
本课设计旨在消除程序的神秘感、让学生体验程序的“平易近人”，体验程序的编制环境，为选修《算法与程序设计》打基础。为此，选择了学生感兴趣的游戏以及个人日记加密、解密等与学生息息相关的事例为引子，激起学生兴趣，同时结合教材，引导学生自主学习、在互相的交流讨论中，探究完成初次对VB环境的一次试旅。
2．关于教-学流程和教学活动的设计思路
（1）教—学流程：程序体验—引入问题
程序分析—认识问题
程序编写—解决问题
交流与评价—提高能力
（2）设计思路：
首先以“汉诺塔”游戏进行分组比赛（同学之间比），再与电脑比，让学生体验到程序的作用；其后给学生一段加密的文字（“如果你的日记写成这样，就不用担心被人‘偷窥’了”），同时给出解密程序源代码的文本文件，请同学们结合教材、自主探究VB环境，编制出VB解密程序后再运行去看加密文件（文件内容清晰展现）；解释程序基本思路，请同学们对解密程序“改装”成加密程序，并写给老师一段话加密后上交（同学们担心老师看不懂，老师当堂演示用“穷举法”编译的解密程序阅读学生作业，从而更激发学生的兴趣）。

三、教学过程描述

教学阶段及所用时间 教师活动 学生活动 对学生学习过程的观察和考查及设计意图
导入 （游戏） 4’ 引入汉诺塔游戏，介绍游戏规则。 将全班分成两个组，玩游戏竞赛。 记下时间与步骤 一组同学移动三个盘子的； 另一组同学移动四个盘子的。 以玩游戏竞赛的方式激发学生兴趣 记下时间与步骤以利于接下来的人与电脑的比较
基本部分（一） 6’ 让电脑玩游戏（3个、4个、5个……），进行比较（时间与步骤），让学生体验程序的作用 引导学生谈体会（程序的作用） 体验程序的作用 谈谈感受到的程序的作用 通过比较学生对程序的作用深有感触，基本能总结出程序的作用
基本部分（二） 5’ 结合生活实例（日记、信件等个人隐私），引入文件保密问题。 演示：用解密程序（exe文件）读取加密了的文本文件(mm1.txt) 观察、思考 与生活实际相结合，激发学生兴趣，通过简单剖析基本了解“解密程序”解决问题的基本思路
剖析解密程序：关键语句 c$ = Chr(Asc(b$) + 10)，同时介绍机内码、机器语言、高级语言等概念 理解程序执行过程
15’ 通过自己编制解密程序了解VB界面及编制环境 提供解密源代码（解密01.txt） 二人分组，自己从“程序”中打开 Visual Basic 试编制一个解密程序（源代码从d盘下的“解密01.txt中获取）并存盘，试将你d盘下的mm２.txt解密。 源代码不需要学生写，只需复制即可，通过编译运行，就可以看到老师写的一段话，提升学生的参与积极性，同时体验了VB的界面及编制环境 编制过程采用结合教材、自主探究式学习，提高学生的知识迁移能力和探究学习能力
2’ 学生演示：教师在旁进行提炼，梳理VB环境及其编制过程 由一名学生演示，其它同学对比自己的学习过程小结
8’ 修改解密程序，将其改为加密程序，并利用它向教师上传一个已加密的文本文件 改写程序，并递交一份“给老师的话”为主题的加密后的文本文件（分组完成） 小组协作能力，良好的信息道德，体验成就感
3’ 从学生上交的加密文件中抽取解密（注意机内码的数字变换），演示解密（破译）过程 （教师事先准备一个破译程序，可穷举解读学生的文件） 观察、体会、参与 思考解决问题时的创新性、严密性、安全性 让学生体会到程序的通用性，可修改性、可破译性
巩固拓展练习 给出Sin函数曲线程序,通过改进，画出函数y=2X2+5X+1的曲线图 试着改写程序 提高探究学习能力，体验成就感，注意程序的通用性
小结 2’ 程序的作用： VB的编制环境及过程

四、教学反思
1、 本课以学生较为感兴趣的游戏入手，较好的激发了学生的兴趣，让人与人比较、人与电脑程序比较，学生能非常感性的认识到程序的作用。
2、 由于VB环境介绍一定要亲身经历才有感性认识，以加密、解密来保护个人隐私也是学生试编程序的动力。为了提高学生的兴趣，先让学生解密，再去实现加密，取得了较好的效果，通过本课的学习，学生基本熟悉了VB的环境，消除了对程序的神秘感，并对编程产生了一定的兴趣。
3、 学生存在差异，部分学生在对解密程序进行“改装”成加密程序时，由于未能真正领会程序解决问题的基本思路，此过程遇到疑难，导致一知半解。

附一：部分学生上交的写给老师的话
（用程序解读时出现误差，个别字解读时出误，敬请谅解。“偏移值”为学生加密程序中所用ASC码偏移值）
驯虾邢犀计 传控持扁需遗6掇驯 琳届雕霓6拭油雕霓于烘待滴谤 8驯滴执世凿 圾众哉油烘鬼纺8
-10－> 偏移值--------------------------------------------------
学习信息技55础课程必修一,对学5了解电脑,使用电脑有很大的帮5.学的知识在5活中运用很广泛.

邢犀计 恃遗孟费抄士油滴驯啃…诬烘霞焕６档恃咀恃才痰浑油…
-10－> 偏移值--------------------------------------------------
信息技5是一门非常实用的学科。我很喜欢，但是就是不太会用。

铱才掖财滞痰蛾６韧诬醚于蛾淀滴驶碱 淀祁 滴侍求××××××
-10－> 偏移值--------------------------------------------------
5业不要布置太多，让我们有多点的时间点其5的事情

吻娟蹈兆疵弟纳雀吻褱恢晾貉墩?
+11－> 偏移值--------------------------------------------------
我觉得这次电脑让我学会了很多。

檄 蕾拾蛾街诬醚遗谐魄抄油夹隧 滴蝎计怯６稽届代矣嫩…
-10－> 偏移值--------------------------------------------------
希5老师多教我们一些平常用计算5的小技巧，或解答疑难。

毋喉厦磺跌腻＝导毋 翟涸栏拟嫡1〈
-17－> 偏移值--------------------------------------------------
我很喜欢电脑，但我.得好困难的 。

邢犀计 恃遗孟费抄士油滴驯啃…诬烘霞焕６档恃咀恃才痰浑油…
-10－> 偏移值--------------------------------------------------
信息技5是一门非常实用的学科。我很喜欢，但是就是不太会用。Private Sub Form_Load()
FileName1$ = InputBox("请输入D盘中需要解密的文件名：")
p$ = FileName1$
FileName1$ = "d:\" + FileName1$ + ".txt"
Open FileName1$ For Input As #1
Line Input #1, a$
Close #1
mm$ = ""
n = Len(a$)
For i = 1 To n
b$ = Mid$(a$, i, 1)
c$ = Chr(Asc(b$) + 10)
mm$ = mm$ & c$
Next
FileName2$ = "已解密" + p$
K$ = FileName2$
FileName2$ = "d:\" + FileName2$ + ".txt"
Open FileName2$ For Output As #2
Print #2, mm$
Close #2
xxzz = MsgBox("信息处理完毕，程序退出,请到Ｄ盘查看 " + K$ + " 文件 ", , "提示：")
End
End Sub