首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Text1的文本框;一个名称为Timer1的计时器控件,其Interval属性值为5000,Enabled属性值是True。Timer1的事件过程如下: Private Sub Timer1_Timer() Static flag A
窗体上有一个名称为Text1的文本框;一个名称为Timer1的计时器控件,其Interval属性值为5000,Enabled属性值是True。Timer1的事件过程如下: Private Sub Timer1_Timer() Static flag A
admin
2020-02-27
48
问题
窗体上有一个名称为Text1的文本框;一个名称为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=&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://www.kaotiyun.com/show/KLTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名为Check1的复选框,如果在窗体启动事件中编写语句“Chock1.Enabled=False”,则运行后复选框的状态为()。
设有如下事件过程:PrivateSubForm—Click()x=0Whilex10x=x+1x=x*xWendPrintxEndSub运行程序,单击窗体
有如下程序:PrivateSubForm—Click()DimSAsStringS=InputBox(“请输入一个字符串:”)Fori=1ToLen(S)\2IfMid(S,i,1)Mid(S,Len(S)一i+1,1)Then
在数据库管理技术发展的三个阶段中,没有专门的软件对数据进行管理的是()。
设程序中有以下语句:MsgBox“Visual”,,“Basic”,“等级考试”,2执行该语句后,显示一个信息框,以下关于该信息框的叙述中,正确的是()。
产生100以内(不含100)2位随机整数的VisualBasic表达式是()。
执行以下程序段:a$=“VisualBasicProgramming”b$=“C++”C$=UCase(Left$(a$,7))&b$&Right$(a$,12)后,变量c$的值为()。
数据库应用系统中的核心问题是()。
产生100以内(不含100)2位随机整数的VisualBasic表达式是
随机试题
口腔保健咨询时,对于乳磨牙窝沟封闭的适宜时间,正确回答是
产后三病的内容是产后用药三禁的内容是
心动周期中左心室容积最大的时期是
下列配伍应用的药组中,属于合理联用的是
唐朝对大案、疑案常由大理寺、刑部和御史台长官会同审理,称_________。
吊轨纵横梁法适用于桥涵孔径较大、箱顶无覆盖土的线路加固,且()。
贷款额度是指银行向借款人提供的以()的贷款数额。
甲公司系商贸企业(增值税一般纳税人),适用的增值税税率为17%,题目中收入均为不含税收入。存货发出计价采用先进先出法核算。2018年4月发生的经济业务如下:(1)1日,结存A商品500件,单位成本为350元,已计提存货跌价准备10000元。
A.条件(1)充分,但条件(2)不充分。B.条件(2)充分,但条件(1)不充分。C.条件(1)和(2)单独都不充分,但条件(1)和条件(2)联合起来充分。D.条件(1)充分,条件(2)也充分。E.条件(1)和(2)单独都不充分,条件(1)和条件(2
若数据库中有表STUD,则下列函数实现的功能是FunctionDropPrimaryKey()DimstrSQLAsStringstrSQL="ALTERTABLESTUDDropCONSTRAINTPRIMARY
最新回复
(
0
)