编写程序,求下面数列的前20项的和,结果保留2位小数.

问题描述:

编写程序,求下面数列的前20项的和,结果保留2位小数.
1,-1/(1+2),1/(1+2+3),...,(-1)^(n+1)/(1+2+3+...+n)

提供一个VB的程序:
Private Sub Command1_Click()
s = 0
For n = 1 To 20
q = n * (n + 1) / 2
i = (-1) ^ (n + 1) / q
s = s + i
Next n
x = s * 100
If x - Fix(x) >= 0.5 Then s = (Fix(x) + 1) / 100 Else s = Fix(x) / 100
Print s
End Sub