(33 ) 窗体的左右两端各有 1 条直线 , 名称分别为 Line1 、 Line2 ; 名称为 Shape1 的圆靠在左边的 Line 1直线上(见图);另有 1 个名称为 Timer1 的计时器控件,其 Enable 属性值是 True 。要求程序运行后 ,圆每秒向右移动 100 ,当圆遇到 Line2 时则停止移动。

<img src='https://img2.soutiyun.com/ask/uploadfile/4878001-4881000/81f17d3da44c5fcbf128fd4660382d72.gif' /> 为实现上述功能,某人把计时器的 Interval 属性设置为 1000 ,并编写了如下程序: Private Sub Timer1_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

时间:2023-01-15 13:04:27

相似题目