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