如何解2005-2004+2003-2002+~+3-2+1

Private Sub Command1_Click()
For i = 1 To 2005
x = x + i * (-1) ^ (i + 1)
Next i
Print x
End Sub

原式=（2005-2004）+（2003-2002）+~+（3-2）+1=（2005-3）/2+1+1=1003
每个括号一个1，一共有（2005-3）/2+1个1，加上最后一个1.

还是累加法
用（-1）^n调整
其他的从2005加到1
会了吧