1^2-2^2+3^2-4^2+5^2-6^2+2007^2-2008^2等于

1^2-2^2+3^2-4^2+5^2-6^2+2007^2-2008^2等于
2025-01-02 21:52:29
推荐回答(1个)
回答1:

结果 是-2017036

Sub 宏1()
k = 0
For i = 1 To 1004
Cells(i, 1) = i * 2 - 1
Cells(i, 2) = i * 2
Cells(i, 3) = (i * 2 - 1) * (i * 2 - 1) - (i * 2) * (i * 2)
Cells(i, 4) = k + Cells(i, 3)
k = k + Cells(i, 3)
Next
End Sub