首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮和一个文本框(名称分别为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
59
问题
在窗体上画一个命令按钮和一个文本框(名称分别为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全国计算机二级
相关试题推荐
排序是计算机程序设计中的一种重要操作,常见的排序方法有插入排序、______和选择排序等。
下面程序运行后,单击命令按钮,输出的结果是______。PrivateSubCommand1_Click()Dima%(1To5),i%,s# Fori=1To5 A(i)=i Next S
如果在一新建的工程中使用其他工程已设计好的窗体,可以采用()步骤将其添加到当前工程中。
要使菜单项MenuOne在程序运行时失效,使用的语句是
下列有关数据库的描述正确的是
执行以下语句过程,在窗体上显示的内容是OptionBase0PrirateSubCommand3_Click()Dimd d=Array("a","b","c","d") Printd(1);d(3)
数据库管理系统常见的数据模型有层次模型、网状模型和______3种。
对变量名说法不正确的是()。
以下事件过程可以将打开对话框的标题改为“新时代”的是
下列叙述中,不符合良好程序设计风格要求的是
随机试题
糖皮质激素可用于治疗
为实现政策目标,可设想采用多种方法、手段,以及达到目标的步骤。对这些方法、手段、步骤进行系统表述的文本被称为
经监测,一水体受到原虫污染,水中含有大量的阿米巴包囊。若用该水体作为饮用水源,水质净化过程中大量除去上述生物性污染物的步骤是
分子中含有嘧啶结构的抗肿瘤药有
两段湿水曲柳木板,室内常温,在荷载V作用下,采用螺栓连接,如图所示,螺栓受剪截面的设计承载力与______项数值接近。
某企业第1年初向银行借款500万元,年利率为7%,银行规定每季度计息一次。若企业向银行所借本金与利息均在第4年末一次支付,则支付额为( )万元。
确定同一类任务而紧急情况不同的承办时间()。
从秋季开始,江西省的小学生们告别了沿袭多年的百分制,实行了新型的成绩考核评价机制——“等级+特长+评语”。目前,山东潍坊市小学已经取消了各种形式的统考,废除了“百分制”,代之以“评语+特长+等级”的新的评价标准,严禁以升学率作为考核与评价学校、教师的唯一标
在考生文件夹下,打开文档WORD1.DOCX,按照要求完成下列操作并以该文件名(WORD.DOCX)保存文档。将文中所有错词“纪算机”替换为“计算机”。
Thewaiterinquired________________(我们是否愿意坐在靠窗的座位).
最新回复
(
0
)