高悬赏！！！用VB设计程序：模拟九大行星按照不同的轨迹绕太阳运动咋做啊？？

来源：百度知道 编辑：UC知道 时间：2024/05/13 08:12:21
设计一程序,模拟九大行星按照不同的轨迹绕太阳运动,(要求行星的数目和移动速度由滚动条的value值决定)

提示:用timer控件控制移动动画,用scrollban控制速度

只要简单的程序就好！！
非常之感谢。。。。
下面发的那个网址是一个行星。我要的是九大行星！请看准题目，请提高准确率。急用。谢谢~~

控件是：两个竖条，一个横条，一个timer。

Private Sub Form_Load()
Timer1.Interval = 100
VScroll1.Max = 1
VScroll1.Min = 10
HScroll1.Min = 1
HScroll1.Max = 9
VScroll2.Max = 1
VScroll2.Min = 6
End Sub

Private Sub Timer1_Timer()
Me.Cls
Me.DrawWidth = 2

'以下修改九个行星的参数，第一个是半径，第二个是速度，第三个是第几轨道，第三个不要改！
Call xingxing(200, 3, 1)
Call xingxing(305, 10, 2)
Call xingxing(500, 5, 3)
Call xingxing(720, 3, 4)
Call xingxing(790, 7, 5)
Call xingxing(1020, 7, 6)
Call xingxing(1110, 4, 7)
Call xingxing(1400, 2, 8)
Call xingxing(1510, 5, 9)

End Sub

Private Function xingxing(r, v, n)

jiaodu = 1 / Sqr(VScroll2.Value)
angle(n) = angle(n) + v * VScroll1.Value / 10
If n <= HScroll1.Value Then
Me.Circle (Form1.Width / 2, Form1.Height / 2), r, vbRed, , , jiaodu
Form1.DrawStyle = 1
Me.Circle (Form1.Width / 2 + r * Cos(angle(n) * 3.14 / 180),