首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的,要求将程序补充完整,但不能修改其他部分。修改后的程序文件都保存,存盘时不得改变文件夹和文件名。 在窗体上有一个名为一rextl的文本框,两个命令按钮,名称分别为Com
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的,要求将程序补充完整,但不能修改其他部分。修改后的程序文件都保存,存盘时不得改变文件夹和文件名。 在窗体上有一个名为一rextl的文本框,两个命令按钮,名称分别为Com
admin
2009-03-26
55
问题
在考生文件夹下有工程文件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全国计算机二级
相关试题推荐
下面程序段:booleana=false;booleanb=true;booleanc=(a&&B)&&(!B);booleanresult=(a&B)&(!B);执行完后,正确的结果是()。
阅读和理解下面程序段:classManagerextendsEmployee{publicManager(Stringn,doubles,intyear,intmonth,intday){super(n
下面程序段的输出结果是classTest{publicstaticvoidmain(Stringargs[]){MyThreadt=newMyThread();t.displayOutput(”
关于以下程序代码的说明正确的是()(1)classHasStatic{(2)privatestaticintx=100;(3)publicstaticvoidmain(Stringargs[]){(4)HasStatich
如果对一个关系实施了一种关系运算后得到了一个新的关系,而且新的关系中属性个数少于原来关系中属性个数,这说明所实施的运算关系是()
Java的图形界面技术经历了两个发展阶段,分别通过提供AWT开发包和【】开发包宋体现。
算法的工作量大小和实现算法所需的存储单元多少分别称为算法的【】。
以下过程设计工具不属于图形工具的是()。
算法的复杂度主要包括【】复杂度和空间复杂度。
随机试题
下列文学人物形象出现于唐代的是()
5岁儿童身高106cm,体重18kg,牙齿20枚,其发育状况为
女性生殖系统恶性肿瘤中死亡率最高的是
具有补脾止泻,益肾固精功效的药物是
多渠道系统可以为制造商提供以下几方面的利益()。
(2008年)一平面简谐横波的波动表达式为y=0.05cos(20πt+4πx)(SI)。取k=0,±1,±2,…,则t=0.5s时各波峰所在处的位置为()m。
材料与水接触时,水分子间的内聚力比材料分子间的相互吸引力大,该类材料称为()。
下列对联最适合用于祝贺教师60周岁寿辰的是:
栈满时,再作入栈操作会产生【】,栈空时,删除操作会产生【】。
在窗体中有一个标签Lbl和一个命令按钮Commandl,事件代码如下:OptionCompareDatabaseDimaAsString*10.PrivateSubCommandlClick()a=“
最新回复
(
0
)