求解一道VB题

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

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

Private Sub Form_Load()

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 = True
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 100
End Sub

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