Option Explicit
Private L(7) As Integer
Private Jd(7) As Double
Private zj As Double
Private Sub Form_Load()
Dim i As Integer
For i = 1 To 7
Me.Circle (4000, 4000), i * 500
Shape1(i - 1).Top = 4000 - 90
Shape1(i - 1).Left = 4000 + i * 500 - 90
L(i) = i * 500
Jd(i) = 0
HScroll1(i - 1).Max = 1000
HScroll1(i - 1).Min = 100
HScroll1(i - 1).Value = 100
HScroll1(i - 1).SmallChange = 5
HScroll1(i - 1).LargeChange = 100
Next i
zj = 10 / 180 * 3.141592654
End Sub
Private Sub HScroll1_Change(Index As Integer)
Timer1(Index).Interval = 1100 - HScroll1(Index).Value
End Sub
Private Sub Timer1_Timer(Index As Integer)
Jd(Index + 1) = Jd(Index + 1) + zj
Shape1(Index).Left = 4000 + L(Index + 1) * Cos(Jd(Index + 1)) - 90
Shape1(Index).Top = 4000 - L(Index + 1) * Sin(Jd(Index + 1)) - 90
End Sub
可以加分吗？
Option Explicit '使用变量必须先定义可以！可不可以麻烦详细一点 是分感谢
追答亲～已经很详细了。这个代码提交要审核很久的
追问。。。。。。那就麻烦一下呗 谢啦 我都把分加了 十分感谢
追答我都积分十几万了都。你就说哪里不懂吧。该备注的都备注了啊～
Shape1，Sin，Cos，就这三个没写备注。一个是控件名，两个是函数不可能不懂吧？
都不懂
追答晕。那我只能说很无语了，我已经把所有VB相关所有备注都写上了。
数学问题你还是看自己去理解下吧，我不知道应该怎么说好，VB只是调用它计算的的结果。来绘图而已。这就是原理。
您就给写一下呗 谢谢啦
追答Shape 控件是图形控件，显示矩形、正方形、椭圆、圆形、圆角矩形或者圆角正方形，shape属性的值 0-5 代表不同图形。
这都已经不属于VB范围了。如果你不知道图形是怎么用代码绘出去建议你先去把坐标系搞清楚。
Sin 函数取一角度为参数值，并返回角的对边长度除以斜边长度的比值。现代正弦公式是,将一个角放入直角坐标系中,使角的始边与X轴的非负半轴重合正弦,正弦在角的终边上取一点A（x，y）。
Cos:余弦函数是偶(图像对称)函数，还是一个周期函数，其图像关于y轴对称。
大哥~你就帮我写一下吧。。。。。。
追答就这样了，该写的都写了。。。你要再看不懂我也没办法了