[填空题] 窗体如图2所示，其中汽车是名称为Image1的图像框，命令按钮的名称为command1，计时器的名称为Timer1，直线的名称为Line1。程序运行时，单击命令按钮，则汽车每0.1s向左移

23 查阅

[填空题] 窗体如图2所示，其中汽车是名称为Image1的图像框，命令按钮的名称为command1，计时器的名称为Timer1，直线的名称为Line1。程序运行时，单击命令按钮，则汽车每0.1s向左移动100，车头到达左边的直线时停止移动。请填空完成下面的属性设置和程序，以便实现上述功能。

①Timer1的Interval属性的值应事先设置为 (6) 。

②Private Sub Command1_Click()

Timer1.Enabled=True

End Sub

Private Sub Timer1_Timer()

If Image1.Left＞= (7) Then

Image1.Left= (8) -100

End lf

End Sub

参考答案:

(6)100 (7)Line1.x1或Line1.x2 (8)Image1.Left

在Timer1对象的Timer事件里实现汽车的移动，而Timer1的Interval属性值决定了Timer1触发Timer事件的时间间隔，题目要求汽车每0.1s向左移动100，所以时间间隔应为100ms，故[6]空处的答案为：100。在Timer事件里，首先检查汽车是否已到达停止位，只有汽车还没有到达停止位时才移动汽车，所以移动汽车的条件是：Image1.Left＞Line1.X1，所以第[7]空填Line1.X1或Line1.X2(因为竖直线的X1=X2)；汽车每次向左移动100，只需在汽车距离左边界的距离在原有的基础上减少100即可，所以第[8]空填Image1.Left，首先取得原有距左边界的距离，再减少100作为新的左边界距离。

计算机考试