首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设工程中有2个窗体:Form1、Form2,Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后,隐藏For/rd,显示Form2。若口令为“XSLNCE
设工程中有2个窗体:Form1、Form2,Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后,隐藏For/rd,显示Form2。若口令为“XSLNCE
admin
2018-09-19
58
问题
设工程中有2个窗体:Form1、Form2,Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后,隐藏For/rd,显示Form2。若口令为“XSLNCER”,所有菜单项都可见:否则看不到“成绩录入”菜单项。为此,某人在Form1窗体文件中编写如下程序:
Private Sub Text1_KeyPress(KeyAsciiAs Integer)
If KeyAscii=13 Then
If Tex1.Text="XSLNCER"Then
Form2.input.Visible=True
Else
Form2.input.Visible=False
End If
End If
Form1.Hide
Form2.Show
End Sub
程序运行时发现刚输入口令时就隐藏了Form1,显示了Form2,程序需要修改。下面修改方案中正确的是( )。
选项
A、把2个Form2.input.Visible中的“Form2”删去
B、把Form1中Text1文本框及相关程序放到Form2窗体中
C、把IfKeyAsii=13 Then改为IfKeyAscii="XSLNCER"Then
D、把Form1.Hide、Form2.Show两行移动到2个End If之问
答案
D
解析
根据题干的描述,刚刚输入口令的第一个字符时就隐藏了Form1显示Form2,与预期的键入回车时才隐藏Form1显示Form2不符,可以判断是在进行KeyAscii条件判断时出了问题。观察代码可以看到,Form1.Hide和Form2.Show语句处于KeyAscii=13的If判断之外,这样无论键入的第一个字符是否是回车都将执行这两条语句,造成了题干描述的错误现象。解决方案也很简单,只要把这两条语句移到两个EndIf之间,令其受到KeyAscii=13的If判断即可。
转载请注明原文地址:https://kaotiyun.com/show/r6Fp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如果在窗体模块中所有程序代码的前面有语句:Dimx,则x是( )。
要求如果x被7除余2,则输出x的值,下列语句中不能实现此功能的语句是( )。
在窗体上建立三个菜单(名称分别为Read、Calc和Save,标题分别为“读人数据”、“计算并输出”和“存盘”),然后添加一个文本框(名称为Text1,可显示多行,ScrollBars属性设置为2)(如图所示)。程序运行后,如果执行“读人数据”命令,则读入
下列叙述中错误的是
编写如下程序:PrivateSubCommand1_Click()DimiAsInteger,numAsIntegerDimarr(10)AsIntegerFori=0To10arr(
(1)在名称为Form1的窗体上添加一个标签,其名称为Label1。然后通过属性窗口设置窗体和标签的属性,实现如下功能:①窗体标题为“设置标签属性”。②标签的位置为:距窗体左边界500,距窗体顶边界300。③标签的标题为“等级考试”。
若实体A和B是一对一的联系,实体B和C是多对一的联系,则实体A和C的联系是
某二叉树有5个度为2的结点,则该二叉树中的叶子结点数是( )。
深度为5的完全二叉树的结点数不可能是
随机试题
萨迪的代表作是
非合同之债主要包括()。
关于食品添加剂管制,下列哪一说法符合《食品安全法》的规定?(2011年卷一28题,单选)
有些白领留短发,因此,有些留短发的人穿职业装。为使上述推理成立,必须补充以下哪项作为前提?()
下列关于具体劳动和抽象劳动的表述,正确的是()。
设随机变量X,Y独立同分布,且X~N(0,σ2),再设U=aX+bY,V=aX一bY,其中a,b为不相等的常数.求:设U,V不相关,求常数a,b之间的关系.
设f(χ)在χ=a处二阶可导,证明:=f〞(a).
下列关于自由表的说法中,错误的是
Astronautsare______allkindsoftestsbeforetheyareactuallysentupinaspacecraft.
Donatingpartofone’sincometopubliccauses,knownascharitablegiving,usedtobeacommonpractice.But,intheUnitedSt
最新回复
(
0
)