VB题目来啊

来源：百度知道 编辑：UC知道 时间：2024/05/23 21:18:55
gc315.frm窗体的标题为“火箭发射”，其中有两个标签按钮：航天飞机和云彩，名称分别为P1和P2；还有一个计时器，名称为Timer1；一个命令按钮，名称为C1，标题为“发射”。现给出两个事件过程，按下述要求设置属性并改正程序中的错误：
1) 设置计时器的属性，使其在初始状态下不计时；每隔0.1秒调用Timer事件过程一次。
2) 单击“发射”按钮，则航天飞机每隔0.1秒向上移动一次，当到达云彩下方时，航天飞机停止移动。

Private Sub C1_Click()
'下行有错
Timer1.Enabled = False
End Sub

Private Sub P2_Click()

End Sub

Private Sub Timer1_Timer()
Static a%
a = a + 1
'下行有错
If P1.Top > P2.Top + P2.Left Then
P1.Move P1.Left, P1.Top - 5 - a, P1.Width, P1.Height
Else
Timer1.Enabled = False
End If
End Sub

Private Sub C1_Click()
'下行有错
Timer1.Enabled = False
End Sub
第三行改为：Timer1.Enabled =true
或者是：Private Sub c1_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
p1.Top = p1.Top - 100
If p1.Top < p2.Height Then
Timer1.Enabled = False
End If
End Sub

错行一改为：Timer1.Interval = 100

错行一改为：If P1.Top > P2.Top + P2.Height Then