首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设工程中有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
34
问题
设工程中有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://jikaoti.com/ti/lzS0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面列表框属性中,是数组的是
下面不属于软件测试实施步骤的是
以下能够设置控件焦点的方法是
设x是整型变量,与函数IIf(x>0,-x,x)有相同结果的代数式是( )。
以下不属于VisualBasic数据文件的是
窗体上有一个名称为Command1的命令按钮,事件过程如下:PrivateSubCommand1_Click() Dimarr_x(5,5)AsInteger Fori=1To3 Forj=2To4 ar
执行以下程序段:a$="VisualBasicProgramming"b$="C++"c$=UCase(Left$(a$,7))&b$&Right$(a$,12)后,变量c$的值为()。
以下能够设置控件焦点的方法是( )。
数据结构中,与所使用的计算机无关的是数据的()。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为。Forml的窗体上画一个名称为Combol的组合框,其宽度为1200,其类型如图2-95所示(即简单组合框)。要求如下:①请按图中所示,通过属性窗口输入”北京”、”
随机试题
Usually,therearetworeasonstopursuescientificknowledge:forthesakeoftheknowledgeitself,andforthepracticaluse
绩效考核的起点是绩效计划中双方制定的______。
下列选项中,属于服务投标文件内容组成中特有的条款是()。
预制安装水池的壁板缝混凝土分层浇筑高度不宜超过()。
教育要适应人的身心发展个别差异性,应做到()。
A.二尖瓣狭窄伴肺动脉高压B.二尖瓣关闭不全C.主动脉瓣狭窄D.主动脉瓣关闭不全E.三尖瓣关闭不全右心室前负荷增加见于
ManyforeignerswhohavenotvisitedBritaincallalltheinhabitantsEnglish,fortheyareusedtothinkingoftheBritishIsle
将考生文件夹下Zoom文件夹中的文件Hegad.exe删除。
【B1】【B16】
Childrenaregettingsofatthattheymaybethefirst【B1】______todiebeforetheirparents,anexpertclaimedyesterday.Today
最新回复
(
0
)