首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的。在窗体上有一个文本框、两个单选按钮及两个命令按钮。文本框的名称为Text1。内空;两个命令按钮的名称分别为Command1与Command2、标题分别为“读取”与“加密”;单
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的。在窗体上有一个文本框、两个单选按钮及两个命令按钮。文本框的名称为Text1。内空;两个命令按钮的名称分别为Command1与Command2、标题分别为“读取”与“加密”;单
admin
2012-10-09
34
问题
在考生文件夹下有工程文件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全国计算机二级
相关试题推荐
下面程序的功能是产生10个小于100(不含100)的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请补充完整。 SubPR() Randomize Dima(10) Forj=1To10 a(i)=Int
设有下面的循环: i=0 Whilei<=1 i=i+3 Printi Wend则运行后的输出结果是
建立打开文件、保存文件、颜色、字体、打印对话框所使用的方法分别为【】、【】、ShowColor、ShowFont和ShowPrinter。
以下关于过程及过程参数的描述中,错误的是
在结构化方法中,软件功能分解属于下列软件开发中
结构化程序设计的主要任务是确定每个模块的
下列语句的输出结果是【】。 PrintFormat$(1256,"000,000.00")
在VisualBasic中,要将一个窗体加载到内存进行预处理但不显示所使用的语句是
下列事件过程的功能是:通过Form_Load事件给数组赋初值为35、48、15、22、67,Form_Click事件找出可以被3整除的数组元素并打印出来。请在空白处填人适当的内容,将程序补充完整。 Dim Arr() Private Su
在运行程序时,在文本框中输入新的内容,或在程序代码中改变Text的属性值,相应会触发到的事件是
随机试题
在慢性肺心病的发病机制中,导致肺动脉高压的最重要因素是
属于单纯性肠梗阻早期局部病理改变的是
牙周炎最好发的牙位是
质量事故的处理依据应当包括()。
加权算术平均指数是()。
甲公司评估战略备选方案时,主要考虑选择的战略是否发挥了企业优势,克服了劣势;是否利用了机会,将威胁削弱到最低程度;是否有助于企业实现目标。甲公司评估战略备选方案使用的标准是()。
2016年,一座“原汁原味迪士尼,别具一格中国风”的主题乐园在上海浦东地区建成并向游客开放,据此完成问题。上海建设迪士尼乐园的主要区位优势是()。①广阔的消费市场②丰富的劳动力③强大的科研力量④海陆空交通便捷
邓小平坚持马克思主义的思想路线,把“解放思想”和“实事求是”联系起来表述,更鲜明地体现了马克思主义思想体系的开放性,体现了它的理论性、实践性和革命性的统一性。()
假若城市的教育资源能够在不同学校之间公平分配,那么就不会出现重点学校与普通学校的区别,也不会有一些老师因教育资源的过度聚集而“暴富”。假若教育资源在地域之间得到公平分配,边远地区的山村学校能获得更多的投入,那么,乡村教育就不会如此艰难。这段文字主要
设f(x)在[0,1]上连续且单调减少,且f(x)﹥0,证明:.
最新回复
(
0
)