首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图所示。其中装载汽车图案的是Imagel图像框,直线的名称是Linel,另一个定时器,名称为Timer1.已经编写了下面的程序代码: Private Sub Form_Click() Timer1.Enabled=True End Sub
窗体如图所示。其中装载汽车图案的是Imagel图像框,直线的名称是Linel,另一个定时器,名称为Timer1.已经编写了下面的程序代码: Private Sub Form_Click() Timer1.Enabled=True End Sub
admin
2016-06-30
44
问题
窗体如图所示。其中装载汽车图案的是Imagel图像框,直线的名称是Linel,另一个定时器,名称为Timer1.已经编写了下面的程序代码:
Private Sub Form_Click()
Timer1.Enabled=True
End Sub
Private Sub Form_Load()
Timer1.Enabled=False
Timer1.Interval=100
End Sub
Private Sub Timerl_Timer()
If Imagel1.Left+Imagel1.Width<Linel
X1 Then
Imagel1.Left=Imagel1.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/HeLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在一个窗体上有一个命令按钮CmdMax。单击CmdMax时,窗体上显示“字体由小变大”,字号每次增加2。请填空。PrivateSubForm_Load() Form1.Caption="字体变化示范" CmdMax.Captio
下列叙述中正确的是()。
下列叙述中正确的是()。
如果不指明函数过程参数的类型,则该参数的数据类型为______。
通常,将软件产品从提出、实现、使用维护到停止使用退役的过程称为______。
______的任务是诊断和改正程序中的错误。
执行下面的程序段后,变量S的值为______。S=5Fori=2.6To4.9Step0.6S=S+1Nexti
某二叉树中度为2的结点有18个,则该二叉树中有______个叶子结点。
定时器的Interval属性以()为单位指定Timer事件之间的时间间隔。
设“A=“87654321””,则表达式Val(Lef1(A,4)+Mid(A,4,2))的值为()。
随机试题
“扼制点”
未曾接种卡介苗的3岁以下儿童,结核菌素试验阳性提示
下列雕塑中,属于重庆大足石刻的是()。
彤彤行为主动性比较差,但自制力很强,不怕困难,忍耐力高,表现出内刚外柔的特点,其气质类型属于()。
注重学生的情感、责任和人生价值,有利于建立和谐师生关系。这是对()课程论的评价。
5,4.5,13.5,16.5,()
【B1】【B6】
Choosethecorrectletter,A,BorC.Themoneythatthemarketersmadecontributestolocal
BalancingCollegeLifeandAcademics1.ControlYourSchedule;Don’tLetYourScheduleControlYouOrganizationandtimeman
A、Toinvitethemantojointhem.B、ToaskthemantohelpherpreparethedinnerC、Tosuggestpolitelythatthemanshouldgoa
最新回复
(
0
)