首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设工程中有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-05-08
73
问题
设工程中有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/HvGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在关系数据库中,用来表示实体间联系的是
一间宿舍可住多个学生,则实体宿舍和学生之间的联系是
下列叙述中正确的是
数据字典(DD)所定义的对象都包含于
有如下程序:PrivateSubForm_Click()DimiAsInteger,sumAsIntegersum=0Fori=2To10IfiMod2<>0AndiMod3=0Thensum=su
在窗体上画一文本框,其名称为Textl,为了在程序运行后隐藏该文本框,应使用的语句为
在考生目录下有一个工程文件sjt5.vbp,其窗体上有两个标签L1和L2,标题分别为”口令”和”允许次数”;一个命令按钮Cl,标题为”确定”;两个文本框名称分别为Textl和Text2。其中Textl用来输入口令(输入时,显示”*”),无初始内容;Text
下列选项中属于面向对象设计方法主要特征的是()。
若实体A和B是一对一的联系,实体B和C是多对一的联系,则实体A和C的联系是
随机试题
如何拆装空调电磁离合器?
患者,男,42岁。左下肢静脉曲张15年,逐渐加重。体检:左小腿大隐静脉重度曲张,胫前凹陷性肿胀。了解深静脉瓣膜功能的损害程度采用
A.卵泡囊肿B.黄体囊肿C.卵巢萎缩D.卵泡交替发育E.卵巢机能不全母牛,4岁,产后2个多月未见发情。直肠检查发现一侧卵巢比对侧正常卵巢约大1倍,其表面有一3.0cm的突起,触摸该突起感觉壁厚,子宫未触及怀孕变化。该牛可能发生的疾病是()
下列哪项不是哮喘缓解期肾气虚弱证的特征
设f(x)在积分区间上连续,则∫-aasinx[f(x)+f(一x)]dx等于()。
在Word中编辑文档时,如果不小心做了误删除操作,可以恢复删除内容的是( )。
根据下列材料,回答问题。从手机网民所占的比重来看,增长速度最大的年份是()年。
arbitrageofexchange
设有如下的程序段:n=0Fori=1To3Forj=jToIFork=jTo3n=n+lNextk
将考生文件夹下HYR文件夹中的文件MOUNT.PQR在同一文件夹下再复制一份,并将新复制的文件改名为BASE.VUE。
最新回复
(
0
)