1、1,4.1编制计算机程序解决问题,2,某位同学的日记片段：我的一天 清晨六点十分，伴随着准时而优美的闹钟铃声，我走出家门，踏上了去学校的公车，随着IC卡在打卡机上轻轻掠过，1元钱便不翼而飞了。第6节是语文阅读课，我来到图书馆，用鼠标在电脑上点了几下，我想要的书立刻就查询到了。放学了，我路过银行，来到柜员机前，对着触摸屏按了几下，两张百元大钞就到手了，我的新眼镜有着落了。回到家，我第一件事就是打开电脑登陆QQ，查看留言和邮件。,程序生活中,你能找出几处计算机程序的痕迹来呢？,3,计算机和程序的联系,程序由人（程序员）事先进行编写，再由计算机来执行！,4,案例时间保密行动,原邮件：GOOD,密邮件
2、：IQQF,5,实践活动优点大轰炸,请你在D盘创建文件1.txt ，写上你同桌的优点，保存文件。然后打开桌面上加密.exe程序，进行加密。,加密时的文件路径为：d:1.txt,注意：输入时，键盘为英文输入状态,加密后保存的文件路径还为：d:1.txt,6,解决问题的过程,原文：GOOD密文：IQQF,方法：把每个字符的ASCII码+2,用VB程序语言把算法转换为代码,在VB环境中输入代码，并运行,检测是否达到预期目的,7,探究加密程序,FileName1$ = InputBox(请输入需要加密的文件名及路径：) Open FileName1$ For Input As #1 Line Inpu
3、t #1, a$ MsgBox a$, , 加密前的文本内容 Close #1 mm$ = n = Len(a$) For i = 1 To n b$ = Mid$(a$, i, 1) c$ = Chr(Asc(b$) + 2) mm$ = mm$ & c$ Next MsgBox mm$, , 加密后的文本内容 FileName2$ = InputBox(请输入加密后的文件名及路径：) Open FileName2$ For Output As #2 Print #2, mm$ Close #2 End,解密,？,8,立即行动你来解密,同桌的同学调换一下座位，打开桌面上代码文件夹中的加密.frm修改程序，运行；对D盘中的文件1.txt 进行解密，看看你的同桌对你的赞美，保存为2.txt文件。,9,拓展行动你来画图,你能画出不一样的,？,描点画图,10,1认识计算机程序,体验计算机程序的运行。,2体验编制计算机程序解决问题的全过程,初步掌握用计算机程序解决问题的基本方法。,课堂小结,11,魔法时间,程序可以理解人们编写的语句集合。,12,展望,同学们若想学习如何设计算法和编写程序来实现你的各种想法，可以在高二的时候我们选修算法与程序设计课程中进行,
