窗体中有图片框(Pieture1)和计时器(Timer1)两个控件。运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下角移动，每次向左，向右移动100twip。请填空。
Private Sub Form_ Load()
Picture1_icture=LoadPicture(“c:\pic\mouth.ico”)
【6】 .Interval=2000
End Sub
Private Sub Timer1_ Timer()
Static x，y As Integer
x=x+100
y=y+100
Pictuer1.Move [x, y]
End Sub

从空中以40m/s的初速度沿着水平方向抛出一个重为10N的物体，不计空气阻力，取g=10m/s²，求：

（1）在抛出后3s内重力的功率；

（2）在抛出后3s时重力的功率（设3s时未落地）。