首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮和一个文本框(名称分别为Commandl和Textl),并把窗体的KeyPreview属性设置为True,然后编写如下代码: Dim SaveAll As String Private Sub Form KeyPress(KeyAsc
在窗体上画一个命令按钮和一个文本框(名称分别为Commandl和Textl),并把窗体的KeyPreview属性设置为True,然后编写如下代码: Dim SaveAll As String Private Sub Form KeyPress(KeyAsc
admin
2019-03-08
77
问题
在窗体上画一个命令按钮和一个文本框(名称分别为Commandl和Textl),并把窗体的KeyPreview属性设置为True,然后编写如下代码:
Dim SaveAll As String Private Sub Form KeyPress(KeyAscii—
Private Sub Form Load()As Integer)
Textl.Text=Textl.SetFocusSaveAll=SaveAll+Chr(KeyAscii)
End SubEnd Sub
Private Sub Comman
选项
A、vbVB
B、不显示任何信息
C、VB
D、出错
答案
A
解析
本题考查的考点是有关键盘事件的。KevPreview属性用于设置是否在控件的键盘事件之前激活窗体的键盘事件。KeyPress(KeyAscii As Integer)事件是在对象具有焦点时,按下键盘上的键时触发的事件,KevAscii参数是所按键的ASCII的代码,将每个字符的大、小写形式作为不同的键代码解释。本题中输入“VB”的时候触发了窗体的KeyPress事件,将全局变量SaVeAll设置为了“VB”,所以单击命令按钮后,文本框中的值为“vbVB”。
转载请注明原文地址:https://www.kaotiyun.com/show/jaFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下事件过程:PrivateSubForm_Click()Dimf1AsInteger,f2AsInteger,iAsIntegerDimsAsIntegerf1=1:f2=1s=f1
如果在过程A中用语句:Callproc(a,b)调用下面的过程PrivateSubproc(bAsInteger,ByValaAsInteger)a=a+1b=b*2EndSub则调用结束后
在设计阶段,为了设置某控件的Left属性,可使用的方法是
下列各声明语句中错误的是
编写如下程序:PrivateSubForm_Click() Print"Welcome!"EndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAs
设有下面的语句:PrintIIf(x>0,1,IIf(x
设运行程序时弹出的菜单如图所示.关于该菜单,以下叙述中错误的是( )。
在考生文件央下有一个工程文件sjt5.vbp,包含了所有控件和部分程序。当程序运行时,单击“打开文件”按钮,则弹出“打开”对话框,默认目录为考生目录,默认文件类型为“文本文件”。选中in5.txt文件(如图1所示),单击“打开”按钮。则把文件中的内容读入并
已知:x=-6y=39则表达式"y\x*Sgn(x)"的值为( )。
随机试题
下列关于破伤风的叙述,哪项是正确的?
患者,男,60岁。刺激性咳嗽3周,经抗生素治疗未缓解。胸部x线显示右肺原因不明的阴影。此时进一步检查首先
通奏低音
进入中学,学生经常思考“我是一个什么样的人”“我的未来应怎样"等问题,按照埃里克森的心理社会发展理论,此阶段的主要任务是形成()。(2014·河北)
王同学是一个调皮且不听老师管教的学生,新来的张老师为了找到有效管理王同学的方法,偷看了王同学的日记。张老师的行为侵犯了王同学的()。
地震是地球上的主要自然灾害之一。下列关于地震的说法,错误的是:
遗赠扶养协议和赠与合同的区别表现在()。
在以下ARM处理器的指令操作码中可让寄存器R1中的指定位“置位”的指令操作码是()。
Inadditiontoredistributingincomes,inflationmayaffectthetotalrealincomeandproductionofthecommunity.Anincreasei
WestminsterAbbeyisknownforits______whichhasbeenthetraditionalburialgroundofthemostfamousEnglishpoets.
最新回复
(
0
)