首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,已给出了所有控件(如图2.62所示)和部分程序。程序运行时,请按以下顺序操作: 1)单击“读入文件”按钮,把考生目录下的文件in5.dat中的内容读入内存并显示在上面的文本框(Textl)中:
在考生文件夹下有一个工程文件sjt5.vbp,已给出了所有控件(如图2.62所示)和部分程序。程序运行时,请按以下顺序操作: 1)单击“读入文件”按钮,把考生目录下的文件in5.dat中的内容读入内存并显示在上面的文本框(Textl)中:
admin
2019-06-20
81
问题
在考生文件夹下有一个工程文件sjt5.vbp,已给出了所有控件(如图2.62所示)和部分程序。程序运行时,请按以下顺序操作:
1)单击“读入文件”按钮,把考生目录下的文件in5.dat中的内容读入内存并显示在上面的文本框(Textl)中:
2)单击“加密”按钮,则可对Text1中的内容进行加密并显示在下面的文本框(Text2)中。
3)单击“存结果”按钮则把Text2中的内容存到out5.dat文件中。
加密规则:对十第奇数个字符,若是字母,则把它变为它后面的字符(若为“Z”则变为“A”),不是字母则不变:对于第偶数个字符,若是字母,则把它变为它前面的字符(若为“A”则变为“z”),不是字母则不变。大小写字母都遵循此规则。
例如:
若原有的字符是:AbbaZGHa.MnnKYzx
则加密后的字符是:BaczAFGb-NmojXaw
已经给出“存结果”按钮的Click事件过程和函数isletter,函数islettet(aAsString)判断变量a中是否为一个字母,若是则返同True,否则返回False,可以直接调用。
请编写“读入文件”按钮和“加密”按钮的Click事件过程,以实现上述功能。 (in5.dat文件中只含英文单间和空格,不分段落和行)
注意:考生不得修改已经存在的稃序,必须用“存结果”按钮存储加密结果,否则无成绩。最后,按原文件名把程序存盘。
选项
答案
【操作步骤】 步骤1:打开考生文件夹中的本题工程文件sjt5.vbp,在代码编辑窗口指定位置编写以下代码: 参考代码: Private Sub Commandl C1iCk() Open”in5.dat”For Input As 1 Line Input#1,S Close:#1 Textl.Text=S End Sub Private Sub Command2 C1ick() Dim i As Integer 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” E1seIf Mid(S,i,1)=”A”Then ss=ss&”Z” Else ss=ss&Chr(.Asc(Mid(s,i,1))一1) End If E1se If Mid(S,i,1)=“Z”Then ss=SS&"A” E1seIf 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/V5Up777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下能接收焦点的控件是
窗体上有名称分别为Text1、Text2的文本框,名称为Command1的命令按钮。运行程序,在Text1中输入“FormList”,然后单击命令按钮,执行如下程序:PrivateSubCommand1_Click()Text2.Text=UCas
对长度为n的线性表进行顺序查找,在最坏情况下所需要的比较次数为
表达式12/2\4的值是
设树T的深度为4,其中度为1,2,3,4的结点个数分别为4,2,1,1。则T中的叶子结点数为
可以产生30~50(含30和50)之间的随机整数的表达式是
以下自定义数据类型的语句中,正确的是
以下关于VB对象属性的叙述中,错误的是
设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Command1的命令按钮。Form1的代码如下:PublicxAsIntegerPrivateSubFor
产生100以内(不含100)2位随机整数的VisualBasic表达式是
随机试题
急性化脓性胆囊炎时,最易穿孔的胆囊部位是
假定某投资中心的经营资产为400000元,经营净收益为120000元。要求:(1)计算该投资中心的投资利润率。(2)如果利息按140A,计算,其剩余利润为多少?(3)如果采用投资利润率来衡量其工作业绩,预计对管理
施工企业各管理层、职能部门、岗位的安全生产责任应形成责任书,并应经责任部门或责任人确认。责任书的内容不包括()。
上题图中所示的外伸梁C处截面的弯矩和剪力分别为多大?
建设项目管理的工作内容主要包括( )。
圣诞树用成套灯具
证券公司对客户融资融券的额度按现行规定不得超过客户提交保证金的2倍,期限不超过9个月。()
相对于派发现金股利,企业发放股票股利的优点有()。
下列情形中,不违背货币资金“不相容岗位相互分离"控制原则的是()。
By using(26), a 600M -byte music CD can be compressed to 50M bytes or less. It can be streamed(downloaded in chunks) so that you
最新回复
(
0
)