首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名称为Text1的文本框;1个名称为Timer1的计时器控件,其Interval属性值为5000,Enabled属性值是True。Timer1的事件过程如下: Private Sub Timer1_Timer() Static
窗体上有1个名称为Text1的文本框;1个名称为Timer1的计时器控件,其Interval属性值为5000,Enabled属性值是True。Timer1的事件过程如下: Private Sub Timer1_Timer() Static
admin
2019-07-30
57
问题
窗体上有1个名称为Text1的文本框;1个名称为Timer1的计时器控件,其Interval属性值为5000,Enabled属性值是True。Timer1的事件过程如下:
Private Sub Timer1_Timer()
Static flag As Integer
Ifflag=0 Then
flag=l:flag=-flag
End If
If flag=l 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分支总也不能被执行
答案
C
解析
计时器控件(Timer)用来完成有规律性时问间隔执行的任务,Interval属性用于设置计时器事件之间的间隔,以毫秒为单位。
本题在每5秒执行一次的Timer事件过程中,通过静态变量flag值的交替变换(即-1和1之间)来控制文本框中文字的颜色,值为-1时为绿色,值为l时为红色。除程序刚启动第一次执行Timer事件过程时,静态变量flag的初始值为0外,其余各次均为-1或1。
转载请注明原文地址:https://kaotiyun.com/show/aiUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下程序段的输出结果是X=1:Y=4DoUntilY>4X=X*Y:Y=Y+1LoopPrintX
执行以下程序段a$="abbacddcba"Fori=6To2Step-2X=Mid(a,i,i):Y=Left(a,i)z=Reght(a,i):z=UCase(XYz)Nexti
在标准模块中用Public关键字定义的变量,其作用域为
下面定义窗体级变量a的语句中错误的是
窗体上有1个Timer1计时器,1个Shapel形状控件,还有下面程序代码:DimflagAsBooleanPrivateSubTimer1_Timer()PrivateSubForm_Load()
使用Line控件在窗体上画一条从(0,0)到(600,700)的直线,则其相应属性的值应是
若要清除列表框控件中的所有列表项,应该使用的方法是
如果要定义一个窗体级变量,定义变量语句的位置应该是
在窗体上建立一个命令控件数组Command1,并双击第一个命令按钮,编写如下事件过程:PrivateSubCommand1_Click(IndexAsInteger)Command1(Index).Caption=Format$
目录列表框Path属性所表示的含义是
随机试题
关于商法的概念可以解释为:()
利用反射波法不仅能判断桥梁基桩桩身混凝土完整性,估算混凝土强度等级,还能估算单桩承载力。()
(2021年济南历下区)18世纪教育家卢梭通过小说体教育名著《爱弥儿》表达了其自然主义教育思想。下列内容不属于卢梭所界定的教育内涵的是()
患者男性,因上前牙牙龈反复出现瘘管,X线片显示根管钙化,经过多次正规治疗后无效,拟行根尖手术拆线后患者复诊时间应为A.1个月B.6个月C.12个月D.A+BE.B+C
李某,男,40岁。因情绪紧张诱发成疾,烦渴引饮,口干喜凉,舌红,苔黄少津,脉象洪大。该病例中医方剂当选
的标签的内容、格式及颜色必须一致。
A.民事责任B.刑事责任C.行政处罚D.行政处分吊销许可证属于()
根据我国《土地管理法》的规定,征用耕地的补偿费用包括土地补偿费、安置补助费以及地上附着物和青苗的补偿费,其中土地补偿费和每一个需要安置的农业人口的安置补助费标准分别为该耕地被征用前3年平均年产值的()。
会计的两项基本职能是相辅相成、辨证统一的关系,下列说法正确的是()。
Simon:IworknotbecauseIlikeitbutthatIhaveto,soIoftencounttheminutesuntilstoppingworkorholidays.Howeve
最新回复
(
0
)