编制计算机程序解决问题_第1页
编制计算机程序解决问题_第2页
编制计算机程序解决问题_第3页
编制计算机程序解决问题_第4页
编制计算机程序解决问题_第5页
已阅读5页，还剩6页未读， 继续免费阅读

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

1、攸县第一中学攸县第一中学 信息技术组信息技术组体验程序的作用及其编制环境体验程序的作用及其编制环境 编制计算机程序来解决问题编制计算机程序来解决问题 菲菲有用电脑写日记的习惯，某天晚上她突然发现妈妈正在她电脑里看她写的日志其实菲菲不愿意把日记给妈妈看。 我们一起帮菲菲想想办法，解决她的苦恼。菲菲的苦恼菲菲的苦恼加密典例分析典例分析-学生活动学生活动说出你的心里话1、请同学们打开D:VB文件夹（目录）下：“pf.txt”记事本文件，写上一句想对同桌说的心里话。2、利用加密程序（D:VB加密.exe)给pf.txt文件加密。3、完成后同桌互换座位，打开文件，看看同桌对你说的心里话。注意事项：路径是

2、由盘符和文件夹组成，中间用“”隔开。 示例：D:VBpf.txt只对你说的心里话加密一次。 请你阅读教材P76-P77并完成学案，你就可以解密你同桌说的心里话了。质疑释疑 合作探究-解密程序检测效果检测效果-加密原理加密原理加密前的文件(明文）加密后的文件(密文）加密程序我函数转换机内码减去10新机内码函数转换稳加密的过程问：程序是如何对文件进行加密的？这段代码的作用就是把明文中每个字符的机内码进行某些运算得到新的机内码，再转换成相应的新字符这是核心程序的关键语句，它的作用就是将符号的机内码减10，变成一个新的编码，再将编码转换成相对应的新字符，形成密文，达到了加密的效果。Private Su

3、b Form_Load() FileName$ = InputBox(请输入请输入D盘中需要加密的文件名盘中需要加密的文件名:) Open FileName$ For Input As #1 Line Input #1, yw$ Close #1 xw$ = n = Len(yw$) For i = 1 To n yz$ = Mid$(yw$, i, 1) xz$ = Chr(Asc(yz$) - 10) xw$ = xw$ & xz$ Next Open FileName$ For Output As #1 Print #1, xw$ Close #1 MsgBox # 加密成功加密成功 # EndEnd Sub程序体验程序体验-我来解密我来解密体验步骤： 、打开程序开发软件、新建一个文件、双击窗体、将D:VB目录下的“加密源程序.txt”中的程序代码复制到中。、修改程序（认真动脑喽，同桌对你的悄悄话就会出现在你的眼前）。、生成文件，解密文件。、确认成功解密，提交作业。迁移训练迁移训练 拓展升华拓展升华、你、你认为加密还可以有其他方法

人人文库> 全部分类> 教育资料 > 课件下载

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论