更多"设窗体上有一个标签Label1和一个计时器Timer1，Timer1的"的相关试题:
[单项选择]设窗体上有一个标签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
[单项选择]窗体上有一个名称为Label1的标签；一个名称为Timer1的计时器，其Enabled和Interval属性分别为True和1000。编写
如下程序：
Dim n As Integer
Private Sub Timer1_Timer（ ）
ch = Chr( n + Asc( "A" ) )
Label1. Caption = ch
n=n+1
n = n Mod 4
End Sub
运行程序，将在标签中( )。
A. 不停地依次显示字符“A”、“B”、“C”、“D”，直至窗体被关闭
B. 依次显示字符“A”、“B”、“C”、“D”各一次
C. 每隔1秒显示字符“A”一次
D. 每隔1秒依次显示26个英文字母中的一个
[单项选择]在窗体上有一个计时器控件Timer1和一个标签控件Label1，在程序运行时可通过每隔30毫秒让Lable1左移100缇，从而产生文字移动动画效果。文字从右向左移动，当移动到接近窗体左边界时停止移动。空格处应填 ______。 Private Sub Form1_Load（ ） Label1. Left=Form1. Width Timer1. Interval=30 ______ End Sub Private Sub Timer1_Timer（ ） Lable1.Left=Lable1. Left -100 If Lablel. Left＜100 Then Timer1. Enable=False End If End Sub
A. Timer1. Enable=True
B. Label1.Enable=True
C. Timer1. Enable=False
D. Label1. Enable=False
[单项选择]窗体上有一个名称为Timer1的计时器控件，一个名称为Shape1的形状控件，其Shape属性值为3(Circle)。编写程序如下：
Private Sub Form_Load ( )
Shape1. Top = 0
Timer1. Interval = 100
End Sub
Private Sub Timer1_Timer( )
Static x As Integer
Shapel. 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
[单项选择]
看体上有一个名称为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
[填空题]
设有一个"计时器"表单如图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
[单项选择]在窗体上画一个名称为Timer1的计时器、一个名称为Command1的命令按钮和一个名称为Labell的标签。程序如下：
Private Sub Command1_Click（ ）
Timer1．Enabled=True
Timer1．Interval=1000
End Sub
Private Sub Timerl_timer（ ）
Labell．Caption=Time
End Sub
当运行程序后，单击命令按钮，将在标签中显示的内容为
A. Time
B. True
C. 1000
D. 10：06：55
[单项选择]在窗体上绘制一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enadled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：
Private Sub Commandl Click（ ）
Timer1.______
End Sub
Private Sub Timer_Timer（ ）
Text1.Text=Time
End Sub
在横线处应填入的内容是( )。
A. Enabled=Tree
B. Enabled=False
C. Visible=Tree
D. Visible=False
[单项选择]在窗体上画一个文本框和一个计时器控件，名称分别为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
[单项选择]在窗体上画一个文本框和一个计时器控件，名称分别为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
