首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设工程中有2个窗体:Form1、Form2,Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Textl中输人口令并按回车键(回车键的ASCII码为13)后,隐藏Form1,显示Form2。若口令为“Teacher
设工程中有2个窗体:Form1、Form2,Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Textl中输人口令并按回车键(回车键的ASCII码为13)后,隐藏Form1,显示Form2。若口令为“Teacher
admin
2018-05-08
51
问题
设工程中有2个窗体:Form1、Form2,Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Textl中输人口令并按回车键(回车键的ASCII码为13)后,隐藏Form1,显示Form2。若口令为“Teacher”,所有菜单都可见;否则看不到“成绩录入”菜单项。为此,某人在Form1窗体文件中编写如下程序:
Private Sub Textll_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/XeGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
表达式Sgn(0.25)的值是
在某个事件过程中定义的变量是
下列合法的变量名是
设在窗体上有一个名称为Checkl的复选框数组,并有以下事件过程:PriVateSubCheckl_Click(IndexAsInteger)EndSub则下面叙述中错误的是
下列循环中,可以正常结束的是
编写如下程序:PrivateSubCommand1Click()DimmAsInteger,nAsIntegerm=1:n=0DoWhilem<20
下面程序计算并输出的是PrivateSubCommandl_Click()a=10:s=0Dos=s+a*a*a:a=a-1LoopUnti
以下关于菜单的叙述中,错误的是
以下叙述中错误的是
有如下语句序列:Dima,bAsIntegerPrintaPrintb执行以上语句序列,下列叙述中错误的是( )。
随机试题
对β2受体有选择性激动作用的平喘药是
普鲁卡因不适合
下列哪项不属于医德品质的内容
小儿干疳的主要治法是()。
某建设单位委托设计单位进行工程设计,设计单位指定李某为建筑设计师,李某完成了设计方案并交付建设单位使用,则李某享有的权利是()。
工作规范分析的具体内容包括()。
如果要恢复属性原有的默认值,可以在“属性”窗口中的属性栏上单击鼠标右键,然后在“属性”快捷菜单中选择【】命令。
Youarerequiredtowriteacompositionaboutthetrendofagedpeopletolivealone.Yourcompositionshouldcontainthefollow
Increasinglyoverthepasttenyears,thegeneralpopulation(andespeciallyyoungpeople)hasbecomeawareoftheneedtochange
isgenerallyacceptedthatthesocialstatusofwomenhasbeengreatlyimprovednowadays.
最新回复
(
0
)