[出题]编一个程序，一个小球在窗体中沿直线运行，碰到窗体边框时反弹
示意图：
源码如下，请先试着自已编写，实在不行的话就花10块钱看看吧。。。
[UseMoney=10]
Option Explicit
Dim dx As Integer, dy As Integer '声明两个变量，dx为横向步进大小，dy为纵向步进大小
Private Sub Form_Load() '在Form_Load中初始化dx,dy两个变量 dx = 50 dy = 50 End Sub
Private Sub Form_Resize() '窗体大小发生变化后，将小球移到窗体中间 Shape1.Move Me.ScaleWidth / 2, Me.ScaleHeight / 2 End Sub
Private Sub Timer1_Timer() '控制小球运行，靠边时反疿 If Shape1.Left <= 0 Or Shape1.Left + Shape1.Width >= Me.ScaleWidth Then dx = -dx If Shape1.Top <= 0 Or Shape1.Top + Shape1.Height > Me.ScaleHeight Then dy = -dy Shape1.Move Shape1.Left + dx, Shape1.Top + dy End Sub
[/UseMoney]
