Question

求解一道VB题

(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

Answer 1

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

Answer 2

for
m=
1
to
128
for
n=1
to
128
if
5*m+7*n=128
then
print
m,n
next
n
next
m

Answer 3

写错了吧
有个是N

Answer 4

for
m=
1
to
128
for
n=1
to
128
if
5*m+7*n=128
then
print
m,n
next
next

Answer 5

for
int
m=1
to
128
int
n=128-m
if
5*m+7*n=128
then
print
m,n
next
m
语法记得不是很熟了