Question

求大神帮忙解释一下这个程序每一句都是什么意思 万分感谢！

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

Answer 1

可以加分吗？

Option Explicit '使用变量必须先定义
Private L(7) As Integer '定义数组L
Private Jd(7) As Double '数组JD
Private zj As Double '定义zj 为双精度型

Private Sub Form_Load() '窗体载入事件
Dim i As Integer  '定义 i 为整数

For i = 1 To 7    '循环开始 
Me.Circle (4000, 4000), i * 500   '以下几句 是根据
Shape1(i - 1).Top = 4000 - 90     '变量 i 值 
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    'zj 赋值

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

追问

可以！可不可以麻烦详细一点 是分感谢

追答

亲～已经很详细了。这个代码提交要审核很久的

追问

。。。。。。那就麻烦一下呗 谢啦 我都把分加了 十分感谢

追答

我都积分十几万了都。你就说哪里不懂吧。该备注的都备注了啊～
Shape1，Sin，Cos，就这三个没写备注。一个是控件名，两个是函数不可能不懂吧？

追问

都不懂

追答

晕。那我只能说很无语了，我已经把所有VB相关所有备注都写上了。
数学问题你还是看自己去理解下吧，我不知道应该怎么说好，VB只是调用它计算的的结果。来绘图而已。这就是原理。

追问

您就给写一下呗 谢谢啦

追答

Shape 控件是图形控件，显示矩形、正方形、椭圆、圆形、圆角矩形或者圆角正方形，shape属性的值 0-5 代表不同图形。
这都已经不属于VB范围了。如果你不知道图形是怎么用代码绘出去建议你先去把坐标系搞清楚。
Sin 函数取一角度为参数值，并返回角的对边长度除以斜边长度的比值。现代正弦公式是,将一个角放入直角坐标系中,使角的始边与X轴的非负半轴重合正弦,正弦在角的终边上取一点A（x，y）。
Cos:余弦函数是偶(图像对称)函数，还是一个周期函数，其图像关于y轴对称。

追问

大哥~你就帮我写一下吧。。。。。。

追答

就这样了，该写的都写了。。。你要再看不懂我也没办法了