首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮Command1和两个文本框,名称分别为Text 1和 Text 2 Text 2。编写如下两个事件过程: Dim str As String, strl As String Private Sub form_
在窗体上画一个命令按钮Command1和两个文本框,名称分别为Text 1和 Text 2 Text 2。编写如下两个事件过程: Dim str As String, strl As String Private Sub form_
admin
2009-03-15
69
问题
在窗体上画一个命令按钮Command1和两个文本框,名称分别为Text 1和 Text 2 Text 2。编写如下两个事件过程: Dim str As String, strl As String Private Sub form_load() TextText = " " TextText = " " TextEnabled = False TextEnabled = False End Sub Private Sub Form KeyPress(KeyAscii As Integer) str= str&Chr(KeyAscii) End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) str1 = strl&Chr(KeyCode) End Sub Private Sub Command1_Click() TextText =str TextText = str1 str= " " str1= " " End Sub 当在设计阶段把窗体KeyPreview属性设置为True时,程序运行过程中,在键盘上输入小写字母abc,然后单击命令按钮,则文本框Text1中显示的内容为 ______ 。
选项
A、abc
B、不显示任何信息
C、ABC
D、出错
答案
1
解析
在Command1的Click事件中将字符串变量str赋给Text1,str变量是在KeyPress事件中被赋值的,语句str=str&Chr(KeyAscii)将输入的字符存储并连接起来,在此处是通过参数KeyAscii来得到输入字符的(因此要区分字母的大小写),又因为在Form的Load事件中将Text1和Text2的Enabled属性设置成了 False,所以当前拥有输入焦点的对象是窗体,为了使窗体能接收键盘事件,已经将窗体的KeyPreview属性设置为了True,所以在输入小写字母abc后,单击Command1,触发其Click事件,使得Text1文本控件的值等于str字符中的值,即abc。
转载请注明原文地址:https://www.kaotiyun.com/show/KW1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
给出下列代码段:inti=3,j;outer:while(i>0){j=3;inner:while(j>0){if(j<=2)break
实现下列哪个接口可以对TextField对象的事件进行监听和处理?()
编译下面源程序文件会得到的文件是()。classA1{}classA2{publicclassB{publicstaticvoidmain(Strin
Java语言的各种数据之间提供两种转换:【】和强制转换。
用HTML文件显示Applet时,下面哪些属性是必不可少的?()
考虑一年四季的顺序关系时下列数据元素前者不是后者前件的是()。
在结构化方法中,软件功能分解属于下列软件开发中的哪个阶段?()
若a=12,b=14,c=0,则表达式((y=(a>B)?a:B)>C)?y:c的值为【】。
随机试题
心跳呼吸骤停最及时有效的抢救措施是
设备可以分为()两种。
《城建监察规定》的适用范围包括()
机电工程项目监督检验的主要内容包括()。
微机中1K字节表示的二进制位数是()。
某修理修配厂(增值税小规模纳税人)2015年6月份购进零配件15000元,支付电费1200元,当月对外提供修理修配业务取得含税收入36000元,该厂当月应缴纳增值税()元。
下面的选文,完成下列问题。经验
甲乙两个公司共有多少人?甲公司80分以上的人比例比乙公司多百分之几?
Recentlythegovernmenthasissuedsomepreferentialpoliciestoencouragecollegestudentstoestablishtheirownbusiness.Whi
A、Removetradebarriers.B、Givemorefinancialaid.C、Transfertechnology.D、Sendprofessionals.A
最新回复
(
0
)