窗体上有1个名称为Text1的文本框；1个名称为Timer1的计时器控件，其Interval属性值为5000，Enabled属性值是True。Timer1的事件过程如下： Private Sub Timer1_Timer() Static

admin2020-04-18 32

问题窗体上有1个名称为Text1的文本框；1个名称为Timer1的计时器控件，其Interval属性值为5000，Enabled属性值是True。Timer1的事件过程如下：
Private Sub Timer1_Timer()
Static flag As Integer
Ifflag=0 Then
flag=l：flag=-flag
End If
If flag=l 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

解析计时器控件(Timer)用来完成有规律性时问间隔执行的任务，Interval属性用于设置计时器事件之间的间隔，以毫秒为单位。
本题在每5秒执行一次的Timer事件过程中，通过静态变量flag值的交替变换(即-1和1之间)来控制文本框中文字的颜色，值为-1时为绿色，值为l时为红色。除程序刚启动第一次执行Timer事件过程时，静态变量flag的初始值为0外，其余各次均为-1或1。

转载请注明原文地址:https://www.kaotiyun.com/show/teTp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

窗体上有1个名称为Text1的文本框；1个名称为Timer1的计时器控件，其Interval属性值为5000，Enabled属性值是True。Timer1的事件过程如下： Private Sub Timer1_Timer() Static

二级VB

NCRE全国计算机二级

在窗体上有2个图片框，名称分别为Picture1和Picture2，Picture2中添加了香蕉图片(见下左图)，且将Picture2．DragMode属性设置为1。要求程序运行时，可以用鼠标把Picture2拖拽到Picturel中(见下右图)。以下可以

下面是求最大公约数的函数的首部()。Functionfun(ByValxAsInteger，ByValyAsInteger)AsInteger若要输出8、12、16这3个数的最大公约数，下面正确的语句是

下列程序执行后，变量a的值为()。Dima，b，C，dAsSinglea＝10：b＝20：c＝40Ifb＞aThend＝a：a＝b：b＝dEndIfIfc＞aThen

数据库系统在其内部具有3级模式，用来描述数据库中全体数据的全局逻辑结构和特性的是()。

下列程序段的执行结果为()。a＝0：b＝1Doa＝a＋b：b＝b＋1LoopWhilea＜10Printa：b

窗体如图所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Command1)，则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能：PrivateSubCommand1Click()

下面有关标准模块的叙述中，错误的是()。

设有一个有10个元素的数组，下列程序将该数组的第1个元素与第10个元素交换，第2个元素与第9个元素交换……，第5个元素与第6个元素交换，在横线处应填写()。PrivateSubCommand1_Click()Dima(1

下列有关过程的叙述中错误的是()。

A．不易透过血脑屏障B．能渗入骨及其他组织C．二者均是D．二者均否

柔嫩艾美耳球虫病的病变主要在()。

细菌性肝脓肿不应有

药材横断面异型维管束成数轮同心环状排列的药材有

小李为了打官司，准备委托一个诉讼代理人，下面的人物．中，哪个不能成为其诉讼代理人?()

路线价是附设在街道上的若干标准临街宗地的平均价格。()

汽车运输爆破器材时，汽车行驶在视线良好的情况下，时速不得超过()。

能同时被1，2，3，4，5，6，7，8，9，10整除的最小正整数为(　)。

Therelationshipbetweenemployersandemployeeshasbeenstudied______.

戊戌维新运动是一次爱国救亡运动，维新派在民族危亡的关键时刻()

窗体上有1个名称为Text1的文本框；1个名称为Timer1的计时器控件，其Interval属性值为5000，Enabled属性值是True。Timer1的事件过程如下： Private Sub Timer1_Timer() Static

二级VB

NCRE全国计算机二级

在窗体上有2个图片框，名称分别为Picture1和Picture2，Picture2中添加了香蕉图片(见下左图)，且将Picture2．DragMode属性设置为1。要求程序运行时，可以用鼠标把Picture2拖拽到Picturel中(见下右图)。以下可以

下面是求最大公约数的函数的首部()。Functionfun(ByValxAsInteger，ByValyAsInteger)AsInteger若要输出8、12、16这3个数的最大公约数，下面正确的语句是

下列程序执行后，变量a的值为()。Dima，b，C，dAsSinglea＝10：b＝20：c＝40Ifb＞aThend＝a：a＝b：b＝dEndIfIfc＞aThen

数据库系统在其内部具有3级模式，用来描述数据库中全体数据的全局逻辑结构和特性的是()。

下列程序段的执行结果为()。a＝0：b＝1Doa＝a＋b：b＝b＋1LoopWhilea＜10Printa：b

窗体如图所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Command1)，则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能：PrivateSubCommand1Click()

下面有关标准模块的叙述中，错误的是()。

设有一个有10个元素的数组，下列程序将该数组的第1个元素与第10个元素交换，第2个元素与第9个元素交换……，第5个元素与第6个元素交换，在横线处应填写()。PrivateSubCommand1_Click()Dima(1

下列有关过程的叙述中错误的是()。

A．不易透过血脑屏障B．能渗入骨及其他组织C．二者均是D．二者均否

柔嫩艾美耳球虫病的病变主要在()。

细菌性肝脓肿不应有

药材横断面异型维管束成数轮同心环状排列的药材有

小李为了打官司，准备委托一个诉讼代理人，下面的人物．中，哪个不能成为其诉讼代理人?()

路线价是附设在街道上的若干标准临街宗地的平均价格。()

汽车运输爆破器材时，汽车行驶在视线良好的情况下，时速不得超过()。

能同时被1，2，3，4，5，6，7，8，9，10整除的最小正整数为( )。

Therelationshipbetweenemployersandemployeeshasbeenstudied______.

戊戌维新运动是一次爱国救亡运动，维新派在民族危亡的关键时刻()

能同时被1，2，3，4，5，6，7，8，9，10整除的最小正整数为(　)。