首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的。在窗体上有一个名称为Textl的文本框,3个命令按钮,名称分别是Commandl、Command2和Command3,标题分别是“读入”、“加密转换”和“保存”。要求程序运行
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的。在窗体上有一个名称为Textl的文本框,3个命令按钮,名称分别是Commandl、Command2和Command3,标题分别是“读入”、“加密转换”和“保存”。要求程序运行
admin
2010-07-13
48
问题
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的。在窗体上有一个名称为Textl的文本框,3个命令按钮,名称分别是Commandl、Command2和Command3,标题分别是“读入”、“加密转换”和“保存”。要求程序运行后,单击“读入”按钮,将文本文件in5.txt(该文件在考生文件夹下)中的文本信息读入文本框Textl中;单击“加密转换”按钮将Textl中的小写英文字母加密转换,并将转换(变为大写)后的结果显示到Textl中。加密方式是该字母对应字母表中的后一个位置的字母,如“a”加密后是“b”,转换方式为转换成加密后的字母对应字母的大写形式。例如,转换前的字母是“a”,则转换后的是“B”;单击“保存”按钮,则将转换后的文本框中的文本保存到out5.txt文件中(该文件保存到考生文件夹下)。程序运行的窗体界面如图11—7所示。
注意:请在有“?”的地方填入正确的程序代码,然后删除“?”及代码前的所有注释符号(即“’”号),但不能修改其他部分。修改后的程序文件都保存,存盘时不得修改文件夹和文件名。
选项
答案
在原来字符的ASCII码加上一个整数(题目要求为1)转换为其他的字符,然后再将加密后的字符显示在文本框中。这要用到Chr函数和Asc函数。Chr函数返回String,其中包含与指定的字符代码相关的字符。其语法格式为:Chr(charcode)。charcode是必要参数,是一个用来识别某字符的Long型。Asc函数返回一个Integer,代表字符串中首字母的字符代码。其语法格式为:Asc(string)。string必要的参数,可以是任何有效的字符串表达式。 根据题意,将一个文本框控件和3个命令按钮添加到窗体中,文本框的名称为Textl、Text属性为空,命令按钮的名称分别为Commandl、Command2和Command3,Caption属性分别为“读人”、“加密转换”和“保存”。双击Commandl进入代码窗口,补充后的具体代码如下: Dim Tel As String Private Sub Commandl_Click() Dim str As String ’ str="" Textl.Text=""’初始化Textl的文本 Open App.Path&"\in.txt"For
Input
As#l’打开文件,进行读取 While EOF(1)=False ’判断文件是否读取完 Input#1,str’读取文本 Textl.
Text
=Textl.
Text
+str Wend Close#1 End Sub Private Sub Command2_Click() Dim str As String Dim tmp As String Dim i As Integer str="" rel="" Textl.Text="" ’初始化Textl的文本 Open App.Path&"\in.txt"For Input As#1’打开文件,进行读取 While EOF(1)=False ’判断文件是否读取完 Input#l,str’读取文本 For i=1 To
Len
(str) tmp=Mid(str,i,1) ’将str中的字符逐个传给tmp进行判断 If Asc(tmp)>=Asc("a")And Asc(tmp)<=Asc("z")Then tmp=Chr((Asc(trap)+1-Asc("a")+26)Mod 26+Asc("a")) ’向后移一位,如果到最后为Z则变为a tmp=
UCase
(tmp) ’如果是小写字母,则将其转换成大写 End If rel=rel+tmp’将字符连接起来 Next i Textl.
Text
=Textl.
Text
+rel’在Text1中显示转换后文本 Wend Close#1 End Sub Private Sub Command3_Click() Open"App.Path&\out5.txt"For Output As#2 Print#2,rel’将转换后的文本存入文件中 Close#2 End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/9Gmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
关于内存变量的调用,下列说法中正确的是()。
语句CODEBASE=codebaseURL属性的功能是( )。
Graphic提供的绘图方法可以分为:绘制【】的方法和绘制文本的方法。
Java语言中的【】是程序的基本单位。
在数据管理技术的发展过程中,经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是【】。
数据字典是各类数据描述的集合,它通常包括5个部分,即数据项、数据结构、数据流、【】和处理过程。
数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段,其中数据独立性最高的阶段是【】。
下列程序的功能是创建了一个显示5个"Hello!"的线程并启动运行,请将程序补充完整。publicclassThreadTestextendsThread{publicstaticvoidmain(Stringargs[]){Thre
利用File对象可以判断的是
随机试题
乳酸脱氢酶由几种亚单位组成
A.双螺旋模型B.核小串珠结构C.Z-DNA结构D.茎环结构E.帽子结构DNA超螺旋结构
患者,男,56岁,有高血压病史4年。体检:血压156/96mmHg,无主动脉狭窄。医师处方依那普利片控制血压。该患者用药过程中可能发生的典型不良反应是()。
某建设项目静态投资为10000万元,项目建设前期年限为1年,建设期为2年,第一年完成投资40%,第二年完成投资60%。在年平均价格上涨率为6%的情况下,该项目价差预备费应为()万元。【2016年真题】
土中水有固、液、气三种形态,其中液态水有( )。
下图为一齿轮传动,图中数字为齿轮数,如果缸Ⅰ的转速n1=730r/min,问:轴Ⅵ的转速应是多少?其转向与轴I相同吗?
出现下列情况中的()时,税务机关可以要求纳税人提供纳税担保。
某房地产公司为增值税一般纳税人,从事多业经营,2018年2月发生如下业务:(1)将某地块开发建造商品房,当月全部售出,本月收到售房款3600万元,另外代收房屋专项维修基金240万元。2015年购置该地块时支付地价款1800万元。(2)经营酒店取得餐饮收
寺院里丢失了一袋香火钱,方丈找到甲、乙、丙三个小和尚来询问,三个人逐一陈述,甲说:“我没偷。”乙说:“甲偷了。”丙说:“我没偷。”在一旁的丁了解真相,并发表意见说:“你们三个人中只有一个人偷了,且只有一个人说对了。”因此,他们三人中偷了香火钱的是(
下列关于Winmail邮件服务器描述中,错误的是()。
最新回复
(
0
)