窗体的左右两端各有 1 条直线,名称分别为 Line1 、 Line2 ;名称为 Shape1 的圆靠在左边的 Line1 直线上 ( 见图 ) ;另有 1 个名称为 Timer1 的计时器控件,其 Enabled 属性值是 True 。要求程序运行后,圆每秒向右移动 100 ,当圆遇到 Line2 停止移动。 为实现上述功能,某人把计时器的 Interval 属性设置为 1000 ,并编写了如下程序: Private Sub Timer1_Timer() For k = Line1.X1 To Line2.X1 Step 100 IfShape1.Left + Shape1.Width