4.2VB程序设计语言——编制计算机程序解决问题之二澄海中学蔡锐红privatesubform_click()xml1$="刘"xml2$="丽"dm1=ASC(xml1$)dm2=ASC(xml2$)Print("字符")print"机内代码是："printxml1$printdm1printxml2$printdm2endsubVB程序privatesubform_click()a=1b=2c=3d=a*b-cprint"最终结果是："&dendsub程序有哪些组成要素？•计算机语言有它的基本组成元素和书写规则。程序设计语言VB计算机程序通常包括常量变量:运算符:函数:表达式:语句:等基本元素。在程序中可以改变的量+、-、*、/……chr()、asc()、len()……如1+c+asc(“a”)赋值语句、输出语句等元素asc()：将字符转换为对应的机内代码（ASCII)chr()：将机内代码转换为对应的字符len()：求字符串的字符个数（长度）ASCII:（AmericanStandardCodeforInformationInterchang）是“美国标准信息交换标准码”的缩写。ASCII是将字符（数字、字母、特殊符号等）转换成机器能够识别的二进制数，并且每个字符只有唯一一个ASCII码(对照表）•计算机语言有它的基本组成元素和书写规则。程序设计语言VB计算机程序通常包括常量变量:运算符:函数:表达式:语句:等基本元素。在程序中可以改变的量+、-、*、/……chr()、asc()、len()……如1+c+asc(“a”)赋值语句、输出语句等刘丽妈妈的电子邮件如何加密？VB程序加密方法：CHR（ASC(字符）-10）例如：YOnd具体实现：1.ASC(字符）把字符转换为ASCII码2.ASC(字符）-10把ASCII码减掉10，得到新的编号3.CHR(ASC（字符）-10）把新编号转换为字符PrivateSubForm_Load()FileName$=InputBox(“请输入需要加密的文件名及路径:”)’信息输入提示框OpenFileName$ForInputAs#1’打开并读取文件，以#1文件号输入LineInput#1,yw$’打开文件（#1）的字符给变量yw$Close#1xw$=""n=Len(yw$)Fori=1Ton’循环语句，逐个字符读取yz$=Mid$(yw$,i,1)xz$=Chr(Asc(yz$)-10)’加密语句，改变每个字符的编号xw$=xw$&xz$’字符连接Next’加密完成OpenFileName$ForOutputAs#1Print#1,xw$Close#1MsgBox“###加密已完成！###”’信息输出框EndEndSub探究加密程序1.启动VB6.0，新建工程，体验加密程序的工作过程，对比加密前的文件（明文）和加密后的文件（密文）选作：参考加密程序，自行编制加密程序任务2.修改加密程序，使它变为解密程序，还原文件。作业：保存解密程序的工程，命名并上交工程文件vbp。命名：如101-01•PrivateSubForm_Load()•FileName$=InputBox(“请输入需要解密的文件名及路径:")•OpenFileName$ForInputAs#1’打开并读取文件，以#1文件号输入•LineInput#1,yw$’打开文件（#1）的字符给变量yw$•Close#1•xw$=""•n=Len(yw$)•Fori=1Ton’循环语句，逐个字符读取•yz$=Mid$(yw$,i,1)•xz$=Chr(Asc(yz$)+10)’加密语句，改变每个字符的编号•xw$=xw$&xz$’字符连接•Next’加密完成•OpenFileName$ForOutputAs#1•Print#1,xw$•Close#1•MsgBox“###解密已完成！###"•End•EndSub解密程序您理解了吗？还原文件了吗?谢谢！
