首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Text1的文本框,然后编写如下事件过程: Private Sub Form_Load() Text1.Text = "" End Sub Private Sub Text1_KeyDown(KeyCode As Integer
在窗体上画一个名称为Text1的文本框,然后编写如下事件过程: Private Sub Form_Load() Text1.Text = "" End Sub Private Sub Text1_KeyDown(KeyCode As Integer
admin
2019-07-30
22
问题
在窗体上画一个名称为Text1的文本框,然后编写如下事件过程:
Private Sub Form_Load()
Text1.Text = ""
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Const Alt = 4
Const Key_F2 = &H71 ’&H71是F2键的键码
AltD = (Shift And Alt) > 0
F2D = (KeyCode = Key_F2)
If AltD And F2D Then
Text1.Text = "abl"
End If
End Sub
程序运行后,如果按Shift+F2键,则文本框中的内容是
选项
A、Alt+F2
B、abl
C、随机显示
D、不显示任何信息
答案
D
解析
KeyDown事件的参数KeyCode表示按键的键盘码,此题为&H71;参数Shift表示在该事件发生时相应Shift、Ctrl和Alt键的状态,用一个3位的二进制数表示,只有Shift被按下时为001。按下Shift+F2键,条件KeyCode = Key_F2为False,即F2D = False,文本框不显示内容。故正确答案为选项D。
转载请注明原文地址:https://kaotiyun.com/show/hdUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下事件过程:PrivateSubForm_Click()Sum=0Fork=1T03Ifk<=1Thenx=1ElseIfk<=2Thenx=2ElseIfk<=3Thenx=
设窗体上有,1个滚动条要求单击滚动条右端的按钮一次,滚动块移动一定的刻度值,决定此刻度值的属性是
设窗体上有1个名称为HScroll1的水平滚动条,其Max、Min属性分别设置为100、1;有2个名称分别为Option1、Option2的单选按钮,其标题分别为“30”、“50”;还有下面程序代码:PrivateSubOption1_Click()
设有语句Open"c:\Test.Dat"ForOutputAs#1则以下叙述中错误的是
表达式5Mod3+3\5*2的值是
设在一个工程的窗体中有如下代码:PublicxAsIntegerPrivateSubForm_Load()DimYAsIntegerEndSub在该工程的标准模块的声明部分有代码:PublicaAsInteger:Priv
在面向对象方法中,不属于“对象”基本特点的是
下列描述中,不符合良好程序设计风格要求的是
下面不属于需求分析阶段任务的是()。
对建立良好的程序设计风格,下面描述正确的是()。
随机试题
A.妊娠8周以前B.妊娠12周末以前C.妊娠13~27周D.妊娠20~30周E.妊娠28周以后
可治痰火郁结之瘰疬痰核,又可治心惊失眠,烦躁不安,自汗、盗汗等病的药物是
无归经,但有固定的名称、位置的腧穴称为
甲公司清算组的组成人员应该是( )。假设甲公司清算组在清理公司财产、编制资产负债表和财务清单后,发现公司财产不足以清偿债务,应当( ),
丁公司上一条生产线,建造系列厂房,有甲、乙、丙、丁四个车间,分别发包给A、B两家建筑公司,A公司承担甲、乙车间,B公司承担丙、丁车间。甲、丙车间已完工,但未经竣工验收,A公司因施工乙车间,经请示业主,要在甲、丙车间内占用部分地方作加工场地,业主同意了。A公
在项目的组织工具中,()是用以反映项目所有工作任务及其层次关系的。
根据现有规定,个人年收入()万元以上的人群必须进行税务申报。
某研究所为了进行一项重要的实验,将9位学生——F、C、H、J、K、L、M、N和P将被分到3个小组——O、R和W中,每个小组中恰好有3个学生。学生的分配必须满足以下条件。(1)F和G在同一组。(2)K和M在同一组。(3)F和P不
Whatisthespeakerplanning?
Accordingtothepolls,whatwillhappentogunshopsinBrazil?
最新回复
(
0
)