首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名称为Text1的文本框,1个名称为Timer1的计时器,且已在属性窗口将Timer1的Interval属性设置为2000、Enabled属性设置为False。以下程序的功能是,单击窗体,则每隔2秒钟在Text1中显示一次当前时间。 Priva
窗体上有1个名称为Text1的文本框,1个名称为Timer1的计时器,且已在属性窗口将Timer1的Interval属性设置为2000、Enabled属性设置为False。以下程序的功能是,单击窗体,则每隔2秒钟在Text1中显示一次当前时间。 Priva
admin
2015-10-23
47
问题
窗体上有1个名称为Text1的文本框,1个名称为Timer1的计时器,且已在属性窗口将Timer1的Interval属性设置为2000、Enabled属性设置为False。以下程序的功能是,单击窗体,则每隔2秒钟在Text1中显示一次当前时间。
Private Sub Form_Click()
Timer1.
End Sub
Private Sub Timer1_Timer()
Text1.Text=Time()
End Sub
为了实现上述功能,应该在横线处填入的内容为( )。
选项
A、Enabled=True
B、Enabled=False
C、Visible=True
D、Visible=False
答案
A
解析
计时器控件的Interval属性设置为2000,说明计时器事件发生的间隔是2秒,Enable属性设置为False则说明计时器没有激活。根据程序功能,需要在单击窗体时激活计时器,即在窗体单击事件中设置计时器的Enable属性值为True,即Timer1.Enable=True。
转载请注明原文地址:https://kaotiyun.com/show/RDLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
单击命令按钮时,下列程序代码的执行结果为()。PrivateSubProcl(nAsInteger,ByValmASInteger)n=nMod10m=m\10EndSubPriva
要使一个图片框控件能自动地附着在窗体的一条边上,应设置它的()属性。
运行时,当用户向文本框输入新的内容,或在程序代码中对文本框的Text属性进行赋值从而改变了文本框的Text属性时,将触发文本框的()事件。
下列程序段的执行结果为(),n=0Fori=1To3Forj=5To1Step-1n=n+1Nextj,iPrintn;j;I
要清除已经在图片框Picturel中打印的字符串而不清除图片框中的图像,应使用语句()。
下列程序的输出图形是()。Fork=0To360cr=Int(160*RnD)ang=-3.1415926/180*kCircle(2000,2000),500,cr,0,angNext
在窗体上画一个文本框和一个图片框,然后编写下列两个事件过程:PrivateSubForm_C1ick()Textl.Text="VBProgramming"EndSubPrivateSubText1_change()
随机试题
A.湿法制粒压片法B.干法制粒压片法C.半干式颗粒压片法D.粉末直接压片法E.结晶直接压片法将药物和辅料的粉末混合均匀、压缩成大片状或板状后,粉碎成所需大小颗粒后压片。该方法是
下列选项中,只有实质细胞而没有间质的恶性肿瘤是
充分发挥工程价格作用的主要障碍是()。
乙公司于2011年末购入一台设备并投入企业管理部门使用,入账价值为463500元,预计使用年限为5年,预计净残值为13500元.自2012年1月1日起按年限平均法计提折旧。2013年初,由于技术进步等原因,公司将该设备的折旧方法改为年数总和法,预计剩
企业对于其拥有或控制的无形资产,均应当在每期期末对其进行减值测试。()
根据下列资料。回答下列问题。2015年2月,我国快递业务量完成8.2亿件,同比增长18.7%;业务收入完成136.0亿元,同比增长22.5%。消费者对快递业务进行的申诉中,有效申诉(确定企业责任的)占总申诉量的97.6%,为消费者挽回经济损失229.8万
1913,1616,1319,1022,()
我国公安机关工作的宗旨的具体体现是全心全意为人民服务。()
下图是Posner(1990)的一个经典实验的结果,纵坐标为反应时(毫秒),横坐标为字母间隔(秒),请读图并说明:字母间隔(秒)反应时间是字母间隔的函数该研究结果证明或修正了什么理论?
Decidewhichofthechoicesgivenbelowwouldbestcompletethepassageifinsertedinthecorrespondingblanks.Itisallv
最新回复
(
0
)