编程实现s=1-2=3-4+...+97-98+99-100的计算

Dim a As IntegerDim s As IntegerPrivate Sub Command1_Click()s = 0For i = 1 To 100 If i Mod 2 = 1 Then a = i If i Mod 2 = 0 Then a = -i s = s + a Next iPrint sEnd Su