首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设工程中有2个窗体:Form1、Form2,Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后,隐藏Form1,显示Form2。若口令为"Teacher
设工程中有2个窗体:Form1、Form2,Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后,隐藏Form1,显示Form2。若口令为"Teacher
admin
2015-08-28
38
问题
设工程中有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/CELp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮Command1,然后编写如下程序:PrivateSubCommand1_Click()Dimarr()AsIntegerReDimarr(3)Fori=0To
软件工程研究的内容主要包括:______技术和软件工程管理。
设x为整型变量,以下不能正确表达数学关系式2<x<5的VisualBasic表达式为_______。
设有语句:Open"C:\Test.Dat"ForOutputAs#1则以下错误的叙述是:
以下声明语句中错误的是______。
以下关于菜单的叙述中,错误的是______。
执行语句Open"C:\SDat.dat"ForInputAs#2后,系统()。
使用“打开”对话框的方法是()。
在考生文件夹中有一个工程文件execise14.vbp,相应的窗体文件为execise14.rrm。在名为Form1的窗体上有一个命令按钮和一个文本框(如下图所示)。程序运行后,单击命令按钮,即可计算出0~500范围内不能被3整除的所有整数的和,并在文本框
随机试题
谢经理的决策之道谢伟是一家大家大型企业的销售部经理,他聪明机灵,为人诚恳,富有民主意识和进取精神,喜欢听取下属的意见。一天,企业总经理把他叫到办公室,对他说,企业准备推出一个新产品,希望他们能尽快拿出一个切实可行的推广方案。谢经理明确任
屠格涅夫的成名之作是()
在一起人身伤害赔偿案件中,原告举出一张受伤部位的X光片作为证据,该证据属于民事诉讼法规定的何种证据?()
某宾馆筹备处以宾馆名义与某公司签订客户租赁合同,规定自开业时起出租15套客房给该公司。此合同()?
电梯试运行结束后,负责进行校验和调试的单位是()。
各投标人依据招标人提供的工程量清单,根据自身的()填写单价和计算合价。
关于基金投资的风险,以下说法错误的是()。
作为公司法人治理机构的重要组成部分,经理从属于()。
操作系统是计算机系统中的
Accordingtothepassage,anorganismwithouthardbodypartsThefactthatthe"landislargelythesiteoferosion"(line7)
最新回复
(
0
)