4.1的2体验程序的作用及其编制环境.pptx

第四章信息的加工与表达(下); 我们已经有过很多使用程序的经验，但平常接触到的仅仅是程序提供给用户的界面，程序本身长什么样子，有些什么内容我们往往是看不到的。VB是目前使用较多的程序设计语言之一，下面让我们通过在VB中输入一段应用程序并执行该程序，在体验程序作用的同时体验一下程序的编制环境。;任务一、利用加密程序给文件加密;用VB软件编写加密(解密)程序;☆（3）输入程序。单击工程资源管理器中窗体文件及“查看代码”按钮，打开窗体代码窗口，在代码窗口的左上方的对象框中选择Form，右边选择Load，在Private?Sub?Form_Load()与End?Sub之间输入代码，代码如下：;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 # # # # 加密已完成!# # # # End End Sub;☆（4）运行程序。单击工具栏上的启动按钮运行程序，在弹出的对话框中输入待加密文件的文件名及路径，如“D:\vb\tj.txt”，然后按“确定”按钮，弹出“加密已完成”的信息框，说明文件加密成功（你可以去打开文件看看文本内容变成了什么） ,单击“确定”结束程序，如下图所示：;☆（5）保存程序。单击“文件”菜单，选择“保存Form1”，把文件命名为“加密001.frm”。 ☆（6）修改程序。解密程序的编写步骤与加密程序编写差不多，只是代码不同，写好后以“解密001.frm”为文件名保存。;☆（7）运行解密程序，输入待解密的文件名及路径，单击确定，显示解密完成后，文本文件就解密成功。打开文本文件查看解密结果。 ☆（8）生成exe文件。分别打开“加密001.frm”和“解密001.frm”，单击“文件”菜单，选择“生成工程.exe”，生成“加密001.exe”和“解密001.exe”文件，直接双击运行，查看运行结果。;