首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设窗体上有一个标签Label 1和一个计时器Timer1,Timer1的Interval属性被设置为1000, Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。下列可以实现上述要求的事件过程是( )。
设窗体上有一个标签Label 1和一个计时器Timer1,Timer1的Interval属性被设置为1000, Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。下列可以实现上述要求的事件过程是( )。
admin
2013-04-11
44
问题
设窗体上有一个标签Label 1和一个计时器Timer1,Timer1的Interval属性被设置为1000, Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。下列可以实现上述要求的事件过程是( )。
选项
A、 Private Sub Timer1_Timer() Labell.Caption=True End Sub
B、Private Sub Timer1_Timer() Labell.Caption=Time$ End Sub
C、Private Sub Timer1_Timer() Labell.Interval=1 End Sub
D、Private Sub Timer1_Timer() For k=1 To Timerl.Interval Label1.Caption=Timer Next K End Sub
答案
B
解析
本题考查的考点是有关计时器的。计时器的Interval属性决定了每隔多长时间触发一次Timer事件。本题中Interval设置为 1000,即每1秒触发一次Timer事件。在事件中把标签的Caption属性设置成为当前时间,用Time函数可以得到当前时间。
转载请注明原文地址:https://kaotiyun.com/show/tphp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画—个名称为Text1的文本框,并编写如下程序:PrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSubPriva
在窗体上画—个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimnumAsIntegernum=1DOUntilnum>6
如果—个工程含有多个窗体及标准模块,则以下叙述中错误的是______。
把窗体的KeyPreview属性设置为True,并编写如下两个事件过程:
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Fori=1To4x=4Forj=1To3x
设窗体Form1中有一名为mnuFile的菜单,它只有一个标题为Open的子菜单。为使程序运行时,按下Alt+F键窗体中能够显示如下图所示的菜单项,则mnuFile的标题应为:______。
在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和Command1,然后编写如下程序:PrivateSubfunc(LAslabel,ByValaAsInteger)L.Caption="12
在窗体上画一个文本框,一个命令按钮和一个标签,其名称分别为Text1、Command1和Label1,文本框的Text1属性设置为空白,然后编写如下事件过程:PrivateSubCommand1_Click()x=Int(Val(
随机试题
在经营责任制的考核标准中,()属于对发行质量、服务质量的考核。
银行业金融机构违反审慎经营规则的,国务院银行业监督管理机构或者其省一级派出机构应当首先采取的措施是( )。
法律关系的特征为()。
根据《合同法》,下列关于承诺的说法,正确的是()。
下列()分析是从经济学、金融学、财务管理学及投资学等基本原理推导出的。
甲集团由甲公司(系上市公司)和乙公司组成,甲公司为乙公司的母公司。2×13年1月1日,经股东大会批准,甲公司与甲公司50名高级管理人员和乙公司10名高级管理人员签署股份支付协议。协议规定:①甲公司向集团60名高级管理人员每人授予10万份股票期权,行权条件为
引起呼吸浅快的疾病不包括()。
作为教师,学校要求你结合专业,开设一门能够激发学生兴趣与爱好的选修课程。下列选项,可作为你选择并开发选修课程主要依据的是()。
Whatdoesthemanwant?
Onenightwhilstonpatrol,Inoticedastrangeflickeringlightcomingfromawindowofagroundfloorflat.Closeinspectionr
最新回复
(
0
)