首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
35
问题
窗体上有一个名称为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://kaotiyun.com/show/KLTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在进行逻辑设计时,将E—R图中实体之间联系转换为关系数据库的()。
每所学校都有一名校长,而每个校长只在一所学校任职,则实体学校和实体校长之间的联系是()。
设有如下事件过程:PrivateSubForm—Click()x=0Whilex10x=x+1x=x*xWendPrintxEndSub运行程序,单击窗体
设窗体上有一个水平滚动条HScroll1和一个命令按钮Command1,及下面的事件过程:PrivateSubForm—Load()HScrolll.Min=0HScrolll.Max=100EndSubPrivateSubComman
为了删除列表框中的一个列表项,应使用的列表框方法是()。
下面控件中,没有Caption属性的是()。
下列叙述中错误的是()。
产生100以内(不含100)2位随机整数的VisualBasic表达式是()。
(1)在名称为Forml、标题为“输入”、最大化按钮失效的窗体上画一个名称为I,abell的标签控件,其标题为“输入密码”;再向窗体内画一个名称为Textl的文本框控件,并清空其中的文本。程序执行时,用户在文本框中最多可输入由6个字符组成的密码,密码字符在
随机试题
胰岛素依赖性糖尿病患者,14岁,两天来出现恶心,面色潮红,呼吸深快,渐发生神志模糊以致昏迷。经小剂量胰岛素、补碱、补液等治疗后,出现心悸、期前收缩、乏力,治疗应首先考虑
()是两种目标的互不相容和互相排斥激化的表现。
A、Morepeoplearegatheringtocelebrateholidays.B、MoreandmorepeoplehavemovedtothesouthofArgentina.C、Weatherchange
患者高某,男性,40岁,痔疮手术后,遵医嘱行热水坐浴,操作不当的是
经测定,某井工煤矿的相对瓦斯涌出量为40m3/t,根据《煤矿安全规程》,该煤矿为()矿井。
李某欲立一份代书遗嘱,下列人员中,可以作为遗嘱见证人的是()。
HewasnotasactiveasIhad______himtobe.
Whatisthenameofthehotel?Whatdoesearlybirdmean?
ThenativesofthecontinentofAmericaare______.
A------marketpriceJ------identitycardB------check-intimeK------roomserviceC——pricelistL------luggagelabelD------re
最新回复
(
0
)