电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

4.1.3认识程序中的基本元素-(2)VIP免费

4.1.3认识程序中的基本元素-(2)_第1页
1/11
4.1.3认识程序中的基本元素-(2)_第2页
2/11
4.1.3认识程序中的基本元素-(2)_第3页
3/11
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解密程序您理解了吗?还原文件了吗?谢谢!

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

4.1.3认识程序中的基本元素-(2)

您可能关注的文档

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部