首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设工程中有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
59
问题
设工程中有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://kaotiyun.com/show/nmQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
采用链接方式存储线性表的优点是______。
在数据库中,数据的物理独立性是指______。
采用顺序查找方法查找长度为n的线性表时,每个元素的平均查找长度为______。
以下叙述中不正确的是______。
执行下面的程序段后,x的值为______。x=5Fori=3To8Step2x=x+1Nexti
下列程序运行时,单击窗体,执行结果为【】。说明:在窗体上有一Label控件,名为lblDate。DimYAsInteger,mAsInteger,dAsInteger,w1AsIntegerDimRqAsDateD
数据处理的最小单位是______。
以下程序的功能是,产生10个0~1000之间的随机整数,放入数组Arr中,然后输出其中的最大值。请填空。OptionBase1PrivateSubFormClick()DimArr(10)AsIntegerDimMaxAsIn
用随机函数产生(100,200)范围整数的表达式是______。
随机试题
下列选项中,属于政府对企业的电子政务的内容是()
A.保和丸B.枳实导滞丸C.木香槟榔丸D.小承气汤积滞内停,湿蕴生热证,治宜选用何方
天台乌药散与暖肝煎两方组成中均含有的药物是()
对查处的安全事故隐患,应明确()。
背景材料:某高速公路M合同段(K17+300~K27+300),主要为路基土石方工程,本地区岩层构成为泥岩、砂岩互层,抗压强度20MPa左右,地表土覆盖层较薄。在招标文件中,工程量清单列有挖方2400000m3(土石比例为6:4),填方24900
随着时间的推移,固定资产的持有成本和运行成本逐渐增大。()
下列关于企业持有的资产或负债,采用的会计计量属性,表述正确的有()。
ToMissDoughty16September1962,SundayMydear,Well,hereweare-butnothere.YouareinPrinceton,andmeinQuogu
在考生文件夹下LUNDRY文件夹建立一个新文件夹PEASANT.LAN。
Readthetextbelowaboutcustomerloyalty.Inmostofthelines(34-45),thereisoneextraword.Itiseithergrammaticallyin
最新回复
(
0
)