首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
22
问题
窗体上有一个名称为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/FHTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生文件夹下有一个工程文件sjt5.vbp,按照要求完成以下操作:在考生文件夹下有一个工程文件sjt5.vbp,按照要求完成以下操作:在名称为Form1的窗体上添加两个命令按钮,其名称分别为C1和C2,标题分别为“读入数据”和“计算”
在窗体上画一个文本框,名称为Text1,然后编写如下程序:PrivateSubForm_Load() Show Text1.Text="" Text1.SetFocusEndSubPrivateSubForm_Click()
某人在窗体模块中定义了如下自定义类型:TypeRecnumAsIntegernameAsStringEndType但发现程序不能运行,关于这一问题,下面叙述中正确的是
下列关于水平滚动条的叙述中,错误的是
以下控件中,能显示滚动条的是
某二叉树的前序遍历序列与中序遍历序列相同,均为ABCDEF,则后序遍历序列为()。
以下选项中,不合法的VisualBasic的变量名是()。
某二叉树共有7个结点,其中叶子结点只有1个,则该二叉树的深度为(假设根结点在第1层)()。
检查软件产品是否符合需求定义的过程称为
检查软件产品是否符合需求定义的过程称为______。
随机试题
下述哪一个是烧伤浅Ⅱ°的临床表现?
锅炉压力容器在正式使用前,必须到当地()登记,经审查批准入户建档、取得使用证后方可使用。使用单位应建立锅炉压力容器的设备档案,保存设备的()等过程的技术资料。
依据国家《自然保护区条例》的规定,自然保护区除了分级以外,还应分区,下列哪个不属于分区内容()
根据下列材料,按要求完成教学设计任务。材料一:《普通高中历史课程标准(2017年版)》规定:通过了解新航路开辟所引发的全球性流动、人类认识世界的视野和能力的改变,以及对世界各区域文明的不同影响,理解新航路开辟是人类历史从分散走向整体过程
某地在农村深入贯彻落实“三个代表”重要思想过程中,当地领导干部本着找准“三农”问题切入点的原则和“搞不好村班子不走,搞不活农村经济不走,搞不掉落后村帽子不走”的目标,住村办公,人户走访,征求意见,提出整改措施,他们为群众跑贷款,帮助招商引资,提供信息、技术
在教育上主张培养“真人”、“至人”的是()。
求函数的导数:y=ef(x).f(ex).
异步传输ATM技术是一种【 】和复用技术。
A、 B、 C、 A
Throughouthistorythebasicunitofalmosteveryhumansocietyhasbeenthefamily.Membersofafamilylivetogetherunderthe
最新回复
(
0
)