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

编写累加函数
Private Function SumModSeri()
Dim s As Integer, i As Integer '声明变量s和i
For i = 1 To 100 '变量由1到100循环累加
If i Mod 2 = 0 Then
s = s - i ‘如果变量i为偶数，则减i
Else
s = s + i '如果变量i为基数，则加i
End If
Next i '回头处理下一个i值
SumModSeri = s ' 函数输出累计计算结果
End Function

调用函数举例
Private Sub Command1_Click()
MsgBox SumModSeri '提示框显示计算结果为-50
End Sub

数学计算可以简化过程：

因为1-2=-1,3-4=-1...所以得出-1+(-1)+...，重复(100/2)次，即代码为(这是最简单而且最快速的办法)：

Dim s As Integer = -(100/2)

如果要实现未简化之前的代码，如下，由于未简化所以性能比上面的慢：

Dim s As Integer
For i As Integer = 1 To 100 Step 2
s += i - (i+1)
Next

i = 1
Do While i < 100
s = s + (i - (i + 1))
' Debug.Print i & "-" & i + 1
i = i + 2
Loop
' Debug.Print s

int s=0;
for(int i=1;i++;i<=100)
{
sum=sum+(-1)^(i+1);
}
printf("s=%d",sum);
要连s也打印出来也可以。