首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体的左右两端各有1条直线,名称分别为Linel、Line2;名称为Shape1的圆靠在左边的Linel直线上(见图);另有1个名称为Timer1的计时器控件,其Enabled属性值是True。要求程序运行后,圆每秒向右移动100,当圆遇到Line2时则停
窗体的左右两端各有1条直线,名称分别为Linel、Line2;名称为Shape1的圆靠在左边的Linel直线上(见图);另有1个名称为Timer1的计时器控件,其Enabled属性值是True。要求程序运行后,圆每秒向右移动100,当圆遇到Line2时则停
admin
2020-07-22
21
问题
窗体的左右两端各有1条直线,名称分别为Linel、Line2;名称为Shape1的圆靠在左边的Linel直线上(见图);另有1个名称为Timer1的计时器控件,其Enabled属性值是True。要求程序运行后,圆每秒向右移动100,当圆遇到Line2时则停止移动。
为实现上述功能,某人把计时器的Interval属性设置为1000,并编写了如下程序:
Private Sub Timer1_Timer()
For k=Linel.X1 To Line2.X1 Step 100
If Shape1.Left+Shape1.Width
Shape1.Left=Shape1.Left+100
End If
Next k
End Sub
运行程序时发现圆立即移动到了右边的直线处,与题目要求的移动方式不符。为得到与题目要求相符的结果,下面修改方案中正确的是( )。
选项
A、把计时器的Interval属性设置为1
B、把For k=IAnel.X1 To Line2.X1 Step 100和Next k两行删除
C、把For k=Linel.X1 To Line2.X1 Step 100改为For k=Line2.X1 To Linel.X1 Step 100
D、把If Shape1.Left+Shape1.Width
答案
B
解析
在计时器事件中不应再设置步长为100的For循环,应该把For循环去掉,只留下循环体的语句,计时器每秒激发一次,每次判断小球是否移到Line2处,不到就改变自己的Left值即继续移动。因此B正确。
转载请注明原文地址:https://kaotiyun.com/show/vJHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下不属于VisualBasic数据文件的是
窗体上有一个列表框控件List1。以下叙述中错误的是
设窗体的名称为Forml,标题为Win,则窗体的MouseDown事件过程的过程名是
以下说法中正确的是
设有下面程序代码:OptionBase1PrivateSubCommanmd1_Click()Dimx(6)a=Array(4,2,5,1,6,3)b=Array(64,24,98,27,58,41)Fork=1To6x(a(
设有以下定义语句:PrivateTypepointxAsIntegeryAsIntegerEndTypeDimaAspoint下面语句中正确的是
下面程序计算并输出的是PrivatevSubCommand1_Click()a=10:s=0Dos=s+a*a*a:a=a-1LoopUntila<=0PrintsEndSub
窗体上有一个列表框控件Listl。以下叙述中错误的是
窗体上已有1个名称为Pieture1的图片框,要求实现下面2个功能之一:①在窗体上移动鼠标时,立即将Picture1显示在鼠标位置②在窗体上单击鼠标时,立即将Pieture1显示在鼠标位置下面不能实现上述任何功能的事件过程是
随机试题
汉字的特点。
已知随机变量X的分布函数为F(x),若y=g(x)是单调递减函数,则随机变量Y=g(X)的分布函数G(y)=________.
在胸骨左缘第2~4肋间可听到Ⅱ~Ⅳ级喷射性收缩期杂音的先天性心脏病是
A.泻下利水、消肿散结B.泻下逐饮、消肿散结C.泻下去积、消肿散结D.泻下通便、消肿散结E.泻下除胀、消肿散结商陆的功效是
当事人签订买卖房屋或者其他不动产物权的协议,为保障将来实现物权,按照约定可以向登记机构申请预告登记。下列情形中,预告登记失效的有()。
如信用条件为“2/10,n/30”,放弃现金折扣的成本为()。
庐陵孝献王义真,美仪貌,神情秀彻。初封桂阳县公,食邑千户。年十二,从北征大军进长安,留守柏谷坞,除员外散骑常侍,不拜。及关中平定,高祖议欲东还,而诸将行役既久,咸有归愿,止留偏将,不足镇固人心,乃以义真行都督雍、凉、秦三州司州之河东、平阳、河北三郡诸军事、
如果不堆叠,直径16厘米的盘子里面最多可以放多少个边长6公分的正方体?( )
企业使命是()。
已知当χ→0时,-1与cos-1是等价无穷小,则常数a=_______.
最新回复
(
0
)