更多"设窗体上有一个标签Label1和一个计时器Timer1,Timer1的"的相关试题:
[单项选择]设窗体上有一个标签Label1和一个计时器Timer1，Timer1的Interval属性被设置为1000，Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是______。
A. Private Sub Timer1_Timer()
B. Private Sub Timer1_Timer()
C. Private Sub Timer1_Timer()
D. Private Sub Timer1_Timer()
[单项选择]设窗体上有一个标签Label1和一个计时器Timer1，Timer1的Interva1属性被设置为1000，Eeabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是（）。
A. Private Sub Timer1_Timer( ) Label1.CaDtion=True End Sub
B. Private Sub Timer1_Timer( ) Label1.Caption=Time$ End Sub
C. Private Sub Timetd_Timer( ) Label1.Interval=1 End Sub
D. Private Sub Timer1 Timer( ) For k=1 To Timer1.Interval Label1.Caption=Timer Next k End Sub
[单项选择]某人在窗体上画一个名称为Timer1的计时器和一个名称为Label1的标签，计时器的属性设置为Enabled=True，Interval=，对应代码如下。希望在程序运行时，可以每2秒在标签上显示一次系统当前时间。
Private Sub Timer1_Timer（ ）
Label1.Caption=Time$
End Sub
在程序执行时发现未能实现上述目的，那么应做的修改是( )
A. 通过属性窗口把计时器的Interval属性设置为2000
B. 通过属性窗口把计时器的Enabled属性设置为False
C. 把事件过程中的Label1.Caption＝Time$语句改为Timer1.Interval＝Time$
D. 把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time
[单项选择]某人在窗体上画了一个名称为Timer 1的计时器和一个名称为Label1的标签，计时器的属性设置为Enabled=True，Interval=0，并编程如下。希望在程序运行时，可以每2秒在标签上显示一次系统当前时间。
Private Sub Timer1_Timer（ ）
Labe11．Caption：Times
End Sub
在程序执行时发现未能实现上述目的，那么，应做的修改是( )。
A) 通过属性窗口把计时器的Interval属性设置为2000
B) 通过属性窗口把计时器的Enabled属性设置为False
C) 把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Time$
D) 把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time
[单项选择]某人在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的标签，计时器的属性设置为Enabled=True，Interval=0，并编程如下。希望在程序运行时，可以每5秒在标签上显示一次系统当前时间。
Private Sub Timer1_Timer（ ）
Label1.Caption=Time $
End Sub
在程序执行时发现未能实现上述目的，那么，他应做的修改是______。
A. 通过属性窗口把计时器的Enabled属性设置为False
B. 通过属性窗口把计时器的Interval属性设置为5000
C. 在Timer1_Timer的事件过程中添加语句Timer1.Interval=500
D. 把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time
[单项选择]某人在窗体上画了一个名称为Timer1的计时器和一个名称为Lab的标签。计时器的属性没置Enabled=True，Interval=0，并进行如下编排。希望每2秒在标签上显示一次系统当前时间。
Private Sub Timer1_Timer（ ）
Label1.Caption=Time$
End Sub
在程序执行时发现未能实现上述目的，那么应做的修改是( )
A. 通过属性窗口把计时器的Interval属性设置为2000
B. 通过属性窗口把计时器的Enabled属性设置为False
C. 把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Time$
D. 把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time
[单项选择]某人在窗体上画了一个名称为Timer1的计时器和一个名称为Labe11的标签，计时器的属性设置为Enabled=True，Interval=0，并编程如下。希望在程序运行时，可以每2秒在标签上显示一次系统当前时间。
Private Sub Timer1_Timer（ ）
Labe11.Caption=Time＄
End Sub
在程序执行时发现未能实现上述目的，那么，应作的修改是( )。
A. 通过属性窗口把计时器的Interval属性设置为2000
B. 通过属性窗口把计时器的Enabled属性设置为False
C. 把事件过程中的Labe11.Caption=Time＄语句改为Timer1.Interval=Time＄
D. 把事件过程中的Labe11.Caption=Time$语句改为Labe11.Caption=Timer1.Time
[单项选择]
看体上有一个名称为Timer1的计时器控件，一个名称为shape1的形状控件，其Shape属性值为3(Cirele)。编写程序如下：
Private Sub Form_Load（ ）
Shape1.Top=0
Timer1.Interval=100
End Sub
Private Sub Timer1_Timer（ ）
Static x As Integer
Shape1.Top=Shape1.Top+100
x=x+1
If x Mod 10=0 Then
Shape1.Top=0
End If
End Sub
以下关于上述程序的叙述中，错误的是（）。
A. 每执行一次Timer1_Timer事件过程，x的值都在原有基础上增加1
B. Shape1每移动10次回到起点，重新开始
C. 窗体上的Shape1由下而上移动
D. Shape1每次移动100
[单项选择]窗体上有一个名为Command1的命令按钮和一个名为Timer1的计时器，并有下面事件过程：
Private Sub Command1_Click（ ）
Timer1.Enabled=True
End Sub
Private Sub Form_Load（ ）
Timer1.Interval=5
Timer1.Enabled=False
End Sub
Private Sub Timer1_Timer（ ）
Command1.Left=Command1.Left+5
End Sub
程序运行时，单击命令按钮，则产生的结果是______。
A. 命令按钮每5毫秒向左移动一次
B. 命令按钮每5毫秒向右移动一次
C. 命令按钮每5秒向左移动一次
D. 命令按钮每5秒向右移动一次
[填空题]
设有一个"计时器"表单如图1所示。表单上有1个计时器控件(Timer1)、4个标签控件、4个文本框控件(Text1、Text2、Text3和Text4)和一个命令按钮控件(Cmd1).表单右上角无最大化和最小化按钮,则表单的两个属性的值为.F.,这两个属性分别是（）;表单运行时Text1文本框始终显示当前的系统时间(由计时器控件负责刷新时间,计时器的相关属性和事件代码已设置);在设计表单时,命令按钮的标题如图1所示,其Caption值应为（）;表单运行后,第一次单击命令按钮,其标题由"开始(B)"变为"停止(B)",且Text2文本框显示当前时间,第二次单击命令按钮,其标题由"停止(B)"变为"退出(B)",且Text3文本框显示当前时间、TEXT4文本框显示用时(Text3文本框的值减去Text2文本框的值).第三次单击命令按钮则关闭表单。命令按钮的Click事件代码应为:
DO CASE
CASE LEFT(THISFORM.Cmd1.Caption,4)=’开始’
THISFORM.Cmd1.Caption=’停止’+SUBS(THISFORM.Cmdl.Caption,5)
THISFORM.Text2.Value=Time（ ）
CASE LEFT(THISFORM.Cmd1.Caption,4)=’停止’
THISFORM.Cmd1.Caption=’退出’+SUBS(THISFORM.Cmd1.Caption,5)
THISFORM.Text3.Value=Time（ ）
THISFORM.Text4.Value=THISFORM.Text3.Value-THISFORM.Text2.Value
CASE LEFT(THISFORM.Cmd1.Caption,4)=’退出’
（）
ENDCASE
[单项选择]窗体上有一个名称为Text1的文本框；一个名称为Timer1的计时器控件，其Interval属性值为2000,Enabled属性值是True。Timer1的事件过程如下：
Private Sub Timer1_Timer（ ）
Static flag As Integer
If flag=0 Then flag=1
flag=-flag
If flag=1 Then
Text1.ForeColor=＆HFF＆'＆HFF＆为红色
Else
Text1.ForeColor=＆HC000＆'＆HC000＆为绿色
End If
End Sub
以下叙述中正确的是______。
A. flag的值只可能取0或1
B. 程序有逻辑错误，Else分支总也不能被执行
C. 每次执行此事件过程时，flag的初始值均为1
D. 程序执行后，文本框中的文字每2秒改变一次颜色
[单项选择]在窗体上有一个文本框控件，名称为TxtTime一个计时器控件，名称为Timer1，要求每1秒钟在文本框中显示一次当前的时间，程序为：
Private Sub Timer1 ______（ ）
TxtTime. text=Time
End Sub
在下划线上应填入的内容是 ______。
A. Enabled
B. Visible
C. Interval
D. Timer
[单项选择]窗体上有1个名称为Text1的文本框；1个名称为Timer1的计时器控件，其Interval属性值为5000，Enabled属性值是True。Timer1的事件过程如下：
Private Sub Timer1_Timer（ ）
Static Flag As Integer
If Flag=0 Then Flag=1
Flag=-Flag
If Flag=1 Then
Text1.ForeColor=＆HFF＆ '＆HFF＆为红色'
Else
Text1.ForeColor=＆HCOO＆ '＆HCOO＆为绿色'
End If
End Sub
以下叙述中正确的是( )
A. 每次执行此事件过程时，Flag的初始值均为0
B. Flag的值只可能取0或1
C. 程序执行后，文本框中的文字每5秒改变一次颜色
D. 程序有逻辑错误，Else分支总也不能被执行
[单项选择]在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件，名称为Timer1，要求每隔一秒钟在文本框中显示一次当前的时间。程序为：
Private Sub Timer1. ______（ ）
TxtTime. text=Time
End Sub
在下划线上应填入的内容是______。
A. Enabled
B. Visible
C. Interval
D. Timer
[单项选择]在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件，名称为Timer1，要求每一秒在文本框中显示一次当前的时间。程序为
Procedure Timer1 ______（ ）
ThisForm.TxtTime.Value=Time
EndProc
A. Enabled
B. Visible
C. Interval
D. Timer
[单项选择]在窗体上有一个文本框控件，名称为TxtTime，一个计时器控件，名称为Timer1，要求每一秒钟在文本框中显示一次当前的时间。程序为：
Private Sub Timer1__________（ ）
TxtTime.Text=Time
End Sub
A. Enabled
B. Visible
C. Interval
D. Timer
[单项选择]在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口 中把计时器的Interval属性设置为1000，Enabled属性设置为False。程序运行后，如果单 击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程 序：
Private Sub Command1_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
[单项选择]在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是______。
A. Timer1. Interval=0.5
B. Timer1. Interval=5
C. Timer1. Interval=50
D. Timer1. Interval=500
