Question

VB求级数s=1/(1+1)+2/(1+2*2)+3/(1+3*3)+...+n/(1+n*n)+

VB求级数s=1/(1+1)+2/(1+2*2)+3/(1+3*3)+...+n/(1+n*n)+...的前200项之和（取1位小数，第2位小数四舍五入）

Answer 1

Private Sub Command1_Click()

For i = 1 To 200

  s = s + 1 / (1 + i * i)

Next i

Print "s="; Format(s, "0.0")

End Sub

Answer 2

Private Sub Command1_Click()
Dim Sum, n
Sum = 0
For n = 1 To 200
Sum = Sum + n / (1 + n * n)
Next
Print Round(Sum, 1)
End Sub