首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体如图所示。其中装载汽车图案的是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
75
问题
窗体如图所示。其中装载汽车图案的是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全国计算机二级
相关试题推荐
下列哪一项使图像(Image)控件中的图像自动适宜控件的大小
如果将布尔常量值True赋值给一个整型变量,则整型变量的值为()。
若要清除列表框的所有内容,则实现的方法是()。
阅读下列程序:PrivateSubCommand1_Click()DimiAsInteger,kAsInteger k=2 Fori=1To3 PrintFun(k); Ne
如果在C盘当前文件下已存在名称为studata.dat的顺序文件,那么执行语句Open"c:studata.dat"ForAppendAs#1之后,将
在窗体上绘制一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:PrivateSubCommand1_Click()a=InputBox("请输入日期(1~31)")t="旅游景点:"_
For-Next循环是一种______确定的循环。
定时器的Interval属性以()为单位指定Timer事件之间的时间间隔。
要求产生10个随机整数,存放在数组arr中。从键盘输入要删除的数组元素的下标,将该元素中的数据删除,后面元素中的数据依次前移,并显示删除后剩余的数据。现有如下程序:OptionBase1PrivateSubC
以下关于多窗体的叙述中,正确的是
随机试题
成年人体内的必需氨基酸是________。
胃肠减压管拔出指征是()
草莓舌见于( )
患者,女性,25岁,5天前不慎被生锈的铁钉刺伤足底,自行包扎处理。12小时前患者出现头痛、烦躁、张口困难、颈项强直。诊断为破伤风。护士为患者家属解释住院期间限制探视的主要目的是
房地产估价的合法原则是针对于()来讲的。
合同转让是合同内容的改变。()
课程资源按存在方式区分,可以分为()
敌意性归因偏差是指在情景不明的情况下,会将对方的动机或意图视为有敌意的倾向。根据上述定义,下列属于敌意性归因偏差的是()。
下面关于8250的叙述中,正确的是( )。
ToSaveTrees,FightingOneAlienInsectwithOthersRustyRheasighswistfullyashetalksaboutthebeautyandpeaceofst
最新回复
(
0
)