1、本网站免费注册后即可以下载，点击开通VIP会员可无限免费下载！
2、资料一般为word或PPT文档。建议使用IE9以上浏览器或360、谷歌、火狐浏览器浏览本站。
3、有任何下载问题，请联系微信客服。
扫描下方二维码，添加微信客服
《3.2.2认识代码与调试运行》最新教案优质课下载
教学目标
知识与技能
复习计算机对文本信息的储存方式
初步掌握运用程序解决问题的过程（算法）
理解字符串函数、循环语句的运用
认识VB的编程环境
过程与方法
能理解、编写简单的程序，揭开程序设计的神秘面纱和畏惧感
初步理解计算机代码与算法的含义
情感态度价值观
体验计算机编程实例，形成严谨客观的解决问题作风
培养学生进一步学习程序设计的兴趣以及发现问题、解决问题的能力
重难点分析
教学重点：计算机储存信息的原理
加密算法的设计
体验程序代码的编写过程及实现功能
教学难点：加密算法的理解及运用，用vb编写出解密程序
教学过程
教学环节教师活动学生活动设计意图1、情境引入（5分钟）通过简述二战美日两国的密码战较量，欣赏电影《风语战士》美军运用加密语言呼叫远程炮火支援片段，播放视频，做相应同步解说观看视频理解信息加密的过程和意义2、教学过程（1）文本信息在计算机中的储存方式（5分钟）。讲解ascii码表，文本信息在计算机中的储存方式，复习ascii码表，了解字符和ascii码之间的转换，了解字符串函数的作用asc（）、chr（）、len（）、mid（）。认识ascii码表，了解文本信息在计算机中的储存方式，了解字符和ascii码之间的转换。解开计算机神秘的内部储存结构，了解了解字符和ascii码之间的转换3、教学过程（2）加密算法的设计，用程序实现文本信息加密（10分钟）讲解知识点：字符串函数asc（）、chr（）、len（）、mid（）的运用，运用枚举法，结合for循环语句获取明文中的每一个字符的ascii码值，改变字符的ascii码值，再把改变的ascii值通过chr（）函数转成密文。详细分析核心代码：miwen = miwen & Chr(Asc(Mid(mingwen, i, 1)) + 5)了解字符串函数、for循环语句的作用，理解枚举法，理解文本加密的程序实现过程。通过层层剖析，了解加密程序解决问题的基本思路和实现方法。4、教学过程（3）运用加密算法，编写解密程序（12分钟）运行加密程序，实现文本信息由明文转成密文，展示加密算法代码，创设情景：恐怖组织运用本算法向国内外恐怖组织发出10条密文，但被我们班截获了，把10条密文分配给10个学习小组，运用所学算法，根据加密程序代码，编写解密程序。各小组讨论解密程序的编写，开始编写程序，破译密文让学生亲手操作，加深对算法和编程过程的理解。5、教学过程（4）展示密文破译成果（2分钟）请各小组长汇报密文破译情况，让10条密文形成一个完整的恐怖预谋事件。最终制止恐怖袭击的发生！各小组依次汇报密文破译情况，让10条密文形成一个完整的恐怖预谋事件增强感染力！让密文破解过程深入人心。让学生充分感受成功的喜悦！6、教学过程（5）延伸拓展（探索更加复杂的加密方法）（5分钟）通过举例，暴露定值改变ascii码加密算法的弊端，要求学生根据加密原理，讨论更加严密的加密算法。并汇报讨论结果。各学习小组讨论加密算法，并汇报讨论结果。让学生拓展算法思维，活学活用。7、课堂总结，引出新课（1分钟）总结知识点，拓展程序与算法在信息时代中的地位，评价同学们的表现，提出号召，增强学生自信心，鼓励投入到更深层次的学习。新课内容《人工智能与机器人》，是对程序设计和算法思维的更高级运用。了解程序与算法在信息时代中的地位，了解新课内容增强学生自信心，激发学生进一步学习的兴趣和热情附：加密代码
Private Sub Command1_Click()
Dim x，y As Long
Dim mingwen，miwen As String
mingwen = Text1.Text
y=len（mingwen）
For x= 1 To y