首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,已给出了所有控件(如图3-62所示)和部分程序。程序运行时,请按以下顺序操作: 1)单击“读入文件”按钮,把考生目录下的文件in5.dat中的内容读入内存并显示在上面的文本框(Text1)中;
在考生文件夹下有一个工程文件sjt5.vbp,已给出了所有控件(如图3-62所示)和部分程序。程序运行时,请按以下顺序操作: 1)单击“读入文件”按钮,把考生目录下的文件in5.dat中的内容读入内存并显示在上面的文本框(Text1)中;
admin
2019-05-14
76
问题
在考生文件夹下有一个工程文件sjt5.vbp,已给出了所有控件(如图3-62所示)和部分程序。程序运行时,请按以下顺序操作:
1)单击“读入文件”按钮,把考生目录下的文件in5.dat中的内容读入内存并显示在上面的文本框(Text1)中;
2)单击“加密”按钮,则可对Text1中的内容进行加密并显示在下面的文本框(Text2)中。
3)单击“存结果”按钮则把Text2中的内容存到out5.dat文件中。
加密规则:对于第奇数个字符,若是字母,则把它变为它后面的字符(若为“Z”则变为“A”),不是字母则不变;对于第偶数个字符,若是字母,则把它变为它前面的字符(若为“A”则变为“Z”),不是字母则不变。大小写字母都遵循此规则。
例如:
若原有的字符是:AbbaZGHa-MnnKYzx 则加密后的字符是:BaczAFGb-NmojXaw
已经给出“存结果”按钮的Click事件过程和函数isletter,函数isletter(aAsString)判断变量a中是否为一个字母,若是则返回True,否则返回False,可以直接调用。
请编写“读入文件”按钮和“加密”按钮的Click事件过程,以实现上述功能。(in5.dat文件中只含英文单词和空格,不分段落和行)
注意:考生不得修改已经存在的程序,必须用“存结果”按钮存储加密结果,否则无成绩。最后,按原文件名把程序存盘。
选项
答案
审题分析 分析题目可知,本题中“读入文件”命令按钮中首先使用For Input方式打开文件,然后通过IAneInput#语句将打开文件中的数据读出到变量s中并且赋给文本框。 在“加密”按钮的单击事件中,利用For循环对字符串s进行遍历,依次取出s中的每一个字符;如果循环变量i的值为偶数,接下来就要判断取出的字符是不是字母,如果是字母则进行Chr(Asc(Mid(s,i,1))-1)的转换,但是要注意如果为字母“A”或者“a”要转换为“Z”或者“z”。同理,如果循环变量的值为奇数,如果取出的字符是字母,则进行Chr(Asc(Mid(s,i,1))+1)的转换,如果为字母“Z”或者“z”要转换为“A”或者“a”。最后将转换得到的字母连接起来即得到结果。 操作步骤 步骤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 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" ElseIf 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" ElseIf 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/tTUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生文件夹下有一个工程文件sjt5.vbp,在窗体上给出了所有控件和不完整的程序,请去掉程序中的注释符,把程序中的?改为正确的内容。本程序的功能是:如果单击“取数”按钮,则把考生目录下的in5.txt文件中的15个姓名读到数组a中,并在窗体上显示这些姓名
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Frame1、标题为“目的地”的框架,在框架中添加三个复选框,名称分别为Check1、Check2、Check3,其标题分别是“上海
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为List1的列表框,在属性窗口中为列表框添加三个选项:北京、上海、天津。再建立一个下拉菜单,菜单标题为“文件”,名称为File,此菜
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上建立一个名称为Commandl的命令按钮数组,含三个命令按钮,它们的Index属性分别为0、1、2,标题依次为“是”、“否”、“取消”,每个按钮
在考生文件夹下有一个工程文件vbsi5.vbp,请先装入该工程文件,然后完成以下操作:在名称为Forml的窗体上画两个命令按钮,其名称分别为cmdRead和cmdCal,标题分别为“读入数据”和“计算保存”(如图3.42所示)。程序运行后,如果单击“读入数
(1)在考生文件夹下有一个工程文件sit3.vbp,窗体上有一个矩形和一个圆,还有垂直和水平滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩
在考生文件夹下有一个工程文件vbsj5.vbp,已给出了部分控件和部分程序。请在窗体上画三个标签,其名称分别为lblName、lblTel和lblPost,标题分别为“姓名”、“电话号码”和“邮政编码”。再画三个文本框,其名称分别为txtName、txtT
在考生文件夹下有文件in5.txt,文件中有几行汉字。请在Forml的窗体上画一个文本框,名称为Text1,能显示多行;再画一个命令按钮,名称为C1,标题为“存盘”。编写适当的事件过程,使得在加载窗体时,把in5.txt文件的内容显示在文本框中,然后在文本
(1)在名称为Forml的窗体上画一个名称为lblPwd的标签,标题为“密令”;画两个文本框,名称分别为txtPwd、txtObi,都没有初始内容;再画三个命令按钮,名称分别为cmdShow、cmdide、cmdCopy,标题分别为“显示”、“隐藏”、“复
在考生文件夹下有一个工程文件sjt4.vbp。窗体上的控件如图所示。程序运行时,若选中“累加”单选按钮,则“10”、“12”菜单项不可用,若选中“阶乘”单选按钮,则“1000”、“2000”菜单项不可用(如图所示)。选中菜单中的一个菜单项后,单击“计算”按
随机试题
若一个化学反应是一级反应,则该反应的速率与反应物浓度的一次方成正比。()
患者,女,63岁。近3天痰多,胸闷,慢性咳喘30年,喘息不得卧,一身面目浮肿,舌暗胖,苔白腻略黄。用药宜首选()
A.活血B.柔肝C.润肺D.敛阴E.益髓熟地黄的功效是
消防宣传与教育培训的原则是什么?
基金募集申请获得中国证监会核准前,基金管理人、基金销售机构不得()。I.办理销售业务Ⅱ.公布基金宣传推介材料Ⅲ.发售基金份额Ⅳ.举办客户推介会
材料1:2007年上半年,猪肉价格上涨较快。温家宝总理2007年5月26日到陕西调研时强调指出.生猪生产和市场供应事关群众生活.影响全局,不能掉以轻心。7月25日,国务院召开第186次常务会议,原则通过了《国务院关于促进生猪生产发展稳定市场供应的意见》。7
俗称“金不换”的中药材是人参。()
—Didyoutidyyourroom?—No,IwasgoingtotidymyroombutI________visitors.
NewTechniquePromisesEarlierCancerDetectionAnewtechniquecouldrevolutionizetheearlydetectionofcancer,givingsuf
Thereare17kindsofpenguinsintheworld.Allofthemliveinthesouthern【B1】______.Onlyafew【B2】______liveonthecontine
最新回复
(
0
)