首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其中,己给出了所有控件(如图3—141所示)和部分程序。 程序运行时,请按以下顺序操作: 1)单击“读入文件”按钮,把考生目录下的文件in5.dat中的内容读入内存并显示在上面的文本框(Tex
在考生文件夹下有一个工程文件sjt5.vbp,其中,己给出了所有控件(如图3—141所示)和部分程序。 程序运行时,请按以下顺序操作: 1)单击“读入文件”按钮,把考生目录下的文件in5.dat中的内容读入内存并显示在上面的文本框(Tex
admin
2019-05-14
53
问题
在考生文件夹下有一个工程文件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 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) rf isletter(Nid(s,i,1))=True Then If i Mod 2=0 Then Tf Mid(s,i,1)="a"Then ss = ss & "z" Elsetf Hid(s,i,1)="A"Then ss=ss & "z" Else ss = ss & Chr(Asc(Mid(s,i,1))-1) End If Else Tf 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:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/RHUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生文件夹下有一个工程文件sjt4.vbp。窗体上的控件如图所示。程序运行时,若选中“累加”单选按钮,则“10”、“12”菜单项不可用,若选中“阶乘”单选按钮,则“1000”、“2000”菜单项不可用(如图所示)。选中菜单中的一个菜单项后,单击“计算”按
在名称为Form1的窗体上画一个名称为Image1的图像框,并通过属性窗口为其装入考生文件夹中的图标文件CARS.ico;再画一个名称为Timer1的计时器,一个名称为Command1、标题为“开始”的命令按钮,如图所示。要求:通过属性窗口设置适当的属性
下列排序方法中,最坏情况下时间复杂度(即比较次数)低于O(n2)的是()。
阅读程序:PrivateSubForm_Click()DimxAsInteger,yAsIntegerx=32:y=42CallPCS(x,y)Printx;yEndSubSubPCS(ByValnAsIntege
有两个关系R和S如下:则由关系R得到关系S的操作是
软件设计中模块划分应遵循的准则是
以下不能设置Picture属性的控件是
设有如下事件过程:PrivateSubCommand1_Click()Fori=1To5j=iDoPrint"*"j=j-1LoopUntilj=0NextiEndSub运行程序,输出“*”的个数是
考生文件夹下有一个工程文件sjt3.vbp。程序的功能是:通过键盘向文本框中输入数字,如果输入的是非数字字符,则提示输入错误,且文本框中不显示输入的字符。单击名称为Command1、标题为“添加”的命令按钮,则将文本框中的数字添加到名称为Combo1的组合
随机试题
运动系统由()组成
哪种有机磷农药中毒禁忌用2%碳酸氢钠溶液洗胃
结合有关水泥混凝土面层的实测关键项目内容,回答下列有关问题。混凝士板的断裂块数,高速公路和一级公路不得超过评定路段混凝土板总块数的(),其他等级公路不得超过()。
财政执行收入分配职能的内容是()。
王某为其父报名参加甲旅游公司推出的韩国10日游,报名时按甲公司要求,王某应委托甲公司购买乙保险公司的意外伤害险(保险责任为意外伤害死亡全额给付保险金),由于王父不会写字,王某经其同意代为填写了投保单,并支付了旅游费、保费等各项费用。甲公司出团前向乙保险公司
根据《禁毒法》的规定,负责社区戒毒工作的主体是()。
选择风险型决策的前提包括()。[2010年5月二级、三级真题]
支撑反作用力对人体跑速有何影响?
—Whynotgooutforawalkbeforebreakfast?—Oh,yes.______ismyfavoritetimeofday.
生命中最主要的物质基础是:
最新回复
(
0
)