首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设工程中有2个窗体:Forml、Form2,Forml为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Forml的文本框Tcxtl中输入口令并按同车键(回车键的ASCII码为13)后,隐藏Forml,显示Form2。若口令为“Teacher
设工程中有2个窗体:Forml、Form2,Forml为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Forml的文本框Tcxtl中输入口令并按同车键(回车键的ASCII码为13)后,隐藏Forml,显示Form2。若口令为“Teacher
admin
2013-04-11
73
问题
设工程中有2个窗体:Forml、Form2,Forml为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Forml的文本框Tcxtl中输入口令并按同车键(回车键的ASCII码为13)后,隐藏Forml,显示Form2。若口令为“Teacher”,所有菜单项都可见;否则看不到“成绩录入”菜单项。为此.某人在Form1窗体文件中编写如下程序:
Private Sub Text1_KeyPress(KeyAscii As Integer)
IfKeyAscii=13 Then
If Text1.Text=“Teacher”Then
Form2.input.Visible=True
Else
Form2.input.Visible=False
End if
End ff
Forml.Hide
Form2.Show
End Sub
菜单结构
程序运行时发现刚输入口令时就隐藏了Forml,显示了Form2,程序需要修改。下面修改方案中正确的是
选项
A、把Forml中Textl文本框及相关程序放到Form2窗体中
B、把Forml.Hide、Form2.Show两行移到2个End If之间
C、把IfKeyAscii=13 Then改为IfKey Ascii=“Teacher”Then
D、把2个Form2.input.Visible中的“Form2.”删去
答案
B
解析
左原程序中,只要触发文本框控件的keyPress事件。则会执行隐藏Form1,显示Form2语句。所以将Form.Hide和Form2.Show两行移到两个End if之间,在每次输入口令之后,只要不按回车键就不会执行程序,按下后程序会检验是否口令为“Teacher”,是则“成绩录入”可见,否则不可见,之后执行Form1.Hide和Form2.Show。
转载请注明原文地址:https://kaotiyun.com/show/wehp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列语句中,不能实现循环100次的是
将一个窗体设置为MDI子窗体的方法是
下列程序段的执行结果为______。DimA(10),B(5)Fori=1To10A(i)=iNextiFori=1To5B(j)=j*20
要获得当前驱动器应使用驱动器列表框的哪个属性______。
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()StaticyAsIntegerClsFori=0To2
数据库的逻辑结构设计阶段的主要内容是将E-R模型中的实体和【】转换为关系模式。
在结构化分析方法中,用于描述系统中所用到的全部数据和文件的文档称为【】。
以下说法错误的是______。
在下列4个VisualBasic表达式中,非法的表达式是______。
以下能从字符串“VisualBasic”中直接取出子字符串“Basic”的函数是______。
随机试题
MostAmericanpeoplehaterepeatingthesameworkendlessly,especiallythosewholiveinWestAmerica.Theytrytheirbesttom
女性,43岁,肺部听诊可闻及大水泡音,该患者的诊断是
轻型井点系统由井点()和抽水设备组成。
货币供应量过多是通货膨胀产生的根本原因,而货币贬值、物价上涨,则是通货膨胀的表现形式。()
()负责全国储蓄管理工作。
李某系某校中学教师,因故意犯罪被处三年有期徒刑。按照《中华人民共和国教师法》的相关规定,以下说法正确的是()。
远古神话传说“夸父追日”见于我国古代地理名著《山海经》。()
《湘江评论》
A.充填物过高,有早接触B.充填物悬突C.充填材料化学刺激D.牙髓状态判断错误E.对颌牙有不同金属修复体龋齿充填后与对颌牙接触时疼痛,可能的原因是()。
WhatwerethethingsinBritainthatDr.Mathewfoundmoststrangewhenhefirstarrived?
最新回复
(
0
)