首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjT4.vbp,其窗体如图所示。该程序用来对在上面的文本框中输入的英文字母串(称为“明文”)加密,加密结果(称为“密文”)显示在下面的文本框中。加密的方法为:选中一个单选按钮,单击“加密”按钮后,根据选中的单选按钮后面的数字n
在考生文件夹下有一个工程文件sjT4.vbp,其窗体如图所示。该程序用来对在上面的文本框中输入的英文字母串(称为“明文”)加密,加密结果(称为“密文”)显示在下面的文本框中。加密的方法为:选中一个单选按钮,单击“加密”按钮后,根据选中的单选按钮后面的数字n
admin
2020-04-08
44
问题
在考生文件夹下有一个工程文件sjT4.vbp,其窗体如图所示。该程序用来对在上面的文本框中输入的英文字母串(称为“明文”)加密,加密结果(称为“密文”)显示在下面的文本框中。加密的方法为:选中一个单选按钮,单击“加密”按钮后,根据选中的单选按钮后面的数字n,将“明文”中的每个字母改为它后面的第n个字母(“z”后面的字母认为是“a”,“Z”后面的字母认为是“A”),如图所示。窗体中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不得修改程序中的其他部分和控件的属性。最后将修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤l:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“′”,将问号改为正确的内容。 参考答案(阴影部分是需考生填入的内容) PriVate Sub Commandl_Click() Dim n As Integer, k As Integer, m As Integer Dim c As String,a As String For k=0 To 2 If Opl(k).Value Then n=Val(Opl(k).
Caption
) End If Next k m=Len(Textl.Text) a="" For k=1 To
m
c=Mid$(Textl.Text,
k
,1) c=String(1,Asc(c) +n) If c>"z"Or c>"Z"And c<"a"Then c =String(1,Asc(c) -26) End If
a
=a+c Next k Text2.Text=a End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 【易错提示】单选按钮数组的起始下标为0,而不是l,在循环和判断的时候要特别注意。
解析
根据题意,首先要确定移动的位数,移动的位数是通过单选按钮来选择的,移动的值是由单选按钮的Caption属性值决定的,然后要确定循环的次数,循环的次数是由输入字母的个数决定的。使用Mid()函数取出字符串中的字符,利用Asc()函数返回字符的代码,利用String()函数将字符代码转换成字符。
转载请注明原文地址:https://kaotiyun.com/show/eATp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如果将命令按钮的访问键设置为"D",以下不会触发命令按钮Click事件的操作是
在利用菜单编辑器设计菜单时,为了把组合键"Alt+X"设置为"退出(X)"菜单项的访问键,可以将该菜单项的标题设置为( )。
数据库概念设计的过程中,以下各项中不属于视图没有设计次序的是()。
设已经在窗体上添加了一个通用对话框控件CommonDialogl,以下语句正确的是()。
在程序运行时,下面的叙述中正确的是()。
设窗体上有1个水平滚动条,已经通过属性窗口把它的Max属性设置为1,Min属性设置为100。下面叙述中正确的是( )。
数据库中对概念模式内容进行说明的语言是
表达式12/2\4的值是( )。
以下关于菜单的叙述中,错误的是( )。
在一棵二叉树上,第5层的结点数最多是()。
随机试题
(2012年4月)鲁迅在《新青年》上发表的第一篇白话文小说是________。
某一变压器的初级绕组与次级绕组匝数比大于1,则此变压器为升压变压器。()
在电子商务系统中,完成商务操作,必不可少的步骤包括()以及服务与支持。
睾丸偏坠胀痛,遇寒则剧,治疗以哪一经为主
小山所在的中学组织他们去养老院进行公益劳动,这属于德育方法中的()。
指导治安管理处罚的基本政策是()。
2013年河北省粮食播种面积631.6万公顷,比上年增加1.4万公顷;总产量3365.0万吨,增长3.6%。其中,夏粮产量1402.4万吨,增长3.6%;秋粮产量1962.6万吨,增长3.6%。棉花播种面积48.3万公顷,比上年下降16.5%;总产量45
GrossNationalHappinessInthelastcentury,newtechnologyimprovedthelivesofmanypeopleinmanycountries.However,o
AreyouinterestedinseeingthebeautifulfallfoliageofNewEnglandbuttiredoftrafficjamsandoverbookedhotels?Thenthi
【S1】【S4】
最新回复
(
0
)