( 26 )窗体上有 1 个名称为 Text1 的文本框; 1 个名为 Timer1 的计时器控件,其 Interval 属性值为5000 , Enable 属性值是 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
B ) flag 的值只可能取 0 或 1
C )程序执行后,文本框的文字每 5 秒改变一次颜色
D )程序有逻辑错误, Else 分支总也不能被执行
第1题:
在窗体上有一个文本框控件,名称为TxtTime;一个计时器控件,名称为Timer1。为了使得每一秒钟在文本框中显示一次当前的时间,应将Interval属性值设置为
A.1)
B.10
C.100
D.1000
第2题:
在窗体上画一个名称为Timer1的计时器控件,要求每隔0.5秒发生一次计时器事件,则以下正确的属性设置语句是
A.Timer1.Interval=0.5
B.Timer1.Interval=5
C.Timer1.Interval=50
D.Timer1.Interval=500
第3题:
( 12 )在窗体上有一个文本框控件,名称为 Text1 。同时,窗体加载时设置其计时器间隔为 1 秒、计时器
触发事件过程则实现在 Text1 文本框中动态显示当前日期和时间。请补充完整。
Private Sub Form_Load( )
Me.TimerInterval =1000
End Sub
Private Sub 【 12 】
Me!text1 = Now( )
End Sub
第4题:
在窗体上有一个文本框控件,名称为TextTime,一个计时器控件,名称为Timer1。要求每一秒在文本框中显示一次当前的时间。 Private Sub Timer1______ TextTime.Text=Time End Sub 在横线上应填入的内容是( )。
A.Enabled
B.Visible
C.Timer()
D.Interval
第5题:
在窗体上有若干控件,其中有一个名称为,Text1的文本框。影响Text1的Tab顺序的属性是________。
A.TabStop
B.Enabled
C.Visible
D.TabIndex