首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm,该程序是不完整的,请在有?号的地方填入正确的程序代码,然后删除?及所有注释符号(即’号),但不能修改其他部分。
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm,该程序是不完整的,请在有?号的地方填入正确的程序代码,然后删除?及所有注释符号(即’号),但不能修改其他部分。
admin
2012-10-09
32
问题
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。
在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm,该程序是不完整的,请在有?号的地方填入正确的程序代码,然后删除?及所有注释符号(即’号),但不能修改其他部分。修改后的程序文件都保存,存盘时不得修改文件夹和文件名。
本题描述如下:
在窗体上有一个名称为Text1的文本框,三个命令按钮,名称分别是C1、C2和C3,标题分别是“读入”、“加密”和“存盘”。要求程序运行后,点击“读入”按钮,将文本文件in7.txt(该文件在考生文件夹下)中的文本信息读入文本框Text1中;点击“加密”按钮将Text1中的英文字母加密转换,并将转换后的结果显示到Text1中。转换方式为转换成该字母对应字母表中后两个位置的字母。例如,转换前的字母是“a”,则转换后的是“c”;点击“存盘”按钮,则将转换后的文本框中的文本保存到out7.txt文件中(该文件保存到考生文件夹下)。程序设计界面如图12-8所示。
选项
答案
文本框中显示的内容由Text属性设置。单击命令按钮触发Click事件,命令按钮的标题由Caption属性设置。 题目要求加密原理是:在原来字符的ASCII码加上一个整数(题目要求为2)转换为其他的字符,然后再将加密后的字符显示在文本框中。这样就用到了Chr函数和Asc函数。 Chr函数返回String,其中包含有与指定的字符代码相关的字符。其语法格式为: Chr(charcode) charcode必要参数,是一个用来识别某字符的Long。 Asc函数返回一个Integer,代表字符串中首字母的字符代码。其语法格式为: Asc(string) string必要的参数,可以是任何有效的字符串表达式。解题步骤: 第一步:编写程序代码。 程序提供的代码: Private Sub C1_Click() Dim strinfo As String ’? "in7.txt" For Input As 1 Input #1, strinfo Close #1 Text1.Text=strinfo End Sub Private Sub Command2_Click() Dim strchange As String Dim i As Integer For i=1 To Len(Text1.Text) ’ strchange=strchange+?(Asc(Mid(Text1.Text, i, 1) ) +2) Next Text1.Text=strchange End Sub Private Sub Command3_Click() Open "out7.txt" For Output As 1 ’Print #1, ? Close #1 End Sub 参考代码: Private Sub C1_Click() Dim strinfo As String Open "in7.txt" For Input As 1 Input #1, strinfo Close #1 Text1.Text=strinfo End Sub Private Sub C2_Click() Dim strchange As String Dim i As Integer For i=1 To Len(Text1.Text) strchange=strchange+Chr(Asc(Mid(Text1.Text, i, 1) ) +2) Next Text1.Text=strchange End Sub Private Sub C3_Click() Open "out7.txt" For Output As 1 Print #1, Text1.Text Close #1 End Sub 第二步:调试并运行程序 第三步:按题目要求存盘
解析
转载请注明原文地址:https://kaotiyun.com/show/83hp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有如下的程序:PrivateSubCommand1_Click() DimkAsInteger,mAsInteger DimPAsInteger k=4:m=1 P=Pid(k,m):PrintP; P=Pid(k,m):Pri
阅读下面的程序段:Fora=1To2 Forb=1Toa ForC=bTo2 I=I+1 Next NextNextPrintI执行上面的三重循环后,I的值为
关系数据库的概念模型是
在E盘当前目录文件夹下建立一个名为“Student.txt’’的顺序文件,要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。PrivateSubForm_Click( )【】
以下属于VisualBasic中合法的数组元素的是
下列程序段的执行结果为 a=95 Ifa>60Thendegree=1 Ifa>70Thendegree=2 Ifa>80Thendegree=3 Ifa>90Thendegree=4 Print"deg
设有语句Open"c:\Test.Dat"ForOutputAs#1则以下错误的叙述是_________。
下面关于完全二叉树的叙述中,错误的是______。
随机生成的10个两位数,求出它们的总和和平均数。产生两位数采用的算法如下:分别产生个位数(0~9)和十位数(1~9),然后十位数乘10再加上个位数即得到一个两位数。说明:在窗体上有一个Command1按钮,单击它将计算10个随机数的和以及平均数,并
随机试题
体现辛开苦降配伍方法的方剂是
扩张性财政政策是指国家通过财政分配活动刺激和增加社会总需求的一种政策行为。扩张性财政政策最终希望刺激总需求增长,降低失业率,使经济尽快复苏。根据上述定义,下列涉及扩张性财政政策的是:
根据《中华人民共和国土地管理法》,国家编制土地利用总体规划,规定土地用途,将土地分为()。
未经履行出资人职责的机构同意,国有独资企业、国有独资公司的下列行为不符合法律规定的有()。
表示传统师德非常重视严于律己、身体力行、为人表率的模范作用的先哲名言是()。
签发人应标注在文件的()。
悲剧在古希腊文巾意为“山羊之歌”,本是希腊人在祭祀酒神狄奥尼索斯时,以独唱与合唱对答的形式,来歌唱狄奥尼索斯在尘世间所受到的痛苦,以赞美他的再生。由他的死而引起的悲痛,被他的复活而引起的欢乐和喜悦所代替,用来庆祝丰收。这段文字主要表述的是(
在《东方叙事诗》及其他一些作品中,拜伦塑造了一些孤傲的、反抗一切社会制度的叛逆者形象,即著名的_______。
[*]
A—ResearchandAnalysisI—FeedbackandEvaluationB—RoleofDepartmentsJ—PublicOpinionandPersuasionC—Communicationprocess
最新回复
(
0
)