如何编写这个程序?vb环境下的

来源：百度知道 编辑：UC知道 时间：2024/04/28 16:01:51
建立一个工程文件，窗体中有两个图片框，名称分别为P1、P2，其中的图片分别是一个航天飞机和一朵云彩，还有一个计时器，名称为Timer1，一个命令按钮，名称为C1，标题为"发射"。要求：
1）设置计时器的属性，使其在初始状态下不计时；
2）设置计时器的属性，使其每隔0.1秒调用Timer事件过程一次。
3）编写程序，使得在运行时单击“发射”按钮，则航天飞机每隔0.1秒向上移动一次，当到达P2的下方时停止移动。

1)在timer1的enabled属性里设置false
2)在timer1的interval里设置属性为100
3)在timer1的过程里控制P1的移动并判断P1的位置,每次P1.top=P1.top+你指定的距离.判断当P1.top>=P2.top+P2.Height时,timer1.enabled=false

具体为
Private Sub C1_Click()
Timer1.Interval=100
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
P1.Top = P1.Top + 你指定的距离
If P1.Top >= P2.Top + P2.Height Then Timer1.Enabled = False
End Sub