.的体验程序的作用及其编制环境PPT课件

1、第四章信息的加工与表达(下),第一节编制计算机程序解决问题,曾都二中 张开鹏,1,.,我们已经有过很多使用程序的经验，但平常接触到的仅仅是程序提供给用户的界面，程序本身长什么样子，有些什么内容我们往往是看不到的。VB是目前使用较多的程序设计语言之一，下面让我们通过在VB中输入一段应用程序并执行该程序，在体验程序作用的同时体验一下程序的编制环境。,4.1.2 体验程序的作用及编制环境,2,.,任务一、利用加密程序给文件加密,任务二：利用加密还原程序，解密一个加密文件！,从刚才运行的加密程序可以看出，加密程序能对文本文件中的字符进行变换，使原来可以阅读的的字符 明文，变成其他读不明白的字符 密文，

2、解密程序则可以把密文恢复为原文，如图所示。,3,.,用VB软件编写加密(解密)程序,（1）准备好一份文本格式的待加密文件。可用文字处理软件如“记事本”输入一段你认为有意义的文字并保存为文本文件，也可以复制一份现成的文件。 （2）新建一个VB工程。启动VB程序，在“新建工程”对话框中双击“标准EXE”，打开VB工作界面，如下图所示。,4,.,5,.,6,.,（3）输入程序。单击工程资源管理器中窗体文件及“查看代码”按钮，打开窗体代码窗口，在代码窗口的左上方的对象框中选择Form，右边选择Load，在PrivateSubForm_Load()与EndSub之间输入代码，代码如下：,7,.,8,.,

3、Private Sub form_click() 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 # # # # 加密已完成!#

4、 # # # End End Sub,9,.,10,.,（4）运行程序。单击工具栏上的启动按钮运行程序，在弹出的对话框中输入待加密文件的文件名及路径，如“D:vbtj.txt”，然后按“确定”按钮，弹出“加密已完成”的信息框，说明文件加密成功（你可以去打开文件看看文本内容变成了什么） ,单击“确定”结束程序，如下图所示：,11,.,12,.,（5）保存程序。单击“文件”菜单，选择“保存Form1”，把文件命名为“加密001.frm”。 （6）修改程序。解密程序的编写步骤与加密程序编写差不多，只是代码不同，写好后以“解密001.frm”为文件名保存。,13,.,（7）运行解密程序，输入待解密的文件名及路径，单击确定，显示解密完成后，文本文件就解密成功。打开文本文件查看解密结果。 （8）生成exe文件。分别打开“加密001.frm”和“解密001.frm”，单击“文件”菜