首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
将窗体的KeyPreview属性设为True,然后编写如下程序: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode)
将窗体的KeyPreview属性设为True,然后编写如下程序: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode)
admin
2020-07-22
27
问题
将窗体的KeyPreview属性设为True,然后编写如下程序:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
运行程序时,按下字母键a,则窗体上显示的是
选项
A、 A
A
B、A
a
C、a
A
D、a
a
答案
B
解析
KeyCode是按键的实际的字符(不区分大小写),KeyAscii是以字符为准,是所按键的ASCII码。
转载请注明原文地址:https://kaotiyun.com/show/sjHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个列表框控件List1。以下叙述中错误的是( )。
有如下程序:PrivateSubForm_Click()DimSAsStringS=InputBox("请输入一个字符串:")Fori=1ToLen(S)\2IfMid(S,
在属性窗121中把窗体的KeyPreview属性设置为True,然后编写如下两个事件过程:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintCh
A、选择B、投影C、自然连接D、并A由关系R到关系S为一元运算,排除C和D。关系S是关系R的一部分,是通过选择之后的结果,因此选A。
执行以下程序段:a$="VisualBasicProgramming"b$="C++"c$=UCase(Left$(a$,7))&b$&Right$(a$,12)后,变量c$的值为( )。
窗体上有一个名称为Text1的文本框,一个名称为Combo1的组合框。将文本框中的内容添加到组合框中所使用的命令是
设R是一个2元关系,有3个元组,S是一个3元关系,有3个元组。如T=R×S,则T的元组的个数为()。
要清除已经在图片框Picturel中打印的字符串而不清除图片框中的图像,应使用语句()。
为了将"联想电脑"作为数据项添加到列表框List1的最前面,可以使用语句()。
下列程序执行后,变量x的值为()。Dima,b,C,dAsSingleDimxAsSinglea=10:b=30:c=400Ifb>aThend=a:a=b:b=dEndIf
随机试题
随着微信用户群体不断扩大,微信在流量获取、社群运营、用户规模与黏性方面的优势越发明显,越来越多的教育产品开始________微信生态探索新的服务模式,吸引用户进行________分享,以降低获得新用户的成本,提升用户黏性。依次填入画横线部分最恰当
Thecoreof______islanguageacquisitionwhichisconsideredasubconsciousprocess,dependentontheamountofinputthestud
牙式代表()
开放性骨折最重要的治疗措施是
下列除哪项外,均为妊娠病的发病机制( )。
Kator公司是一家工业元件的制造商。KB-100是用于汽车制造的配件。该产品的单位财务信息如下:Kator公司接到了一个特殊的一次性订单,1000件KB-100。假设Kato产能已饱和,特殊订单会使得边际贡献减少$10000。使用原来的那些数据,接
某自营出口企业为增值税一般纳税人,适用增值税税率为17%,退税率为13%。2007年3月发生如下经济业务:(1)购进一批原材料,增值税专用发票上注明的价款为400万元,增值税税额为68万元,已验收入库。(2)进料加工免税进口料件的组成
涟漪对于()相当于()对于烧灼
Hespendsanhourgoingtoschooleveryday.It______himanhourtogotoschooleveryday.
Wearelockedinagenerationalwar,whichwillgetworsebeforeitgetsbetter.Noonewantstoadmitthis,becauseit’sugly
最新回复
(
0
)