更多"窗体上有一个名称为Picture1的图片控件，一个名称为Timer的计"的相关试题:
[单项选择]窗体上有一个名为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秒向右移动一次
[单项选择]窗体上有一个名称为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个英文字母中的一个
[单项选择]窗体上有一个名称为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秒改变一次颜色
[单项选择]窗体上有一个名称为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
[单项选择]窗体上有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分支总也不能被执行
[单项选择]某人在窗体上画一个名称为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
[单项选择]某人在窗体上画了一个名称为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
[单项选择]某人在窗体上画了一个名称为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的计时器和一个名称为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
[单项选择]设窗体上有一个标签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
[单项选择]设窗体上有一个标签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()
[单项选择]
窗体上有一个名为Command1的命令按钮和一个名为Timed的计时器，并有下面的事件过程：
Private Sub Command1_Click（ ）
Timer1. Enabled=True
EndSub
Private Sub Form_Load（ ）
Timer1. Interval=10
Timed. Enabled=False
End Sub
Private Sub Timer1_Timer（ ）
Command1. Left=Command1. Left+10
End Sub
程序运行时，单击命令按钮，则产生的结果是（）。
A. 命令按钮每10秒向左移动一次
B. 命令按钮每10秒向右移动一次
C. 命令按钮每10毫秒向左移动一次
D. 命令按钮每10毫秒向右移动一次
[单项选择]
窗体上有1个名称为Text1的文本框；1个名称为Timer的计时器控件，其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=&HPP& ’&HFF&为红色
Else
Text1.ForeColor=&HC000& ’&HC000&为绿色
End If
End Sub
以下叙述中正确的是（）
A. 每次执行此事件过程时，flag的初始值均为0
B. flag的值只可能取0或1
C. 程序执行后，文本框中的文字每5秒改变一次颜色
D. 程序有逻辑错误，Else分支总也不能被执行
[单项选择]在窗体上画一个名称为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
[单项选择]在窗体上有一个计时器控件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
