首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设工程中有2个窗体:Form1、Form2,Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后,隐藏:Form1,显示Form2。若口令为“Teache
设工程中有2个窗体:Form1、Form2,Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后,隐藏:Form1,显示Form2。若口令为“Teache
admin
2020-02-27
104
问题
设工程中有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 Text 1.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改为IfKeyAscii="Teacher"Then
D、把2个Form2.input.Visible中的“Form2.”删去
答案
B
解析
原程序的执行流程为,当按下一个键后,激活KeyPress事件,事件中隐藏Form1和显示From2的语句与判断是否按了回车键的语句是顺序的,即不论按了什么键,都会执行隐藏Form1和显示From2的语句。这两句应该上移到第二个Endlf前面,也就是放在判断是否按了回车键的If语句块中。因此B选项正确。
转载请注明原文地址:https://kaotiyun.com/show/sFTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面控件中,没有Caption属性的是()。
设循环队列的存储空间为Q(1:m),初始状态为空。现经过一系列正常的人队与退队操作后,front=m,rear=m-1,此后从该循环队列中删除一个元素,则队列中的元素个数为()。
下列叙述中正确的是()。
有如下语句序列:Dima,bAsIntegerPrintaPrintb执行以上语句序列,下列叙述中错误的是()。
程序运行时,要清除组合框Combolqlt,的所有内容,应使用语句()。
在窗体上画一个命令按钮和一个标签,其名称分别为Commandl和Labell,然后编写如下事件过程:PrivateSubCommandl—Click()Counter=0Fori=1To4Forj=6T
产生100以内(不含100)2位随机整数的VisualBasic表达式是
表达式4+5\6*7/8Mod9的值是()。
能正确表述"x为大于等于5并且小于20的数"的VisualBasic表达式是
建立表示学生选修课程活动的实体联系模型,其中的两个实体分别是()。
随机试题
出皈物成熟期的特点是此时出版物内容、形式等不足开始暴露,同类出版物也明显增多。()
下列选项中,关于法律责任的表述,不正确的是哪些选项?()
根据《防洪法》规定,在蓄滞洪区内建造房屋应采用()结构。
喷射混凝土施工时,喷射作业分段、分层进行,喷射顺序()。
Internet的地址主要有IP和域名两种方式,下列地址表示不正确的是()。
某企业打算对一台技术陈旧的车床进行改良,以实现企业产品的更新换代,增强企业产品的竞争力,已知改良期间,共花费改良费用60000元,全部用银行存款支付。会计人员对此的会计处理应该是()。
设在SQLServer2008中有如下定义触发器的语句:CREATETRIGGERtriONT1INSTEADOFINSERTAS……下列关于该触发器执行机制的说法,正确的是()。
操作系统中的文件管理系统为用户提供的功能是()。
PassageTwoWhatistheconclusionofthewholepassage?
NobodycametoseemewhileIwasout,_____?
最新回复
(
0
)