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

题库:计算机等级考试 类型:最佳选择题 时间:2021-06-06 15:12:49 免费下载:《单选题》Word试卷

窗体的左右两端各有1条直线，名称分别为Line1、Line2；名称为Shape1的圆靠在左边的Line1直线上(见图)；另有1个名称为Timer1的计时器控件，其Enabled属性值是True。要求程序运行后，圆每秒向右移动100，当圆遇到 Line2时则停止移动。 为实现上述功能，某人把计时器的Interval属性设置为1000，并编写了如下 程序： Private SubTimer1_Timer（　） For k=Line1.X1 To Line2.X1 Step 100 If Shape1.Left+Shape1.Width＜Line2.X1 Then Shape1.Left=Shape1.Left+100 End If Next k End 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

本题关键词:左腋中线,直线型,直线形,右向左分流型,左向右分流型,直线坡道,直线经理,直线运动,直线相关,直线速度;