[单项选择题] 窗体的左右两端各有1条直线,名称分别为Line1、Line2;名称为Shape1的圆靠在左边的Line1直线上(见图);另有1个名称为Timer1的计时器控件,其Enabled属性值是

14 查阅

[单项选择题] 窗体的左右两端各有1条直线,名称分别为Line1、Line2;名称为Shape1的圆靠在左边的Line1直线上(见图);另有1个名称为Timer1的计时器控件,其Enabled属性值是True。要求程序运行后,圆每秒向右移动100,当圆遇到 Line2时则停止移动。为实现上述功能,某人把计时器的Interval属性设置为1000,并编写了如下程序:Private SubTimer1_Timer()For k=Line1.X1 To Line2.X1 Step 100If Shape1.Left+Shape1.Width<Line2.X1 ThenShape1.Left=Shape1.Left+100End IfNext kEnd Sub运行程序时发现圆立即移动到了右边的直线处,与题目要求的移动方式不符。为得到与题目要求相符的结果,下面修改方案中正确的是

A .把计时器的Interval属性设置为1

B .把For k=Line1.X1 To Line2.X1 Step 100和Next k两行删除

C .把For k=Line1.X1 To Line2.X1 Step 100改为For k=Line2.X1 To Line1.X1 Step 100

D .把If Shape1.Left+Shape1.Width<Line2.X1 Then改为If Shape1.Left<Line2.X1 Then

参考答案:

B

Timer1中用了一个循环,只要圆没有到最右边的直线Line2处,这个圆就会一直向右移动。但因为Timer1中本来已经通过设置Interval属性来控制循环,Timer事件中的循环重复了,所以答案为B) 。

计算机考试