不知该如何实现+和-，请各位大侠指点指点！谢谢！
计算1+1/2-1/3+1/4-1/5……+1/100的结果？

1+(-1)^2*(1/2)+(-1)^3*(1/3)+.....+(-1)^100*(1/100)

谢谢您的提示，我编写了如下程序，结果为0.311828，但不知对不对？
set talk off
clea
x=2
s=1
n=-1
for x=1 to 100
s=s+(1/x)*(-1)^x
next
?s
return

if mod(i,2)=0
加语句
else
减语句
endif

b=0
for a=1 to 99
if mod(a,2)=0
b=b/(a+1)
else
b=b/(a-1)
endif
endfor
b=b/100
?b

s=1
for i=2 to 100
s=s+1/i*iif(mod(i,2)=0,1,-1)
endfor
?str(s,18,16)

答案:1.3118278206898050

楼主的程序略有问题！
主要是for x=2

是的，我也检查到了，问题出在那里！谢谢您！

你的问题是1/1+1/2-1/3+....+1/100=?
很显然从第2项开始，数据的符号是正负相间的；而你给的程序是从第1项开始正负相间了，且初始值为1，变成1-1+1/2-1/3+...+1/100，比要求的结果少1。