首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,已给出了所有控件(如图3.62所示)和部分程序。程序运行时,请按以下顺序操作: 1)单击“读入文件”按钮,把考生目录下的文件in5.dat中的内容读入内存并显示在上面的文本框(Text1)中; 2)单击“加密”
在考生文件夹下有一个工程文件sjt5.vbp,已给出了所有控件(如图3.62所示)和部分程序。程序运行时,请按以下顺序操作: 1)单击“读入文件”按钮,把考生目录下的文件in5.dat中的内容读入内存并显示在上面的文本框(Text1)中; 2)单击“加密”
admin
2019-03-14
60
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
若在窗体模块的声明部分声明了如下自定义类型和数组PrivateTyperecCodeAsInteger:CaptionAsStringEndTypeDimarr(5)Asrec则下面的输出语句中正确的是
程序流程图中带有箭头的线段表示的是
在数据管理技术发展的三个阶段中,数据共享最好的是
命任何一个滚动条滚动框件过程如下:PrivateSubCommand1_Click()PrivateFunctionf(yAsInteger)X=10Printf(x)f=y*yEndSubEndFunction运行上述程序,如
将数据项“Student”添加到名称为Listl的列表框中,并使其成为列表框第一项的语句为
,设:a=2,b=8,c=6,d=3,表达式a>bAndN0tfc>d1Ord>c的值是
在窗体上画一个命令按钮(其Name属性为Commandl),然后编写如下代码:PrivateSubCommand1Click()Dimn0AsIntegerDima,bAsIntegera=InputBox(“Enterthe
以下()控件没有Caption属性。
考生文件夹中有工程文件sjt3.vbp。在窗体上有名称为Comb01的组合框,请设置该组合框的属性,使该组合框只能用于选择操作,不能输入文本。窗体上还有两个标题分别为“输入正整数”、“判断”的命令按钮。程序运行时在组合框中选中一项,如图5(A所示,单击“输
下列二叉树描述中,正确的是()。
随机试题
出版物具有双重属性,而()是其本质属性。
弧焊电源输出端电压与输出电流之间的关系称为弧焊电源的外特性。()
ResearchersatYaleUniversityMedicalSchoolandtheOlinNeuropsychiatryResearchCenterattheInstituteofLivinginHartfor
国际标准化组织的英文缩写是
影响肝硬化患者出血倾向的原因不包括
真空中波长为λ的单色光,在折射率为n的均匀透明媒质中,从A点沿某一路径传播到B点,路径的长度为l,A、B两点光振动的相位差为△φ,则()。
下列有关确定变更价款的做法,正确的有()。
只要不起雾,飞机就能起飞。以下哪项如果为真,说明上述断定不成立?Ⅰ.没起雾,但飞机没按时起飞。Ⅱ.起雾,但飞机仍然按时起飞。Ⅲ.起雾,飞机航班延期。
Whatdidthewomansayabouttheweather?
Whattimedoesthewomanaskthemantocometotheoffice?
最新回复
(
0
)