首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设工程中有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
45
问题
设工程中有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全国计算机二级
相关试题推荐
以下关于VB的叙述中,错误的是( )。
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是( )。
窗体上有一个名称为Command1的命令按钮,有程序如下:OptionBase1PrivateSubCommand1_Click()Dima(10)AsInteger’第1个ForFori=1To1
编写如下程序:PrivateSubCommand1_Click()DimxAsString,yAsStringx=Right("abcd",2)y=Mid("dcba",2,3)Ifx>
下面不属于软件需求分析阶段主要工作的是
以下关于文件的叙述中,错误的是
设在当前目录下有一个名为"file.txt"的文本文件,其中有若干行文本。编写如下程序:PrivateSubCommand1_Click() Dimch$,asciiAsInteger Open"file.txt"ForInpu
以下关系表达式中,其值为True的是( )。
为使文本框具有初始值"VB",在设计阶段正确的操作是
随机试题
白虎汤主要用于
中风、昏迷、痫证、厥证共有的主要症状为()
强制检定的计量标准和强制检定的工作计量器具,统称为强制检定的计量器具()。
级配砾石或天然砂砾用做基层时,其重型击实标准的压实度不应小于()。
费用类科目的结构与资产类科目结构完全相同。()
幼儿想象的形象之间常常毫无联系。例如,幼儿绘画常常是画了“小船”,又画“气球”;画了一把“牙刷”,又画了一朵“小花”。这表明幼儿想象的一个特点是()。
农业基本建设是指建设农业高等院校和增加农业投入。()
举例说明学校实施德育的途径。(2016年陕西师大、2014年北京师大、2014年华中师大、2012年南京师大、2010年华东师大)
假设表文件TEST.DBF已经在当前工作区打开,要修改其结构,可使用的命令
In(compare)______withwhatyoupromisedusearlier,whatyouhavedonehasreallydisappointedus.
最新回复
(
0
)