小白初接触VB，很多东西还是不是很明白。。
现在我希望输出一系列X,Y的数据。规律如下
i=0 to (Int(1000/32))
X0=0，X1=32，X2=-32……  Xi=32*（i+1）/2,Xi+1=-Xi。（i为奇数）
j = 0 To Int(1000 / (16 * 3 ^ 0.5))
Y0=0，Y1=32*sin（60），Y2=-Y1……Yj=32*sin（60）*（j+1）/2,Yj+1=-Yj(j为奇数)

if Sqr(Xi^2+Yj^2)<=450
输出Xi，Yj到Excel，
Else
不输出
并统计当X=Xi时，符合条件Yj的数量到新的数组aj

感觉应该是用for next语句，，捣鼓半天没有捣鼓成功，所以请大神帮忙。
下面是我的代码，请大家帮忙指点

Dim X(Int(1000 / 32)) As Long
Dim Y(Int(1000 / (16 * 3 ^ 0.5)))

Private Sub Command1_Click()
Dim i As Long
For i = 0 To Int(1000 / 32)
X(0) = 0
If i Mod 2 = 1 Then
X(i) = 32 * (i + 1) / 2
Else
X(i) = -32 * i / 2
End If
Next i

Dim j As Long
For j = 0 To Int(1000 / (16 * 3 ^ 0.5))
Y(0) = 0
If j Mod 2 = 1 Then
Y(j) = 16 * 3 ^ 0.5 * (j + 1) / 2
Else
Y(j) = 16 * 3 ^ 0.5 * j / 2
End If
Next j

If Sqr(X(i) ^ 2 + Y(j) ^ 2) < 450 Then
Text1.Text = Text1.Text + CStr(X(i)) + "," + CStr(Y(j)) + "; "
End If


End Sub

[此贴子已经被作者于2017-6-20 23:33编辑过]

可能我没说清楚，，我要输出图示的所有圆的X，Y坐标。。。我的逻辑好像还不对。。

可能我表达的有问题，，我的目的就是输出图示中所有圆的圆心坐标。。所有的圆必须坐落在限定直径的圆内，大于就不输出。