首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设工程中有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
44
问题
设工程中有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/LnLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
记时器控件能有规律的以一定时间间隔触发【】事件,并执行该事件过程中的程序代码。
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimaAsInteger,sAsIntegera=8s
软件调试的目的是______。
符号%是声明______类型变量的类型定义符。
在数据管理技术发展过程中,文件系统与数据库系统的主要区别是数据库系统具有______。
在数据管理技术的发展过程中,经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是______。
关系模型的数据操纵即是建立在关系上的数据操纵,一般有【】、增加、删除和修改四种操作。
下面叙述中不正确的是______。
以下控件可以用来实现定时地执行某段代码的是______。
要建立一个随机文件记录学生的信息,下列定义了学生的记录类型,由学号、姓名、五门课程成绩(百分制)组成,下列的定义正确的是()。
随机试题
下列有关信息技术一般控制和应用控制的说法中,错误的是()。
检查显示TPOAb和TgAb滴度显著增高,该病人宜进行下列哪项治疗
患者,男性,58岁。高血压病10余年,近3年余出现胸骨后疼痛,诊断为高血压病、冠心病、心绞痛,给予硝苯地平和p受体阻断剂口服,一天前突然出现气急、咳嗽、咳泡沫样痰。检查:端坐呼吸,血压150/90mmHg,心率106次/分,双肺底闻及啰音,下肢无水肿。
分泌HCO3-的是
A.板状腹B.腹水C.阵发性腹痛并肠鸣音亢进D.腹胀E.墨菲征阳性十二指肠溃疡急性穿孔最重要的临床表现为
下列关于界址点号的变更说法,正确的有()。
对需要结计本月发生额的账户,结计“过次页”的本页合计数应当为自本页第二行起至本页末止的发生额合计数。()
单因子(因素)试验包括()。
软件生命周期是指
TheConceptofStyleStylemaybedefinedasthecharacteristicmannerofpresentationofanyartform.Wedistinguishbetwe
最新回复
(
0
)