首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的。在窗体上有一个文本框、两个单选按钮及两个命令按钮。文本框的名称为Text1。内空;两个命令按钮的名称分别为Command1与Command2、标题分别为“读取”与“加密”;单
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的。在窗体上有一个文本框、两个单选按钮及两个命令按钮。文本框的名称为Text1。内空;两个命令按钮的名称分别为Command1与Command2、标题分别为“读取”与“加密”;单
admin
2012-10-09
16
问题
在考生文件夹下有工程文件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全国计算机二级
相关试题推荐
在窗体上画一个名称为Command1的命令按钮,再画两个名称分别为Label1、Label2的标签,然后编写如下程序代码:PrivateXAsIntegerPrivateSubCommand1_Click(
概要设计是软件系统结构的总体设计,不属于概要设计的是
在E盘当前目录文件夹下建立一个名为“Student.txt’’的顺序文件,要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。PrivateSubForm_Click( )【】
在算法正确的前提下,评价一个算法的两个标准是【】。
单击命令按钮时,下列程序的执行结果是 PrivateSubCommand1_Click() DimaAsInteger,bAsInteger,CAsInteger a=3 b=4 c=5 PrintSec
在程序运行期间可以将图形装入窗体、图片框或图像框的函数是
下列叙述中,正确的是
下列事件过程的功能是:通过Form_Load事件给数组赋初值为35、48、15、22、67,Form_Click事件找出可以被3整除的数组元素并打印出来。请在空白处填人适当的内容,将程序补充完整。 Dim Arr() Private Su
下列有关子菜单的说法中,错误的是
随机生成的10个两位数,求出它们的总和和平均数。产生两位数采用的算法如下:分别产生个位数(0~9)和十位数(1~9),然后十位数乘10再加上个位数即得到一个两位数。说明:在窗体上有一个Command1按钮,单击它将计算10个随机数的和以及平均数,并
随机试题
对于共有财产,部分共有人主张按份共有,部分共有人主张共同共有,如果不能证明财产是按份共有还是共同共有时,应当认定为()。
"三大作风"是中国共产党区别于其他一切政党的显著标志。
于槽症常发生于哪类牙拔除以后
治疗暑热夹湿证最适宜选用的方剂是
控制性详细规划的文本应包括()。
分期付款的买受人未支付到期价款达到全部价款1/5的,出卖人可以要求买受人( )。
位于市区的某制药公司(非科技型中小企业)由外商持股75%且为增值税一般纳税人,该公司2017年主营业务收入5500万元,其他业务收入400万元,营业外收入300万元,主营业务成本3200万元,其他业务成本300万元,营业外支出210万元,税金及附加20万元
警纪处分有()。
下面关于自然连接与等值连接的各个叙述中,不正确的是()。
设(1)证明:A可对角化;(2)求Am.
最新回复
(
0
)