首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的,要求将程序补充完整,但不能修改其他部分。修改后的程序文件都保存,存盘时不得改变文件夹和文件名。 在窗体上有一个名为一rextl的文本框,两个命令按钮,名称分别为Com
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的,要求将程序补充完整,但不能修改其他部分。修改后的程序文件都保存,存盘时不得改变文件夹和文件名。 在窗体上有一个名为一rextl的文本框,两个命令按钮,名称分别为Com
admin
2009-03-26
47
问题
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的,要求将程序补充完整,但不能修改其他部分。修改后的程序文件都保存,存盘时不得改变文件夹和文件名。
在窗体上有一个名为一rextl的文本框,两个命令按钮,名称分别为Commandl、Command2、标题分别是“读取”和“加密保存”,要求程序运行后,单击“读取”按钮,将考生文件夹下文本文件in5.txt中的文本信息读入文本框Text1中;单击“加密保存”按钮,将Text1中的英文字母加密转换,将转换后的结果显示到Text1中并保存到考生文件夹下的out5.txt文件中。转换方式为转换成该字母对应字母表中前一个位置的字母。例如,转换前的字母是“b”,则转换后的是“a”,转换前的是“G”,转换后的是“F”。程序运行时的窗体界面如图69—5所示。
注意:文件必须存放在考生文件夹下,窗体文件名为sj5.frm,工程文件名sj5.vbp,加密的结果存入out5.txt,否则没有成绩。
选项
答案
根据题意,将两个命令按钮和一个文本框控件添加到窗体中,命令按钮的名称分别为Commandl和Command2,Caption分别为“读取”和“加密保存”,文本框的名称为Textl,MultiLine属性为True、Scrollbars属性为2。设计完成后编写如下代码: Dim str As String Private Sub Commandl_Click() str="" Dim trap As String Open"App.Path&\in5.txt"For
Input
As#l While
EOF(1)=False
Input#1,tmp’逐行读取文件 str=str+tmp’将读取到的字符放入str字符串中 Wend Close#1 Textl.
Text
=str ’在Textl中显示字符串 End Sub Private Sub Command2_Click() str="" Dim tmp As String For i=1 To
Len(Text1.Text)
tmD=Mid(Textl.
Text
,i,1) ’通过Mid函数一个一个读入字符 If Asc(tmp)<=Asc("z")And Ase(tmp)>=Asc("A")Then If Asc(tmp)<=Asc("z")And Asc(tmp))>=Asc("a")Then ’当输人为小写字母时 tmp=Chr((Asc(tmp)-1-Asc("a")+26)Mod 26+Asc("a")) Else’当输入为大写字母时 tmp=Chr((Asc(tmp)-1-Asc("A")+26)Mod 26+Asc("A")) End If End If str=str+tmp’将字符串连起来 Next i Open"App.Path&\out5.txt"For Output As#2 Print#2,str Close#2 End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/NV1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列关于队列的叙述中正确的是
下列注释使用原则的叙述,正确的是()
软件开发环境是全面支持软件开发全过程的【】集合。
算法的工作量大小和实现算法所需的存储单元多少分别称为算法的【】。
数据库设计包括两个方面的设计内容,它们是()
文件操作中,用于移动文件指针到指定的位置的是
赋值表达式是由位于赋值运算符左边的变量和右边的【】组成。
下列属于正则表达式的是()。
char类型的取值范围是()。
随机试题
银柴胡与柴胡均有退热之功。然银柴胡能退虚热,除疳热,尤善治疗____________,____________;而柴胡能解表退热,善治____________,____________。
第一个被成功测序完整基因组的细菌是
设备安装工程概算的编制方法不包括()。
由5个熟练木工组成的木工队,在异型混凝土浇筑段上制作安装100m2的特殊曲面木模。根据企业的统计资料,已知一般曲面木模的制作安装每工日完成5m2,特殊曲面木模的难度系数为2.0,每天两班工作制,则木工队在该段施工的流水节拍为()。
下列关于大理石特性的说法,错误的有()。
国际债券的记价货币通常是(),以便在国际资本市场筹集资金。
未经法定机关核准,擅自公开或者变相公开发行证券的,责令其停止发行,退还所募资金并加算(),处以非法所募资金金额1%以上、5%1以下的罚款。
某施工企业既承包建筑安装工程,又搞建筑材料销售,两类业务分别核算,多年来一直盈利。该企业必须缴纳的税种包括()。
下列各项中,有可能导致公司采取高股利政策的有()。
下列关于经验估工法的说法,不正确的是()。
最新回复
(
0
)