计算：1-2+3-4+…+n，其中n的值由用户输入

利用VB编写

Dim intI as Integer
Dim result as Integer
Dim tmp as Integer

result=0
tmp =0

For intI=0 To n
IF tmp =0 then
result = result + intI
tmp = 1
ElseIf tmp =1 then
result = result - intI
tmp = 0
end if
Next

//循环后,result 为所求值

此程序有两个版本

低效率版本 long fn(int n) { long sum=0; for(int i=1;i<=n;i++)    {    sum=sum+flag*i;    flag=-flag; return sum; } 高效率版本 long fn(long n) {   if(n%2==0) return (-n/2);   else return (-(n-1)/2+n); }