首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名称为Text1的文本框;1个名称为Timerl的计时器控件,其Interval属性值为5000,Enabled属性值是True。Timer1的事件过程如下: Private Sub Timerl_Timer() Static flag As
窗体上有1个名称为Text1的文本框;1个名称为Timerl的计时器控件,其Interval属性值为5000,Enabled属性值是True。Timer1的事件过程如下: Private Sub Timerl_Timer() Static flag As
admin
2019-04-29
65
问题
窗体上有1个名称为Text1的文本框;1个名称为Timerl的计时器控件,其Interval属性值为5000,Enabled属性值是True。Timer1的事件过程如下:
Private Sub Timerl_Timer()
Static flag As Integer
Ifflag=0 Then
flag=1:flag=-flag
End If
Ifflag=1 Then
Text1.ForeColor=&HFF&’&HFF&为红色
Else
Text1.ForeColor=&HC000&’&HC000
选项
A、每次执行此事件过程时,flag的初始值均为0
B、flag的值只可能取0或1
C、程序执行后,文本框中的文字每5秒改变一次颜色
D、程序有逻辑错误,Else分支总也不能被执行
答案
C
解析
计时器控件(Timer)用来完成有规律性时间间隔执行的任务,Interval属性用于设置计时器事件之间的间隔,以毫秒为单位。本题在每5秒执行一次的Timer事件过程中,通过静态变量flag值的交替变换(即-1和l之间)来控制文本框中文字的颜色,值为一1时为绿色,值为1时为红色。除程序刚启动第一次执行Timer事件过程时,静态变量flag的初始值为0外,其余各次均为-1或1。
转载请注明原文地址:https://kaotiyun.com/show/J2Up777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:PrivateSubCommandlClick()DimmAsInteger,nAsIntegerm=1:n=0DoWhilem
窗体上有1个名称为Commandl的命令按钮,事件过程及函数过程如下:PrivateSubCommandlClick()DimmAsStringm;InputBox(“请输入字符串”)Printpick_str(m)EndSub
窗体上有1个名称为Commandl的命令按钮,事件过程如下:PrivateSubCommandlClick()_Dimx%,y%,z%x=InputBox(“请输入第1个整数”):y=InputBox(“请输入第2个整数”)DoUnti
在窗体上画一个名称为Textl的文本框,并编写如下程序:OptionBase1.PrivateSubFormClick()DimartDimStartAsInteger,FinishAsIntegerSumAsInteg
有下面程序代码:PrivateSubCommandl—Click()a=Array(1,2,3,4,5,6,7,8,9,10)n=UBound(a)Fork=0ToUBound(a)/2Printa(k)*a(n);n=11-lNextk
以下数组定义语句中,错误的是
下面属于白盒测试方法的是
下面叙述中错误的是
设变量x中的值是395,则下面语句的输出是Printx\100+((XMod100)\10)*10+(xMod10)*100
要求如果x被7,除余2,则输出x的值,下列语句中不能实现此功能的语句是
随机试题
甲状腺功能亢进经抗甲状腺药物治疗后,如疗效显著,可出现以下现象
贫血的治疗原则首先是
依据我国民事诉讼法和相关司法解释的规定,下列关于管辖问题的哪一项表述是错误的?()
以募集设立方式设立股份有限公司的,发起人认购的股份不得少于公司股份总数的25%。()
共情在咨询活动中的重要性体现在()。
法兰西第一帝国的皇帝是世界历史上的一位传奇人物,人们对他褒贬不一。这位皇帝是()。
影响资本周转速度的因素有哪些?
下面程序的运行结果是include<stdio.h>main(){inta=28,b;chars[10],*p;p=s;do{b=a%16;if(b<
Whatarethemanandthewomandoing?
Waterprobleminthefuturewillbecomemoreintenseandmorecomplex.Ourincreasingpopulationwilltremendouslyincreaseurba
最新回复
(
0
)