首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,已给出了所有控件(如图3.141所示)和部分程序。程序运行时,请按以下顺序操作: 1)单击“读入文件”按钮,把考生目录下的文件in5.dat中的内容读入内存并显示在上面的文本框(Text1)中;
在考生文件夹下有一个工程文件sjt5.vbp,已给出了所有控件(如图3.141所示)和部分程序。程序运行时,请按以下顺序操作: 1)单击“读入文件”按钮,把考生目录下的文件in5.dat中的内容读入内存并显示在上面的文本框(Text1)中;
admin
2017-09-22
59
问题
在考生文件夹下有一个工程文件sjt5.vbp,已给出了所有控件(如图3.141所示)和部分程序。程序运行时,请按以下顺序操作:
1)单击“读入文件”按钮,把考生目录下的文件in5.dat中的内容读入内存并显示在上面的文本框(Text1)中;
2)单击“加密”按钮,则可对Text1中的内容进行加密并显示在下面的文本框(Text2)中。
3)单击“存结果"按钮则把Text2中的内容存到out5.dat文件中。
加密规则:对于第奇数个字符,若是字母,则把它变为它后面的字符(若为“Z”则变为“A”),不是字母则不变;对于第偶数个字符,若是字母,则把它变为它前面的字符(若为“A”则变为“Z”),不是字母则不变。大小写字母都遵循此规则。例如:
若原有的字符是:AbbaZOHa-MnnKYzx
则加密后的字符是:BaczAFGb-NmojXaw
已经给出“存结果”按钮的Click事件过程和函数isletter,函数isletter(aAsString)判断变量a中是否为一个字母,若是则返回True,否则返回False,可以直接调用。
请编写“读入文件”按钮和“加密”按钮的Click事件过程,以实现上述功能。(in5.dat文件中只含英文单词和空格,不分段落和行)
注意:考生不得修改已经存在的程序,必须用“存结果"按钮存储加密结果,否则无成绩。最后,按原文件名把程序存盘。
选项
答案
步骤1:打开考生文件夹中的本题工程文件sjt5.vbp,在代码编辑窗口指定位置编写以下代码。参考代码: Private Sub Command1_Click() Open"in5.dat"For Input As 1 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=1 To Len(s) If isletter(Mid(s,i,1))=True Then If i MOd 2=0 Then 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" Else If 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:按
键运行程序,先单击“读入文件”按钮,接着单击“加密”按钮,然后单击“存结果”按钮保存结果,最后单击窗体右上角的关闭按钮结束程序。 步骤3:按要求将文件保存至考生文件夹中。
解析
分析题目可知,本题中“读入文件”命令按钮中首先使用For But方式打开文件,然后通过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/NjGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下程序用随机函数模拟掷骰子,统计掷50次骰子出现各点的次数。阅读该程序,并在【】和【】处填上正确的内容。PrivateSubCommand1_Click()Dimd(6)fori=1To50n=【】d(n)=【
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1Click()n=5f=1s=0Fori=1Tonf
阅读下列程序: PrivateSubCommand1_Click() DimiAsInteger,kAsInteger k=2 Fori=1To3 PrintH(k); Nexti EndSub Fu
滚动条控件中,用来设置鼠标单击滚动箭头时滚动条移动的大小的属性是_______。
一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Fomil中有语句PublicXAsInteger,在Model1中有语句PublicYAsInteger.则以下叙述中正确的是
以下程序计算自然数e的值,要求精确到1015,阅读下列程序。已知e的计算公式为:e=1+1/1!+1/2!+…+1/n!。请在【】和【】处填上正确内容。PrivateSubCommandl_Click()【】n=0:term
若有一个动态数组a有两个元素a(0)和a(1),现要令数组a有三个元素a(0)、a(1)和a(2),则应当使用【】语句。
如果准备读文件,打开顺序文件“text.dat”的正确语句是
设已经在菜单编辑器中设计了窗体的快捷菜单,某顶级菜单为al,且取消其"可见"属性。运行时,可以使快捷菜单的菜单项响应鼠标左键单击和右健单击的事件过程是
在窗体上画一个命令按钮Command1,然后编写如下程序:PrivateSubCommand1_Click()Dimarr()AsIntegerReDimarr(3)Fori=0To3al
随机试题
morphologicalrules
等离子弧有哪几种类型?
A.慢性浅表性胃炎B.十二指肠球部溃疡C.胃食管反流病D.胃癌E.胆汁反流性胃炎男性,60岁。反复发作上腹痛10年,伴烧灼样不适.口苦,口中反苦水。可诊断为
A.真菌感染B.过敏反应C.细菌感染D.病毒感染E.支原体感染引起急性出血性结膜炎的病因
《屋面工程质量验收规范》GB50207-2002涉及()等问题。
优先股与公司债的主要区别在于()。
1937—1945年抗日战争时期中国共产党建立了许多抗日根据地。下列属于中国共产党建立的抗日根据是()。①陕甘宁抗日根据地②晋察冀抗日根据地③晋绥抗日根据地④晋冀鲁豫抗日根据地⑤山东抗日根据地
设窗体上有一个Picturel图片框,要求在图片框中的指定位置(坐标为(500,300))输出“OK”,下面可以实现这一功能的事件过程是
将以下程序写成三目运算表达式是()。if(x
为考生文件夹下的CAO文件夹建立名为CAO2的快捷方式,存放在考生文件夹下的HUE文件夹下。
最新回复
(
0
)