【正确答案】[操作步骤]
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“'”，将问号改为正确的内容。
Dim a, t, d
Private Sub Command1_Click ()
Timer1.Enabled=True '使Timer1事件生效
d=Image1.Top '保存飞机初始位置
End Sub
Private Sub Command2_Click()
Open App.Path & "/out4.txt" For Output As #1
Print #1, Label1, Label2 '将两个标签中的内容保存到文件中
Close #1
End Sub
Private Sub Form_Load()
a=1
t=0
End Sub
Private Sub Timer1_Timer()
Image1.Top=Image1.Top-a*50
If Image1.Top+Image1.Height ＜=Image2.Top+Image2.Height-200 Then '判断飞机是否已进入云朵
Timer1.Enabled=False '若飞机已进入云朵，则停止移动，Timer失效
d=d-Image1.Top '计算飞机的飞行距离
Label1=d
Label2=t*Timer1.Interval/1000
End If
a=a+0.1
t=t+1 '记录所用时间
End Sub
程序结束
步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【答案解析】[考点] 本题考点有：计时器的Interval和Enabled属性，形状控件的Height和Top属性，文件编辑以及H判断语句。 [解析] 计时器的Interval属性用来控制计时器事件发生的时间间隔(Interval是以毫秒为单位)。当单击“发射”按钮时开始计时，将计时器控件的Enabled属性设置为True。航天飞机图标将向上运动，速度逐渐加快，通过形状控件的Height和Top属性判断是否全部进入云中，如果全部进入则停止，这时需要将计时器控件的Enabled属性设置为False，并把飞行距离d和所用时间(单位为秒)分别显示在标签Label1和Label2中；单击“保存”按钮，则把飞行距离和所用时间存入考生文件夹下的out4.txt文件中。