如何编写程序（1-1/2+1/3-1/4+......-1/100)

Pascal 语言代码
var
i,n:integer;
s:real;
begin
for i:=1 to 100 do
begin
if i mod 2<>0(关键是这句)
then
s:=s+1/i
else
s:=s-1/i;
end;
write(s);
end.

因为不知道你要得是什么语言，给你一个vb的
private sub command1_click()
dim i,k,total
for i=1 to 100
k=1/i
total=total+k*(-1)^(i-1)
next
print total
end sub