可以改成：
Sub test()
Dim x(1 To 11) As Single
Dim y(1 To 11) As Single
Dim i As Integer
n = 1
For i = -10 To 10 Step 2
x(n) = i
Cells(n, 8) = x(n)
y(n) = x(n) ^ 3 + x(n) ^ 2 + x(n)
Cells(n, 9) = y(n)
n = n + 1
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024