VB 向Excel指定规律的X,Y坐标。
小白初接触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编辑过]