首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Text1的文本框;一个名称为Timer1的计时器控件,其Interval属性值为5000,Enabled属性值是True。Timer1的事件过程如下: Private Sub Timer1_Timet() Static fl
窗体上有一个名称为Text1的文本框;一个名称为Timer1的计时器控件,其Interval属性值为5000,Enabled属性值是True。Timer1的事件过程如下: Private Sub Timer1_Timet() Static fl
admin
2020-07-22
18
问题
窗体上有一个名称为Text1的文本框;一个名称为Timer1的计时器控件,其Interval属性值为5000,Enabled属性值是True。Timer1的事件过程如下:
Private Sub Timer1_Timet()
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分支总也不能被执行
答案
C
解析
程序中flag被定义为Static变量,它的值只在第一次执行事件过程时为0,以后每次执行计时器事件过程它的值都会保留上次过程中运算后的值,之后它的值是1或一1。文本框控件的ForeColor。属性表示文本框中文字的颜色,计时器控件的Interval属性为5000,即计时器间隔为5秒钟一次,每次调用就会交替改变文本框中文字的颜色。因此C选项正确。
转载请注明原文地址:https://jikaoti.com/ti/BIS0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在VisualBasic中,所有标准控件都具有的属性是
在窗体上画一个命令按钮(名称为Command1),并编写如下代码:FunctionFun1(ByValaAsInteger,bAsInteger)AsIntegerDimtAs.Integer
设变量x中的值是395,则下面语句的输出是Printx\100+((xMod100)\10)*10+(xMod10)*100
设有如下程序:PrivateSubsV(ByValmAsInteger,nAsInteger)m=m*2:n=n-5:Printm;nEndSubPrivateSubForm_Click()DimxA
以下叙述中错误的是()。
有数据定义语句:DimX,YAsInteger以上语句表明
窗体上有一个名称为Combol的组合框,为了引用Combol中最后一个列表项,应使用的表达式是
将E-R图转换为关系模式时,实体和联系都可以表示为( )。
公司中有多个部门和多名职员,每个职员只能属于一个部门,一个部门可以有多名职员。则实体部门和职员间的联系是
以下关于图片框控件的说法中,错误的是
随机试题
在ABO反定型中使用O型红细胞的目的是
患者,女性,26岁,症见右下肢暗红糊中,灼热疼痛,溃烂腐臭,发热,口渴,舌红脉数者。治宜选用
女,40岁。双手第2、第3近端指间关节肿痛6周,晨僵>1小时。实验室检查:Hb90g/L,WBC4.3×109/L,PLT433×109/L,抗环瓜氨酸肽抗体(+),ANA(一)。最可能的诊断是()
既能开窍醒神,又能够治疗各种疮疡、咽喉肿痛、目疾、口疮等的常用药物是()
张某被判处无期徒刑,王某被判处拘役,李某被判处有期徒刑10年,赵某被判处死刑缓期2年执行。在符合法律规定的其他条件下,对谁可以依法暂予监外执行?()(2002年司考,卷二,第20题)
甲省乙市,现有人口45万,根据土地利用年度计划,乙市年农用地转用计划指标为80hm2随着经济的发展,经乙市公路局申请,甲省人民政府决定占用乙市符合土地利用总体规划的土地120hm2(其中耕地70hm2未利用土地50hm2改建连接乙市和丙市的一条高速公路。通
农业社会教育的特征包括()。
下列选项中,应认定为寻衅滋事罪的是()。(2018一专一20、2018一法专一10)
辩证法三大规律均是对“发展”的观点进行深化和拓展,其中“量变质变规律”解释了事物发展的
PresidentBarackObamaclaimedprogressWednesdayinhissecond-termdrivetocombatclimatechangebutsaidmoremustbedonet
最新回复
(
0
)