首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,已给出了所有控件(如图3.141所示)和部分程序。程序运行时,请按以下顺序操作: 1)单击“读入文件”按钮,把考生目录下的文件in5.dat中的内容读入内存并显示在上面的文本框(Text1)中;
在考生文件夹下有一个工程文件sjt5.vbp,已给出了所有控件(如图3.141所示)和部分程序。程序运行时,请按以下顺序操作: 1)单击“读入文件”按钮,把考生目录下的文件in5.dat中的内容读入内存并显示在上面的文本框(Text1)中;
admin
2017-09-22
60
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
在VisualBasic中按文件的访问方式不同,可以将文件分为顺序文件,随机文件和【】。
假定有如下程序代码,程序运行后,把鼠标光标移到窗体内,每单击一次,变换一种鼠标光标的形状,依次显示鼠标光标的15个属性。请在划线处将程序补充完整。PrivateSubForm_Click()StaticxAsIntegerClsPri
下面的程序执行时,将把当前目录下的顺序文件smtext1.txt的内容读入内存,并在文本框Text1中显示出来。请填空。PrivateSubCommandl_Click()DiminDataAsString
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序:PrivateSubCommand1_Click()Dimx,y,zAsIntegerx=5y=7
下列事件过程的功能是:建立一个名为Data1的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整()。PrivateTypeAngKAsInteger
在窗体上有一个命令按钮Command1,编写如下程序:PrivateSubCommand1_Click()Printpp1(3,7)EndSubPublicFunctionpp1(xAsSingle
程序执行结果s的值是【】。PrivateSubsub1(ByvalpAsInteger)p=p*2EndSubPrivateSubCommand1_Click()DimiAsIntegeri=3Callsub1(i
如果准备读文件,打开顺序文件“text.dat”的正确语句是
在窗体上画一个名称为Filel的文件列表框,并编写如下程序:PrivateSubFilel_DblClick()x=Shell(Filel.FileName,1)EndSub以下关于该程序的叙述中,错误的是__
随机试题
张某和李某拟共同设立一个公司,下面为设立方案:二人共同出资成立新宇商贸有限公司(简称“新宇公司"),以销售家用小电器为主;因公司规模较小,只设一名执行董事,由李某担任,同时由其兼任公司监事;2008年5月14日该公司聘请张某的表弟王某担任公司经理。(王某
关于急性乳腺炎的预防,下列哪项是错误的
某急性阑尾炎患者欲输液2500ml,每分钟滴数为60滴,所用输液器滴系数为20,约需时间为
某县公安局在处理一起打架斗殴案件中,根据被害人张三口头提供的有关受伤情况的证据,对加害人李四作出行政拘留15天的处罚决定。李四对此不服,向上级公安机关市公安局申请复议,市公安局维持了县公安局处罚决定。李四仍不服,其向某县人民法院提起行政诉讼,该法院受理了此
(2020年)为了资产减值测试的目的,企业需要对资产未来现金流量进行预计,并选择恰当的折现率对其进行折现,以确定资产预计未来现金流量的现值。根据企业会计准则的规定,预计资产未来现金流量的期限应当是()。
承运人对运输过程中货物的毁损、灭失承担赔偿责任,但承运人若能证明货物的毁损、灭失是由于()等原因造成的,不承担损害赔偿责任。
巴斯德认为,空气中的微生物浓度与环境状况、气流运动和海拔高度有关。他在山上的不同高度分别打开装着煮过的培养液的瓶子,发现海拔越高,培养液被微生物污染的可能性越小。在山顶上。20个装了培养液的瓶子,只有一个长出了微生物。普歇另用干草浸液作材料重复了巴斯德的实
阅读下面资料,作答以下问题。×××省人民政府关于调整我省娱乐业营业税具体适用税率的通知××发[2011]51号各市(州)、县(市、区)人民政府,省政府各部门、各直属机构:
某市为了发展文化强市战略,在2008年、2010年先后建成了两个图书馆,2008年底共办理市民借书证7万余个,到2010年底共办理市民借书证13万个。2011年,该市又在新区建立了第三个图书馆,于2012年初落成开放。截止2012年底,全市共计办理市民借书
如图所示,向放在水槽底部的口杯注水(流量一定),注满口杯后继续注水,直到注满水槽,水槽中水平面上升高度h与注水时间t之间的函数关系大致是()。
最新回复
(
0
)