作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/25 03:43:24
编写程序,求下面数列的前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 Su