首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
2019-03-14
21
问题
窗体上有一个名称为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/6pFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列不能接收焦点的控件是
(1)在名称为Forml的窗体上添加一个名称为Text1的文本框,再建立一个名称为Format的弹出式菜单,含三个菜单项,标题分别为“加粗”、“斜体”、“下划线”,名称分别为M1、M2、M3。请编写适当的事件过程,在程序运行时,当用鼠标右键单击文本框时,弹
在数据库设计中,将E-R图转换成关系数据模型的过程属于
假定有以下函数过程:FunctionFun(SAsString)AsString Dims1AsString Fori=1ToLen(S) s1=LCase(Mid(S,i,1))+s1 Nexti
在利用菜单编辑器设计菜单时,为了把组合键"Alt+X"设置为"退出(X)"菜单项的访问键,可以将该菜单项的标题设置为( )。
在窗体上画两个单选按钮,名称分别为Option1、Option2,标题分别为"宋体"和"黑体";1个复选框(名称为Check1,标题为"粗体")和1个文本框(名称为Text1,Text属性为"改变文字字体"),窗体外观如图所示。程序运行后,要求"宋体"单选
要想使列表框只允许单选列表项,应设置的属性为( )。
(1)在考生文件夹下有一个工程文件sjt3.vbp,窗体中有两个图片框,名称分别为P1、P2.其中的图片内容分别是一架航天飞机和一朵云彩,一个命令按钮,名称为C1,标题为“发射”,还有一个计时器,名称为Timer1。并给出了两个事件过程,但并不完整,要求:
设循环队列为Q(1:m),其初始状态为front=rear=m。经过一系列入队与退队运算后,front=20,rear=15。现要在该循环队列中寻找最小值的元素,最坏情况下需要比较的次数为
以下不能用Print方法输出数据的对象或窗口是
随机试题
导致慢性肺源性心脏病最常见的病因是
患者,女,21岁。头部外伤2小时。CT显示右颞叶前部的高密度团块,鞍上池向左侧移位,而右侧鞍上池变形、变窄。最可能的诊断为
根据《质量管理体系基础和术语》GB/T19000—2008/ISO9000:2005,质量控制的定义是()。
国务院证券监督管理机构由()组成。
当代威胁世界和平与发展的根源是()。
下列表述错误的一项是()。
根据凯恩斯的货币理论,央行提高基准利率将直接导致()。(2009年金融联考)
保证合同约定的保证期间不明确的,保证期间为()
将函数f(x)=ln(4—3x—x2)展开成x的幂级数.
Readingisveryimportantinlearningforeignlanguages.Dosomeforeignlanguagereadingeverydayandtrytofinishoneforeig
最新回复
(
0
)