首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,已给出了所有控件(如图3.62所示)和部分程序。程序运行时,请按以下顺序操作: 1)单击“读入文件”按钮,把考生目录下的文件in5.dat中的内容读入内存并显示在上面的文本框(Text1)中; 2)单击“加密”
在考生文件夹下有一个工程文件sjt5.vbp,已给出了所有控件(如图3.62所示)和部分程序。程序运行时,请按以下顺序操作: 1)单击“读入文件”按钮,把考生目录下的文件in5.dat中的内容读入内存并显示在上面的文本框(Text1)中; 2)单击“加密”
admin
2019-03-14
62
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
有数据定义语句:Dima,bAsIntegerDimx%,yasInteger执行语句后,不是整型变量的是
以下自定义数据类型的语句中,正确的是
下列叙述中正确的是
窗体上有一个名称为Textl的文本框,一个名称为Commandl的命令按钮。窗体文件的程序如下:PrivateTypeXPrivateSubCommandlClick()aAsInteger:bAsIntegerDimYAsx
设有如下通用过程:PublicFunctionFun(xStrAsString)AsStringDimtStrAsString,strLAsIntegertStr=””strL=Len(xStr)i=1DoWhilei
数据流图用于抽象描述一个软件的逻辑模型,数据流图由一些特定的图符构成。下面图符名标识的图符不属于数据流图合法图符的是
设程序中有以下语句:MsgBox“Visual”,“Basic”,“等级考试”,2执行该语句后,显示一个信息框,以下关于该信息框的叙述中,正确的是
在窗体上没有进行任何属性设置,然后编写如下事件过程,则程序运行结果是()。PrivateSubForm_Load0Fori=lTo10slim=sum+iNextiPrint“Sum=”;slimEndSub
表达式4+5\6*7/8Mod9的值是()。
考生文件夹中有工程文件sjt3.vbp。在窗体上有名称为Comb01的组合框,请设置该组合框的属性,使该组合框只能用于选择操作,不能输入文本。窗体上还有两个标题分别为“输入正整数”、“判断”的命令按钮。程序运行时在组合框中选中一项,如图5(A所示,单击“输
随机试题
Theconference______afullweekbythetimeitends.
患者男性,53岁;近半年来感觉口腔黏膜粗糙,涩感。偶然发现舌左侧黏膜有10mm×15mm大小白色斑块状改变,检查发现病损白色斑块表面有小颗粒,稍微隆起高出黏膜面,局部为非均质性白色斑块,触诊白色斑块基底稍微发硬,但无明显的溃疡形成。以下哪种情况口腔白斑
患者,男,34岁。牙外伤后3个月,要求固定义齿修复,检查右上4、2缺失,右上3残根稳固,行根管治疗两个半月,轻度叩痛,X线检查右上3根管充填不足,未见明显根尖阴影。确定制作固定义齿,最佳的基牙选择为
医嘱:洋地黄0.1mg,qod,p.o.,正常执行时间为:
项目竞争能力分析,除了从项目角度分析外,还应从企业角度进行广泛的分析,包括()等因素。
所有的记账凭证均应附有原始凭证。()
简述创新教育及其在素质教育中的地位。
根据《中华人民共和国民族区域自治法》的规定,下列哪一机关不享有自治条例、单行条例的制定权?()
下列属于特指秘书机构的办公室是()。
耦合性和内聚性是对模块独立性度量的两个标准,下列叙述中正确的是()。
最新回复
(
0
)