[问答题] 在考生文件夹下有一个工程文件sjt3.vbp，窗体中有两个图片框，名称分别为P1、P2，其中的图片内容分别是一架航天飞机和一朵云彩；一个命令按钮，名称为C1，标题为“发射”；一个计时器，名

[问答题] 在考生文件夹下有一个工程文件sjt3.vbp，窗体中有两个图片框，名称分别为P1、P2，其中的图片内容分别是一架航天飞机和一朵云彩；一个命令按钮，名称为C1，标题为“发射”；一个计时器，名称为Timer1。并给出了两个事件过程，但并不完整，要求：①设置Timer1的属性，使其在初始状态下不计时；②设置Timer1的属性，使其每隔0.1s调用Timer事件过程一次；③去掉程序中的注释符，把程序中的问号改为正确的内容，使得在运行时单击“发射”按钮，则航天飞机每隔0.1s向上移动一次，当到达P2的下方时停止移动，如图所示。

注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

参考答案：

[操作步骤]步骤A：按题目要求打开工程文件，设置计时器属性，如图所示。步骤B：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。 Private Sub CA_Click() TimerA.Enabled=True’单击"发射"按钮，则Timer生效 End Sub Private Sub TimerA_Timer() StatiC a% a=a+A If PA.Top＞PB.Top+PB.Height Then’判定PA是否接触到PB PA.Move PA.Left,PA.Top-E-a,PA.Width,PA.Height Else TimerA.Enabled=False’当PA接触到PB时Timer事件停止 End If End Sub步骤C：调试并运行程序，关闭程序后按题目要求存盘。DC-DA.jpg

问题解析:

[解题思路] 工程文件中已建立全部控件，只需编写事件过程即可。Timer1控件的Interval属性用来控制计时器事件发生的时间间隔，通过题意可知，该属性设置为100(Interval是以ms为单位)。当单击“发射”按钮时开始计时，将计时器控件的Enabled属性设置为True。如果使航天飞机即P1停止移动，则将计时器控件的Enabled属性设置为 False。