编写程序,求下面数列前20项的和。结果取3位小数。

来源：百度知道 编辑：UC知道 时间：2024/05/09 09:05:45
编写程序,求下面数列前20项的和。结果取3位小数。
1,-1/(2*2),1/(3*3),-1/(4*4),……,(-1)^(n-1)/(n*n),……(其中,^ 表示幂运算)

Private Sub Form_click()
Dim sum As Single
sum = 0
For i = 1 To 19
sum = sum + (-1) ^ (i - 1) / (i * i)
Print (-1) ^ (i - 1); "/"; (i * i);
If i Mod 2 = 0 Then Print "+";
Next
sum = sum - 1 / (20 * 20)
Print "-1 / 400="; Format(sum, "#0.000")
End Sub