首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设工程中有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
2020-07-22
70
问题
设工程中有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/ltHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程:PrivateSubCommandl_Click()c=1234c1=Trim(Str((c))F
以下选项中,不合法的VisualBasic的变量名是
执行语句DimX,YAsInteger后,
在窗体上画一个文本框,其名称为Text1,然后编写以下程序:PrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSubPrivateSubText1
VisualBasic组合框可表现为简单组合框、下拉式组合框、下拉式列表框三种类型,决定组合框表现为哪种类型的属性是
在窗体上画一个文本框,其名称为Text1,然后编写以下程序:PrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSubPrivateSubText1
一般情况下,当对关系R和S进行自然连接时,要求R和S含有一个或者多个共有的
在设窗体上有一个通用对话框控件CD1,希望在执行下面程序时,打开如图所示的文件对话框:PrivateSubCommand1_Click() CD1.DialogTitle="打开文件" CD1.InitDir="C:" CD1.Filte
为了清除列表框中指定的项目,应使用的方法是( )。
执行以下程序段:a$="VisualBasicProgramming"b$="C++"c$=UCase(Left$(a$,7))&b$&Right$(a$,12)后,变量c$的值为()。
随机试题
下列证据中,属于行政诉讼证据种类的有()
A.表里实热证B.表实寒里虚寒证C.表寒里热证D.表实寒里虚热证新起恶寒,微发热,无汗,咳嗽气喘,舌红苔黄白相间,脉浮数。为
Americaisacountryonthemove.Inunheardofnumbers,peopleofallagesareexercisingtheirwaytobetterhealth.According
囊尾蚴病
常以舌下或喷雾给药控制支气管哮喘急性发作的药物是()。
为了促进本国汽车产业,甲国出台规定,如生产的汽车使用了30%国产零部件,即可享受税收减免的优惠。依世界贸易组织的相关规则,关于该规定,下列哪一选项是正确的?
下列关于证券公司分类监管评价指标体系的说法,正确的有()。Ⅰ.资本充足主要反映以净资本为核心的风险控制指标情况Ⅱ.信息系统安全体现其技术风险管理能力Ⅲ.客户与权益保护体现流动性风险管理能力Ⅳ.公司治理与合规管理主要反映证券公司治
子女教育支出占一生总收入的10%以上是()理财价值观。
下列社会工作者的做法中,体现其对机构伦理责任的有()。
在窗体上画1个命令按钮和2个文本框,其名称分别为Command1、Text1和Text2,然后编写如下事件过程:PrivateSubCommand1_Click()n=0a=Val(Text1.Text)Whil
最新回复
(
0
)