首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设工程中有2个窗体:Form1、Form2,Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后,隐藏Form1,显示Form2。若口令为"Teach
设工程中有2个窗体:Form1、Form2,Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后,隐藏Form1,显示Form2。若口令为"Teach
admin
2018-09-19
43
问题
设工程中有2个窗体:Form1、Form2,Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后,隐藏Form1,显示Form2。若口令为"Teacher",所有菜单都可见;否则看不到"成绩录入"菜单项。为此,某人在Form1窗体文件中编写如下程序:
Private Sub Text11_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
If Text1.Text="Teacher"Then
Form2.input.Visible=True
Else
Form2.input.Visible=False
End If
End If
Form1.Hide
Form2.Show
End Sub
程序运行时发现刚输入口令时就隐藏了Form1,显示了Form2,程序需要修改。下面修改方案中正确的是( )。
选项
A、把Form1中Text1文本框及相关程序放到Form2窗体中
B、把Form1.Hide、Form2.Show两行移到2个End If之间
C、把If KeyAscii=13 Then 改为 If KeyAscii="Teacher" Then
D、把2个Form2.input.Visible 中的"Form2."删去
答案
B
解析
原程序的执行流程为,当按下一个键后,激活KeyPress事件,事件中隐藏Form1和显示From2的语句与判断是否按了回车键的语句是顺序的,即不论按了什么键,都会执行隐藏Form1和显示From2的语句。这两句应该上移到第二个EndIf前面,也就是放在判断是否按了回车键的If语句块中。因此B选项正确。
转载请注明原文地址:https://kaotiyun.com/show/S1Fp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假定有如下的程序段:DimintVarAsIntegerintvar=TruePrintintVar则输出结果是
设有以下过程:PrivateSubproc(xAsInteger,OptionalyAsInteger)Printx,yEndSub针对此过程,下面正确的过程调用语句是
下面不属于需求分析阶段任务的是( )。
以下语句或语句组中,不能找出x、y中最大值的是
在窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。运行后的窗体外观如图所示。设有如下的类型和变量声明:PrivateTypePerson nameAsString*8 majorAsSt
一般情况下,当对关系R和S进行自然连接时,要求R和S含有一个或者多个共有的
计算机软件包括
深度为7的二叉树共有127个结点,则下列说法中错误的是
设某二叉树的前序序列为ABC,中序序列为CBA,则该二叉树的后序序列为
随机试题
战术性计划
对于糖尿病母亲及婴儿情况,以下说法正确的是
标注“冷藏保存”的药品不意味要放入冷冻室;需要冷冻的药品是少数,例如
基本转录因子中直接识、结合TATA盒的是
请在信息齐全、记录格式、书写规范等方面,评价以下交流电压表检定证书及其原始记录实例。1.证书封面×××计量检测科学研究院
新建商品房现售按照销售方式,可分为()。
双重顶的两个高点不一定在同一水平,两者相差少于5%就不会影响形态的分析意义。()
甲公司与乙银行订立一份借款合同,甲公司到期未还本付息。乙银行于还本付息期届满后1年零6个月时向有管辖权的人民法院起诉,要求甲公司偿还本金、支付利息并承担违约责任。乙银行的行为引起诉讼时效中断。( )
我国古代的“三曹”指的是()。
阅读下文,回答问题。有这样一种假说,冬眠是一种高度发达的机能。冬眠的哺乳动物虽然与人类一样都是温血动物,但是它们在更宽范围的调节性上获得了进化,例如在体温调节上,就要比非冬眠动物强。传统认为,哺乳动物冬眠的奥秘在于心脏。无论冬眠动物,还
最新回复
(
0
)