首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的。在窗体上有一个文本框、两个单选按钮及两个命令按钮。文本框的名称为Text1。内空;两个命令按钮的名称分别为Command1与Command2、标题分别为“读取”与“加密”;单
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的。在窗体上有一个文本框、两个单选按钮及两个命令按钮。文本框的名称为Text1。内空;两个命令按钮的名称分别为Command1与Command2、标题分别为“读取”与“加密”;单
admin
2012-10-09
19
问题
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的。在窗体上有一个文本框、两个单选按钮及两个命令按钮。文本框的名称为Text1。内空;两个命令按钮的名称分别为Command1与Command2、标题分别为“读取”与“加密”;单选按钮的名称分别为Optionl和Option2,标题分别为“3”和“5”。单击“读取”,程序将读入考生文件夹下的文本文件in5.txt,单击“加密”,加密过的文本显示在Text1中。根据单选按钮中的不同的数字,加密的方法不同。例如选择Optionl.则逐一把读入的字符串改为它前面的第3个字母。程序运行时效果如图5—5所示。
注意:请在有“?”号的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名:和文件夹。
选项
答案
单选按钮组常用于提供唯一选择,Value属性值决定每个单选按钮的选中状态:False表示未选、True表示选中,Caption属性用于设置或返回单选按钮的标题。Chr函数返回String,其中包含有与指定的字符代码相关的字符。其语法格式为:Chr(charcode)。charcode为必要参数,是一个用来识别某字符的Long函数。Mid$(字符串,起始位置[,个数])函数用于从字符串指定位置开始的含指定个数字符的字符串;String(个数,字符)函数用于返回含指定个数字符的字符串;Asc(字符串)函数用于返回字符串首字符的ASCII码值。 根据题意,将一个文本框控件、两个单选按钮控件和两个命令按钮添加到窗体中,文本框的名称为Textl、Text属性为空,单选按钮的名称分别为Optionl和Option2,Caption属性分别为“3”和“5”,命令按钮的名称为Commandl和Command2,Caption属性分别为“读取”和“加密”。双击Commandl进入代码窗口,编写如下代码: Private Sub Command1_Click() Dim str As String Dim tmp As String Dim hum As Integer str="" Open"App.Path&\in5.txt"For
Input As#1
’打开文件准备读取 While
EOF(1)=False
’判断是否读到文件尾 Input#1,tmp’读取文件 str=str+trap ’将渎取的文本连接起来放入str中 Wend Close#l’关闭文件 Textl.
Text
str’在Textl中显示str End Sub Private Sub Command2_Click() Dim str As String Dim trap As String Dim i As Integer Dim ind As Integer If Optionl.
Value
=True Then ind=3’当选中Optionl时,则移3位 ElseIf Option2.
Value
=True Then ind=5’当选中Option2时,则移5位 End If str="" For i=1 To
Len(Textl.Text)
tmp=Mid(Text1.Text,i,1) ’一个一个读入字符(Mid函数) If Asc(tmp)<=Asc("Z")And Asc(trap)>=Asc("A")Then If Asc(trap)<=Asc("z")And Asc(tmp)>=Asc("a")Then tmp=Chr((Asc(tmp)-ind-Asc("a")+26)Mod 26+Asc("a")) Else’当输入为大写字母时 tmp=Chr((Asc(tmp)-ind-Asc("A")+26)Mod 26+Asc("A")) End If End If str=str +tmp ’将字符串连起来 Next i Textl.
Text
=str ’在Textl中将加密后的字符串显示出来 End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/V3hp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() DimmAsInteger,nAsInteger,pAsIntegerm=3:n=5:p=OCallY(m,n,p)
设有下面的循环: i=1 Do i=i+3 Printi LoopUntilI>_________ 程序运行后要执行3次循环体,则条件中I的最小值为
下面程序的功能是统计字符串中“广的个数,请填空。 SubCOU( ) a$="BeijingUniversityofTechnology" DimnASInteger n=Len(a$) Fori=1T
下列语句的输出结果是【】。 PrintFormat$(1256,"000,000.00")
【】是数据库设计的核心。
编写如下事件过程: PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger) PrintChr(KeyCode) EndSub PrivateSubForm_KeyP
运行下面的程序后,输出的结果为 Cls Dimt(5,5)asInteger Fori=1To5:t(i,i)=1:Next Fori=1To5 Forj=1To5 Printt(i,j), Next
下面的属性中,用于自动调整图像框中图形内容的大小的是
不在VisualBasic6启动时的基本控件集中的是______。
算法一般都可以用选择结构、循环结构和【】结构组合而成。
随机试题
ThenorthernpartsoftheUnitedStatesgetverycoldinthewinter.Itsnowsagreatdealandthetemperatureoftengoes【C1】___
下列哪项不是开放性损伤
在项目进度管理中处于决定性领导地位的是()。
2006年某机电安装公司承担了某化工项目,在一条材质为15CrMo的压力管道现场组对、焊接(手工焊)完成后,无损检测时发现多道焊口不合格。监理工程师会同项目质量技术部门进行了检查分析,发现以下问题:(1)对参与焊接的10名焊工进行检查,其中代号为
拍卖企业可以在设( )的市设立。
甲企业2003年9月1日购进材料开出一张商业承兑汇票,面值为10万元,年利率为9%,期限6个月。该票据12月31日在资产负债表上反映的金额为()元。
甲公司为增值税一般纳税人,2016年1月25日,甲公司以其持有的一项可供出售金融资产与乙公司生产的一批产品交换。交换日,甲公司换出的可供出售金融资产账面价值为120万元(其中成本100万元,公允价值变动为20万元),公允价值为150万元;乙公司换出产品的账
C公司只生产一种产品,相关预算资料如下:资料一:预计每个季度实现的销售收入均以赊销方式取得,其中60%在本季度内收到现金,其余40%要到下一季度收讫,假定不考虑坏账因素。部分与销售预算有关的数据如表1所示:资料二:预计每个季度所需要的直接材料均以赊购
设f(x)=x3+x+1,证明:函数f(x)至少有一个零点.
视觉上对彩色的感觉有三个特征,反映人眼所感到的明亮程度的叫(156);反映颜色种类的特征叫(157),反映颜色深浅程度的叫(158),二者有时通称为(159)。彩数(color depth)是指(160),其单位为bpp。
最新回复
(
0
)