这段代码怎么理解?谢谢各位大侠帮忙!

来源:百度知道 编辑:UC知道 时间:2024/05/30 12:51:39
Private Sub HuaTu()
Dim I As Long
For I = 0 To UBound(She)
Me.Circle (She(I).X + 0.5, She(I).Y + 0.5), 0.49, RGB(255, 255, 0), , , HWB
Next
End Sub

she, 一个对象数组吧,这里也没有交待清楚.
for i=0 to ubound(she) '就是打算she数组中的每一个对象了.
Me.Circle (She(I).X + 0.5, She(I).Y + 0.5), 0.49, RGB(255, 255, 0), , , HWB '根据读取的she数组中每一个对象的值来画圆.