首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图所示。其中载体汽车图案的是Imagel图形框,直线的名称是Linel,另有一个定时器,名称为Timerl。 已经编写了下面的程序代码: Private Sub Form_Click() Timer1.Enabled=True En
窗体如图所示。其中载体汽车图案的是Imagel图形框,直线的名称是Linel,另有一个定时器,名称为Timerl。 已经编写了下面的程序代码: Private Sub Form_Click() Timer1.Enabled=True En
admin
2019-04-29
98
问题
窗体如图所示。其中载体汽车图案的是Imagel图形框,直线的名称是Linel,另有一个定时器,名称为Timerl。
已经编写了下面的程序代码:
Private Sub Form_Click()
Timer1.Enabled=True
End Sub
Private Sub Form_Load()
Timer1.Enabled=False
Timer1.Interval=100
End Sub
Private Sub Timer1_Timer()
If Image1.Left+Imagel.Widh
Image1.Left=Image1.Left+50
End If
END Sub
关于这个程序,下面的说法中正确的是
选项
A、程序运行时单击窗体,则汽车每隔0.1秒向右移动一次,车头到达右边直线时停止
B、程序一运行,汽车就开始每隔0.1秒向右移动一次,车头到达右边直线时停止
C、程序运行时单击窗体,则汽车每隔0.1秒向右移动一次,车中心到达右边直线时停止
D、程序一运行,汽车就开始每隔0.1秒向右移动一次,车中心到达右边直线时停止
答案
A
解析
程序加载时,Form_Load事件被触发。在Form_Load事件中,将计时器设置为"不可用"状态,并将计时器间隔设置为0.1秒;故选项B、D错误。当单击窗体时,Form_Click事件被触发,此时将计时器设置为"可用"状态,当计时器启用时,每隔0.1秒触发一次Form_Timer事件。在Form_Timer事件中,通过if语句判断小汽车车头是否到达右边的直线,如果没有到达,则每隔0.1秒将小汽车向右移动一次,如果到达了右边的直线位置,则停止移动,故选项A正确,选项C错误。本题答案为A。
转载请注明原文地址:https://kaotiyun.com/show/29Up777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面关于直线控件的叙述中正确的是
设有如下程序:PfivateSUbsV(ByValrnAsInteger,nAsInteger)nq=m*2:n=n一5:Printm:nEndSubPrivateSubFormClick()DimxAsInteger,
在窗体上画一个名称为Textl的文本框,并编写如下程序:OptionBase1.PrivateSubFormClick()DimartDimStartAsInteger,FinishAsIntegerSumAsInteg
如果要在窗体上画一个标签,应在工具箱窗口中选择的图标是
下列有语法错误的赋值语句是
设:a=12,b=5,c=7,表达式x=(a\c+aModb)+Int(13/5)的值是
在下面语句或函数中,不能描述选择结构的是
在标准模块中用Public关键字定义的变量,其作用域为
在考生文件夹下有一个工程文件vbsj4.vbp,运行情况如图3-41所示。程序的功能是计算如下:表达式的值:Z=(X+2)^2+(X+3)^3+(x+4)^4+…+(X+N)^N。其中,N和X值通过键盘分别输入到文本框txtN、txtX中。之后如果单击名称
随机试题
Youhavebeenbadlyinjuredinacaraccident.Itisnecessarytogiveyouabloodtransfusionbecauseyoulostagreatdealof
尿素呼气试验是基于下述原理的
固摄受纳清气的脏器是
行政强制实施机关进行行政强制的实施应当遵循行政强制适当原则,这种要求体现在()。
新时期大力弘扬爱国主义精神,必须把坚持爱国主义与拥护社会主义制度有机统一起来,坚定不移地维护社会主义制度。()
【新柏拉图主义】(Neo-Platonism)
下面关于类、对象、属性和方法的叙述中,错误的是( )。
数据的逻辑结构有线性结构和【】两大类。
Relentlessrainstriggeredheavyfloodinginnineprovinces,where68personswerekilled.Thegovernmentpledgedrelieffundsof
A、Becauseheloveseatingcucumbers.B、Becausehehateseatingcucumbers.C、Becausehedoesn’tbelievefishhavefeelings.D、Bec
最新回复
(
0
)