首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设工程中有2个窗体:Forml、Form2,Forml为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Forml的文本框Textl中输入口令并按回车键(回车键的ASCⅡ码为13)后,隐藏Forml,显示Form2。若口令为”XSLNCER”
设工程中有2个窗体:Forml、Form2,Forml为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Forml的文本框Textl中输入口令并按回车键(回车键的ASCⅡ码为13)后,隐藏Forml,显示Form2。若口令为”XSLNCER”
admin
2013-10-06
24
问题
设工程中有2个窗体:Forml、Form2,Forml为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Forml的文本框Textl中输入口令并按回车键(回车键的ASCⅡ码为13)后,隐藏Forml,显示Form2。若口令为”XSLNCER”,所有菜单项都可见:否则看不到”成绩录入”菜单项。为此,某人在Forml窗体文件中编写如下程序:
Private Sub Textl_KeyPress(KeyAscii As Integer)
If KeyAscii=1 3 Then
If Texl.Text=“XSLNCER”Then
Form2.input.Visible=True
Else
Form2.input.Visible=False
End If
End If
Forml.Hide
Form2.Show
End Sub
程序运行时发现刚输入口令时就隐藏了Forml,显示了Form2,程序需要修改。下面修改方案中正确的是( )。
选项
A、把2个Form2.input.Visible中的”Form2”删去
B、把Forml中Textl文本框及相关程序放到Form2窗体中
C、把IfKeyAsii=13 Then改为IfKeyAscii=“XSLNCER”Then
D、把Forml.Hide、Form2.Show两行移动到2个EndIf之问
答案
D
解析
根据题干的描述,刚刚输入口令的第一个字符时就隐藏了Forml显示Form2,与预期的键入回车时才隐藏Forml显示Form2不符,可以判断是在进行KeyAscii条件判断时出了问题。观察代码可以看到,Forml.Hide和Form2.Show语句处于KeyAscii=13的If判断之外,这样无论键入的第一个字符是否是回车都将执行这两条语句,造成了题干描述的错误现象。解决方案也很简单,只要把这两条语句移到两个End If之间,令其受到KeyAscii=13的If判断即可。
转载请注明原文地址:https://jikaoti.com/ti/bg60FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
对于长度为8的顺序存储结构的有序表,若采用二分查找法查找,在等概率的情况下的平均查找长度为______除以8的值。
在数据库中,数据的物理独立性是指______。
用来设置文件中下一个读写位置的语句是______。
单击一次命令按钮之后,窗体中的输出结果为______。PrivateSubCommand1_Click()DimaAsSingleDimbAsSinglea=10b=
在数据流图(DFD)中,带有名字的箭头表示______。
以下叙述中正确的是______。
下述关于数据库系统的叙述中正确的是______。
在运行过程中,要将某窗体设置为不可见,可以设置窗体的______属性。
栈和队列通常采用的存储结构是【】。
栈和队列______。
随机试题
下列关于肠息肉的叙述,不正确的是()
子宫脱垂Ⅲ度是指
钎焊是把( )的钎料金属加热熔化至液态,然后使其渗透到被焊金属接缝的间隙中而达到结合的方法。
【背景资料】某啤酒生产线设备安装工程项目,施工项目部在各工程正式施工开始前,对各项准备工作及影响质量的各因素和有关方面进行了质量控制。施工项目经理部为了确保工程项目质量符合设计意图和国家规范、标准的要求,采用PDCA循环方法对该工程进行质量控制。以下
对于事故调查处理必须坚持()不放过的原则。
下列选项中,对调解的理解错误的是()。
下列各项中,应作进项税额转出处理的有()。
如果丙公司不知乙没有代理权,丙公司是否有权要求甲公司履行合同义务,为什么?如果乙在合法使用该合同专用章期间自己仿照私刻了该印章,在乙完成甲的委托以后,将原合同专用章还给甲,但乙用私刻的印章另外与丙订立了一份合同,丙公司是否有权要求甲公司履行合同义务,为
HowmanypeoplewereshotbytheMexicanpoliceofficers?
Thoughsmallinsize,Switzerlandhasfourofficiallanguages:German,French,ItalianandRomansh,spokenbyfourdifferentEur
最新回复
(
0
)