首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮和一个文本框(名称分别为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
55
问题
在窗体上画一个命令按钮和一个文本框(名称分别为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全国计算机二级
相关试题推荐
定义过程语句中的〈参数表列〉可以是()。
在窗体上画一个命令按钮和两个文本框,其名称分别为Command1、Text1和Text2,然后编写如下程序:DimS1AsString.S2AsStringPrivateSubForm_Load0 Text1.Tex
下列程序的执行结果为()。n=0j=1DoUntiln>2 n=n+1 j=j+n*(n+1)LoopPrintn;j
要使菜单项MenuOne在程序运行时失效,使用的语句是
下面的数组声明语句中正确的是
下列叙述不正确的是()。
表达式(7\3+1)*(18\-1)的值是______。
下列叙述中,不属于测试的特征的是
在窗体上用复制、粘贴的方法建立了一个命令按钮数组,数组名为M1。设窗体Form1标题为“myform1”,双击控件数组中的第3个按钮,打开代码编辑器,写下如下代码:PrivaeSubM1_Click(IndexAsInteger)
对长度为10的线性表进行冒泡排序,最坏情况下需要比较的次数为______。
随机试题
A、原发型肺结核B、血行播散型肺结核C、继发型肺结核D、结核性胸膜炎E、肺外结核60岁男性病人,既往有肺结核史及慢性咳嗽史,X线胸片发现左上肺大片密度增高影,内有透光区,左肺门上提,气管及纵隔左移,应诊断为
初生第一天的新生儿,血常规:血红蛋白160g/L,白细胞21×109/L,N0.60,L0.38,M0.02,HbF60%.,可见少量幼稚红细胞及幼稚中性粒细胞,血常规提示
某女,经来先期,量少或多,色红质稠,手足心热,舌红少苔,脉细数。首选方是
某女,30岁。因服用大量地西泮导致昏迷而入院。诊断为:地西泮急性中毒。此时除洗胃及其他支持疗法外,应给予特异性的解毒药是
甲公司获得了某医用镊子的实用新型专利,不久后乙公司自行研制出相同的镊子,并通过丙公司销售给丁医院使用。乙、丙、丁都不知道甲已经获得该专利。根据《专利法》的规定,下列选项中正确的是()。
适用于生态环境影响评价和预测的方法有()。
深基坑施工中,以提高土体的强度和土体的侧向抗力为主要目的的地基加固处理方法有()。
大面积烧伤病人由于严重脱水,使血钾升高,细胞外液渗透压升高,此时血液中()
在利用结构化开发生命周期法开发系统时,在整个开发过程中最重要的环节是()。
ThefloodinThailandresultedinthefollowingdamagesEXCEPT______.
最新回复
(
0
)