首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设工程中有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
2018-12-20
62
问题
设工程中有2个窗体:Form1、Form2,Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后,隐藏Form1,显示Form2。若口令为“Teacher”,所有菜单都可见;否则看不到“成绩录入”菜单项。为此,某人在Form1窗体文件中编写如下程序:
Private Sub Text1l_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/DVFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
向文本框中输入字符时,下面能够被触发的事件是( )。
为了使文本框只具有垂直滚动条,应先把MultiLine属性设置为True,然后再把ScrollBars属性设置为( )。
能够将组合框Combo1中最后一个数据项删除的语句为( )。
面向对象方法中,继承是指( )。
窗体上有一个名称为Command1的命令按钮,编写如下事件过程:PrivateSubCommand1_Click()i=0DoWhilei<6Forj=1Toin
以下关于控件的叙述中,正确的是
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。命令按钮的单击事件过程如下:PrivateSubCommand1_Click()Dimx1AsInteger,x2AsInteger,x3AsIn
在窗体上画一个通用对话框,程序运行中用ShowOpen方法显示"打开"对话框时,希望在该对话框的"文件类型"栏中只显示扩展名为DOC的文件,则在设计阶段应把通用对话框的Filter属性设置为( )。
在软件开发中,需求分析阶段产生的主要文档是( )。
为使文本框具有初始值"VB",在设计阶段正确的操作是
随机试题
在商品经济中,价值规律的作用形式是()
下述哪种化合物中不含高能磷酸键
患者,男,67岁。脑梗死后言语不利15天。查体:张口困难,舌运动困难,发音不清,吞咽障碍,听理解、阅读理解、书写正常。吞咽造影检查作为造影剂的是
患者,女,48岁。平时白带量多,终日不断,质稀清冷,腰膝疫冷,小腹发凉,小便清长,夜尿频多,舌淡苔薄白,脉沉迟。治疗应首选( )。
设平面π的方程为2x-2y+3=0,以下选项中错误的是:
导游讲解要以客观现实为依据。()
关于行政合同,下列表述不正确的是()。
xDSL技术的主要方式有非对称数字用户线(ADSL)、高比特率数字用户线(HDSL)、甚高速数字用户线(VDSL)、单线路数字用户线(SDSL)、【】和基于ISDN的数字用户线路(IDSL)。
在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:PrivateSubCommand1_Click()fori=1To4forj=0ToiPrintChr$(65+
SRAM指的是()。
最新回复
(
0
)