更多"看体上有一个名称为Timer1的计时器控件，一个名称为shape1的形"的相关试题:
[单项选择]窗体上有一个名称为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
[单项选择]窗体上有一个名称为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秒改变一次颜色
[单项选择]
窗体上有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分支总也不能被执行
[单项选择]窗体上有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分支总也不能被执行
[单项选择]
窗体上有一个名为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毫秒向右移动一次
[单项选择]窗体上有一个名为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秒向右移动一次
[单项选择]VBA“定时”操作中，需要设置窗体的“计时器间隔(Timerlnterval)”属性值。其计量单位是( )。
A. 微秒
B. 毫秒
C. 秒
D. 分钟
[单项选择]VBA“定时”操作中，需要设置窗体的“计时器间隔（TimerInterval）”属性值。其计量单位是（）
A. 微秒
B. 毫秒
C. 秒
D. 分钟
[填空题]
设有一个"计时器"表单如图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。同时，窗体加载时设置其计时器间隔为1 秒、计时器触发事件过程则实现在Text1 文本框中动态显示当前日期和时间。请补充完整。
Private Sub From_Load（）
Me.Timerinterval＝1000
End Sub
Private Sub __________
Me.text1＝Now（）
End Sub
[填空题]在窗体上有一个文本框控件,名称为Text1。同时,窗体加载时设置其计时器间隔为1秒,计时器触发事件过程则实现在Text1l文本框中动态显示当前日期和时间。请补充完整。
Private Sub Form_Load（ ）
Me.Timerl.Interval.=1000
End Sub
Private Sub【 】
Me!textl=Now（ ）
End Sub
