首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,已给出了所有控件(如图3—141所示)和部分程序。程序运行时,请按以下顺序操作: 1)单击“读入文件”按钮,把考生目录下的文件in5.dat中的内容读入内存并显示在上面的文本框(Text1)中; 2)单击“加密
在考生文件夹下有一个工程文件sjt5.vbp,已给出了所有控件(如图3—141所示)和部分程序。程序运行时,请按以下顺序操作: 1)单击“读入文件”按钮,把考生目录下的文件in5.dat中的内容读入内存并显示在上面的文本框(Text1)中; 2)单击“加密
admin
2019-05-14
23
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
循环队列的存储空间为Q(1:50),初始状态为front=rear=50。经过一系列正常的人队与退队操作后,front=rear=25,此后又正常地插入了一个元素,则循环队列中的元素个数为()。
设有如下事件过程:PrivateSubForm_Click()x=0Whilex10x=x+1x=x*xWendPrintxEndSub运行程序,单击窗体,输出结果是
以下关于控件数组的叙述中,错误的是
下面描述中不属于数据库系统特点的是
在名称为Form1的窗体上添加一个名称为Label1,标题为“口令”的标签;添加一个名称为Text1的文本框;再添加三个命令按钮,名称分别为Command1、Command2、Command3,标题分别为“显示口令”、“隐藏口令”、“重新输入”。程序运行
在名称为Form1,标题为“练习”的窗体上添加一个名称为Frame1、标题为“效果”的框架。框架内含有三个复选框,其名称分别为Chk1、Chk2和Chk3,标题分别为“倾斜”、“加粗”和“下划线”。程序运行后的窗体如图所示。要求:存盘时必须存放在考生文
下面控件中,没有Caption属性的是
要使标签中的文本靠右显示,应将其Aligraent属性设置为
在考生文件夹下有一个工程文件sjt4.vbp,运行情况如图所示。程序的功能是计算下列表达式的值:z=(x+2)^2+(x+3)^3+(x+4)^4+…+(x+N)^N其中N和x的值通过键盘分别输入到文本框Text1、Text2中。之后如果单击标题为“计
随机试题
根据《药品经营质量管理规范》,某药品批发企业采取的冷藏、冷冻药品质量管理措施符合要求的有
艾滋病病人出现神经系统症状者可达30%~70%。其中不包括
下列选项中哪个是不能提起行政复议的行为?
某企业2011年末进行财产清查,查明存在的情况有:(1)甲种原材料账面结存1500千克,每千克成本为6元,实际结存2000千克,经查属于保管员赵某的责任事故,经批准应由赵某赔偿。增值,实际结存1570千克,经查属于收发计量不准确造成,经批准予以处理。(2)
读图文材料,回答问题。材料一某中学地理小组查阅了巴西和中国农业发展状况相关资料,结合对巴西地理环境条件的分析,认为巴西粮食增产潜力巨大。材料二下图为巴西1月份和7月份降水量分布图。据材料二说明巴西1、7月降水量的差异并分析原因。
人民警察的职业道德,是指人民警察在依法履行职务活动中所遵循的道德原则和道德规范。政治性、法律性和公正性,是人民警察职业道德三个最显著的特征。()
该市2005年6月的总保费收入比去年同期约增长了:根据四年来该市保费收入的变化,可以推出:[1]该市的人均收入有较大增长[2]人们的保险和理财意识不断增强[3]人们对于人身险的投入明显高于对于其他险种的投入
由陨石撞击地球所形成的陨石坑在地球上虽然到处都有,但在地质较稳定的地区出现的陨石坑则最为密集。这种陨石坑的相对密集现象,肯定是由于地质稳定地区较小的地表变化所造成的。以下哪项是使上文结论成立的假设?
Theconclusioncanbededucedfromthepremises.
Afterthreedaysofstayingawake,PeterTripp,aNewYorker,begantoshowsignsofmental(精神上的)breakdown(崩溃).He【C1】______
最新回复
(
0
)