1、本网站免费注册后即可以下载，点击开通VIP会员可无限免费下载！
2、资料一般为word或PPT文档。建议使用IE9以上浏览器或360、谷歌、火狐浏览器浏览本站。
3、有任何下载问题，请联系微信客服。
扫描下方二维码，添加微信客服
教科版选修1 算法与程序设计《第一章 如何用计算机解决问题 1.1 计算机解决问题的过程 1.1.1 人是如何解决问题的》优秀教学课件
任务一：自主探究
同学们打开材料文件夹，鼠标左键双击打开程序“加密程
序.exe”，体验程序。
任务二：小试牛刀
用VB程序分析加密程序如何实现，那如何解密呢？
Private Sub Form_Load()
FileName$ = InputBox("请输入需要加密的文件名及路径：")
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"####加密已完成！！####"
end
End Sub
加密程序
Private Sub Form_Load()