求级数S=1/(1+1)+2/(1+2*2)+3/(1+3*3)+……+N/(1+N*N)+……的前200项之和(取一位

求级数S=1/(1+1)+2/(1+2*2)+3/(1+3*3)+……+N/(1+N*N)+……的前200项之和(取一位小数)
傲慢 1年前 已收到1个回答 举报

alice_fang 幼苗

共回答了15个问题采纳率:100% 举报

Dim n As Integer
s = 0 '累加器清零
For n = 0 To 200
s = s + n / (1 + n * n)'累加
Next n
Print Format(s, "0.0") '取一位小数

1年前

8
可能相似的问题
Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 0.060 s. - webmaster@yulucn.com