首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,已给出了所有控件(如图3.62所示)和部分程序。程序运行时,请按以下顺序操作: 1)单击“读入文件”按钮,把考生目录下的文件in5.dat中的内容读入内存并显示在上面的文本框(Text1)中; 2)单击“加密”
在考生文件夹下有一个工程文件sjt5.vbp,已给出了所有控件(如图3.62所示)和部分程序。程序运行时,请按以下顺序操作: 1)单击“读入文件”按钮,把考生目录下的文件in5.dat中的内容读入内存并显示在上面的文本框(Text1)中; 2)单击“加密”
admin
2019-03-14
25
问题
在考生文件夹下有一个工程文件sjt5.vbp,已给出了所有控件(如图3.62所示)和部分程序。程序运行时,请按以下顺序操作:
1)单击“读入文件”按钮,把考生目录下的文件in5.dat中的内容读入内存并显示在上面的文本框(Text1)中;
2)单击“加密”按钮,则可对Textl中的内容进行加密并显示在下面的文本框(Text2)中。
3)单击“存结果”按钮则把Text2中的内容存到out5.dat文件中。
加密规则:对于第奇数个字符,若是字母,则把它变为它后面的字符(若为“Z”则变为“A”),不是字母则不变;对于第偶数个字符,若是字母,则把它变为它前面的字符(若为“A”则变为“Z”),不是字母则不变。大小写字母都遵循此规则。
例如:
若原有的字符是:AbbaZGHa—MnnKYzx
则加密后的字符是:BaczAFGb-NmoiXaw
已经给出“存结果”按钮的Click事件过程和函数isletter,函数isletter(aAsString)判断变量a中是否为一个字母,若是则返回True,否则返回False,可以直接调用。
请编写“读入文件”按钮和“加密”按钮的Click事件过程,以实现上述功能。(in5.dat文件中只含英文单词和空格,不分段落和行)
注意:考生不得修改已经存在的程序,必须用“存结果”按钮存储加密结果,否则无成绩。最后,按原文件名把程序存盘。
选项
答案
【操作步骤】 步骤1:打开考生文件夹中的本题工程文件sit5.vbp,在代码编辑窗口指定位置编写以下代码: 参考代码: Private Sub Commandl Click() Open“in5.dat”For Input As 1 Line Input#1,S Close#1 Text1.Text=s End Sub Private Sub Command2 C1ick() Dim i As Intecjer Dim 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” Else Tf 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” E1sel-f Mid(s, i, 1) = “Z”Then. ss=ss & “a” Else ss=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:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/REUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个文本框,名称为Text1,然后编写如下程序:PrivateSubFormLoad()PrivateSubFormClick()Text1.Text=””:Te:xtl.SetFocusDimaAsString.SAs
设有如下程序:PrivateSubFormClick(0hum=InputBox(“请输入一个实数”):P=InStr(num,“.”)Ifp>0ThenPrintMid(num,P+1)ElsePrint“END”EndIfE
假定有以下函数过程:FunctionFun(SAsString)AsStringDimslAsStringFori=1ToLen(S)sl=LCase(Mid(S,i,1))+slNextiFun=slEndFuncti
检查软件产品是否符合需求定义的过程称为
软件测试的目的是
下面叙述中错误的是
设有如下数组定义语句:Dima(一1To4,3)AsInteger以下叙述中正确的是
下列程序段的执行结果为()。x=Int(Rnd+3)SelectCasexCase5Print“ARow”Case4Print“BRow”Case3Print“CRow”CaseElsePrint“DRow
在关系代数运算中,有5种基本运算,它们是()。
表达式Sgn(0.25)的值是
随机试题
要在Word2010文档中创建表格,应使用()
简述公司章程的法定性的表现。
古罗马教育家昆体良的教育著作是
A.发病急剧,疼痛剧烈,压痛部位较深,表面红肿不明显B.压痛部位浅,局部炎性表现明显C.疼痛部位在关节,浅表关节早期可出现肿胀,多为游走性关节疼痛D.发病缓慢,很少出现红肿和穿破骨皮质,X线可见多量骨质增生E.X线片表现为干骺端囊性变,周围有硬化骨
《工业炉砌筑工程施工及验收规范》对工业炉砌筑施工做了规定,以下正确的是()。
两种学习之间发生相互干扰、阻碍的迁移称为()
“知识并不是对现实世界的绝对正确的表征,而只是一种关于各种现象的较为可靠的解释或假设。”持这种知识观的是()。
关于宪法效力的说法,下列选项中正确的是:
Joe:Wehaven’tgottogetherforalongtime.Howaboutlunchnextweek?Nancy:I’mprettytiedupallnextweek.Howaboutwepl
通用/专用词
最新回复
(
0
)