同学们，开动脑筋，用我们己经学过的知识帮助班长解决问题？1.1 人是如何解决问题的阜阳市城郊中学 李广洲微课解疑1 、展示课前学习测试题结果2 、疑问解析 任务一：自主探究 同学们打开材料文件夹，鼠标左键双击打开程序“加密程序 .exe” ，体验程序。 任务二：小试牛刀 用 VB 程序分析加密程序如何实现，那如何解密呢？ Private Sub Form_Load()FileName$ = InputBox(" 请输入需要加密的文件名及路径： ")Open FileName$ For Input As #1Line Input #1, yw$Close #1xw$ = ""n = Len(yw$)For i = 1 To nyz$ = Mid$(yw$, i, 1)xz$ = Chr(Asc(yz$) - 10)xw$ = xw$ & xz$NextOpen FileName$ For output As #1Print #1, xw$Close #1msgbox"#### 加密已完成！！ ####"endEnd Sub加密程序Private Sub Form_Load()FileName$ = InputBox(“ 请输入需要解密的文件名及路径： ")Open FileName$ For Input As #1Line Input #1, yw$Close #1xw$ = ""n = Len(yw$)For i = 1 To nyz$ = Mid$(yw$, i, 1)xz$ = Chr(Asc(yz$) +10)xw$ = xw$ & xz$NextOpen FileName$ For output As #1Print #1, xw$Close #1msgbox“#### 解密已完成！！ ####"endEnd Sub解密程序
