首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,已给出了所有控件(如图3—141所示)和部分程序。程序运行时,请按以下顺序操作: 1)单击“读入文件”按钮,把考生目录下的文件in5.dat中的内容读入内存并显示在上面的文本框(Text1)中; 2)单击“加密
在考生文件夹下有一个工程文件sjt5.vbp,已给出了所有控件(如图3—141所示)和部分程序。程序运行时,请按以下顺序操作: 1)单击“读入文件”按钮,把考生目录下的文件in5.dat中的内容读入内存并显示在上面的文本框(Text1)中; 2)单击“加密
admin
2019-05-14
18
问题
在考生文件夹下有一个工程文件sjt5.vbp,已给出了所有控件(如图3—141所示)和部分程序。程序运行时,请按以下顺序操作:
1)单击“读入文件”按钮,把考生目录下的文件in5.dat中的内容读入内存并显示在上面的文本框(Text1)中;
2)单击“加密”按钮,则可对Text1中的内容进行加密并显示在下面的文本框(Text2)中。
3)单击“存结果”按钮则把Text2中的内容存到out5.dat文件中。
加密规则:对于第奇数个字符,若是字母,则把它变为它后面的字符(若为“Z”则变为“A”),不是字母则不变;对于第偶数个字符,若是字母,则把它变为它前面的字符(若为“A”则变为“Z”),不是字母则不变。大小写字母都遵循此规则。例如:
若原有的字符是:AbbaZGHa-MnnKYzx
则加密后的字符是:BaczAFGb-NmoiXaw
已经给出“存结果”按钮的Click事件过程和函数isletter,函数isletter(aAsString)判断变量a中是否为一个字母,若是则返回True,否则返回False,可以直接调用。
请编写“读入文件”按钮和“加密”按钮的Click事件过程,以实现上述功能。(in5.dat文件中只含英文单词和空格,不分段落和行)
注意:考生不得修改已经存在的程序,必须用“存结果”按钮存储加密结果,否则无成绩。最后,按原文件名把程序存盘。
选项
答案
步骤1:打开考生文件夹中的本题工程文件sjt5.vbp,在代码编辑窗口指定位置编写以下代码。 参考代码: Private Sub Command1_Click() Open"in5.dat"For Input As1 Line Input#1,s Close#1 Text1.Text=s End Sub Private Sub Command2_Click() Dim i As Integer,ss As String ss=" " For i=1To Len(s) If isletter(Mid(s,i,1))=True Then If i Mod2=0Then If Mid(s,i,1)="a"Then ss=ss&"z" ElseIf Mid(s,i,1)="A"Then ss=ss&"Z" Else ss=ss&Chr(Asc(Mid(s,i,1))-1) End If Else If Mid(s,i,1)="Z"Then ss=ss&"A" ElseIf Mid(s,i,1)="Z"Then ss=ss&"a" Else s=ss&Chr(Asc(Mid(s,i,1))+1) End If End If Else ss=ss&Mid(s,i,1) End If Next Text2.Text=ss End Sub 步骤2:按<F>键行程序,先单击“读入文件”按钮,接着单击“加密”按钮,然后单击“存结果”按钮保存结果,最后单击窗体右上角的关闭按钮结束程序。 步骤3:按要求将文件保存至考生文件夹中。
解析
分析题目可知,本题中“读入文件”命令按钮中首先使用For Input方式打开文件,然后通过Line Input#语句将打开文件中的数据读出到变量s中并且赋给文本框。
在“加密”按钮的单击事件中,利用For循环对字符串s进行遍历,依次取出s中的每一个字符;如果循环变量i的值为偶数,接下来就要判断取出的字符是不是字母,如果是字母则进行Chr(Asc(Mid(s,i,1))-1)的转换,但是要计意如果为字母“A”或者“a”要转换为“z”或者“z”。同理,如果循环变量的值为奇数,如果取出的宁符是字母,则进行Chr(Asc(Mid(s,i,1))+1)的转换,如果为字母“z”或者“z”要转换为“A”或者“a”。最后将转换得到的字母连接起来即得到结果。
转载请注明原文地址:https://kaotiyun.com/show/cHUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
阅读下面程序代码:PrivateSubCommand1_Click()DimtempAsIntegera=Array(2,7,4,10,0,1,8,5,3,9,6)Fori=7To4Step-1Forj=3Toi-1If
下面属于白盒测试方法的是
在名称为Form1,标题为“框架”的窗体上添加一个名称为:Frame1,且标题为空的框架。框架内含有两个单选按钮,名称分别为Opt1和Opt2,其标题分别为“字体”、“大小”。注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt1.vbp,窗体文件
在窗体上画一个Timer1计时器控件和一个Shape1形状控件,并编写如下程序PrivateSubForm_Load()Timer1.Interval=1000Timer1.Enabled=TmeEndSubPrivateSubTime
以下不可以作为“容器”的控件是
设有如下声明语句OptionBase1Dimarr(2,-1To5)AsInteger则数组arr中数组元素的个数是
编写如下程序:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=1:y=1Doy=x*yIfy>10ThenPrintx,yExitDoElsex=x+3En
窗体上有一个名称为Command1的命令按钮。要求编写程序,把文件n.txt的内容写到文件f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下:PrivateSubCommand1_Click()Open"c:\f1.txt"For
有下面程序代码:PrivateSubCommand1_Click()DimsignAsIntegersign=13a=1b=2Fork=1To5c=a+sign*ba=bb=cPrintc;sign=-signNe
随机试题
桑螵蛸和海螵蛸具有的共同功效是
A.进行消毒处理B.立即进行卫生处理、就近火化C.进行卫生处理后按照规定深埋D.在疾病预防控制机构的指导下,进行严格的消毒E.须依法实施消毒和无害化处置患甲类传染病、炭疽死亡的,应将尸体
错觉多见于
高渗性脱水补液应选择
关于单凝聚法制备微型胶囊下列哪种叙述是正确的
张某、李某、王某拟共同出资设立华昌有限责任公司(以下简称华昌公司),并共同制定了公司章程草案。该公司章程草案有关要点如下:(1)公司注册资本总额为600万元。各方出资数额、出资方式以及缴付出资的时间分别为:张某出资180万元,其中货币出资70万元、
19位员工参加某项赈灾捐款,每人的捐款数均为整数,小刘很快计算出他们的平均捐款数为36.45元,可惜百分位的数字有误,这19位员工的捐款总数可能为()元。
【2012甘肃NO.27】同经济体制的转型相比,道德规范的转型在时间上会有一定的__________,它需要更漫长的发育和形成过程,不能指望__________。填入画横线部分最恰当的一项是:
请根据题目要求,完成下列操作:在考生文件夹下,打开文档WORD2.DOCX,按照要求完成下列操作并以该文件名(WORD2.DOCX)保存文档。(1)按照文字分隔位置(逗号)将文中后9行文字转换为一个9行5列的表格;设置表格样式为“浅色网格一强
【S1】【S3】
最新回复
(
0
)