首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1),并把窗体的KeyPreview属性设置为True,然后编写如下代码: Dim SaveAll As String Private Sub Form_Load()
在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1),并把窗体的KeyPreview属性设置为True,然后编写如下代码: Dim SaveAll As String Private Sub Form_Load()
admin
2016-06-30
43
问题
在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1),并把窗体的KeyPreview属性设置为True,然后编写如下代码:
Dim SaveAll As String
Private Sub Form_Load()
Show
Text1.Text=””
Text1.SetFocus
End Sub
Private Sub Commandl.Click()
Text1.Text=LCase(SaveAll)+SaveAll
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后,直接用键盘输入:VB,再单击命令按钮,则文本框中显示的内容为( )。
选项
A、vbVB
B、不显示任何信息
C、VB
D、出错
答案
A
解析
窗体的KeyPreview属性用于设置或获取一个值,该值只是判断按键事件传递到具有焦点的控件前,窗体是否将接收此事件,该属性设为True时,窗体将会接收按键事件。因此在文本框中输入“VB”时,会先触发Form_KeyPress()事件,该事件将输入的字符保存到窗体模块变量SaveAll中,然后才会显示在文本框中。当单击命令按钮时,Lcase函数将变量SaveAll中的字符串“VB"转换为小写,为“vb”,然后与原字符串连接,即“vb”+“VB”,显示在文本框中则为“vbVB”。
转载请注明原文地址:https://kaotiyun.com/show/deLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下能够正确退出循环的是()。
假定有如下事件过程:PrivteSubForm_Click0 DimxAsInteger,nAsInteger x=1 n=0 DoWhilex<28 x=x*3
数据库设计分为以下6个设计阶段:需求分析阶段、______、逻辑设计阶段、物理设计阶段、实施阶段及数据库运行和维护阶段。
数据结构分为逻辑结构与存储结构,线性链表属于______。
当文本框ScrollBars属性设置了非零值,却没有效果,原因是
表达式Str(Len"123’))+Str(77.7)的值是()。
在窗体上画一个名称为Command1的命令按钮,编写如下程序:PrivateSubCommand1_Click()Printp1(3,7)EndSubPublicFunctionp1(xAsSingle,n
在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:PrivateSubForm_Load()Text1.Text=""Text1.SetFocusFori=1To9Sum=Sum+
以下关于多窗体的叙述中,正确的是
将E-R图转换到关系模式时,实体与联系都可以表示成()。
随机试题
下列有关双方交易原则的表述中,正确的有()。
原生动物在污水生物处理中不具备下列哪项作用?()
证券公司部门和岗位的设置应当权责分明、相互牵制;前台业务运作与后台管理支持适当分离,这体现了内部控制制度中( )的要求。
田田因为想妈妈哭了起来,冰冰见状也哭了。过了一会儿,冰冰边擦眼泪边对田田说:“不哭不哭,妈妈会来接我们的。”冰冰的表现属于什么行为?()
刘某是个体工商户。2013年8月30日,县工商局突然以刘某未办理年检为由吊销了刘某的营业执照,并在当日给刘某送达了处罚决定书,决定书上的日期是2013年8月10日。2013年9月4日,刘某向市工商局申请复议,市工商局以超过复议期限为由不予受理。问
以原始社会工艺美术为例,谈谈艺术设计的实用性和审美性的关系
资本家要获得超额剩余价值必须
设D={(x,y)|0≤x≤1,0≤y≤2e},计算
十进制整数75转换成无符号二进制整数是______。
A、Overallhealth.B、Abetterappetite.C、Agoodfigure.D、Aquickerresponse.A
最新回复
(
0
)