单项选择题

窗体上有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分支总也不能被执行
<上一题 目录 下一题>
热门 试题

单项选择题
标准模块中有如下程序代码： Public x As Integer，y As Integer Sub var pub() x=10：y=20 End Sub 在窗体上有1个命令按钮，并有如事件过程： Private Sub Command1 Click() Dim x As Integer Call var pub x=x+100 y=y+100 Print x；y End Sub 运行程序后单击命令按钮，窗体上显示的是( )。
A．100 100
B．100 120
C．110 100
D．110 120
单项选择题
设窗体上有1个水平滚动条，已经通过属性窗V1把它的Max属性设置为1，Min属性设置为100。下面叙述中正确的是( )。
A．程序运行时，若使滚动块向左移动，滚动条的Value属性值就增加
B．程序运行时，若使滚动块向左移动，滚动条的Value属性值就减少
C．由于滚动条的Max属性值小于Min属性值，程序会出错
D．由于滚动条的Max属性值小于Min属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动
相关试题