新疆人姓名中间有点吗:这个编程题目怎么做啊?

来源:百度文库 编辑:中科新闻网 时间:2024/04/29 03:46:58
(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 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
其中控件包含一个命令按纽,两个标签。
谢了!!!!!

if P1.Top < P2.Top + P2.height Then