1个回答
2013-06-27 · 知道合伙人教育行家
无脚鸟╰(⇀‸↼)╯
知道合伙人教育行家
采纳数：6742
获赞数：132156
现在为上海海事大学学生，在学习上有一定的经验，擅长数学。
向TA提问 私信TA
关注
![]()
展开全部
7.求级数s=1/(1+1)+2/(1+2*2)+3/(1+3*3)+-------+n/(1+n*n)+-------的前200项之和（取一位小数，第二位小数四舍五入）
编写程序代码
Private Sub Form_Click()
Dim n As Integer
Dim s As Single
n = 1: s = 0
Do While n <= 180
s = s + n / (1 + n * n)
n = n + 1
Loop
s = 0.1 * Int(10 * s + 0.5) 'Int函数对数据进行四舍五入
Print "s="; s
End Sub
编写程序代码
Private Sub Form_Click()
Dim n As Integer
Dim s As Single
n = 1: s = 0
Do While n <= 180
s = s + n / (1 + n * n)
n = n + 1
Loop
s = 0.1 * Int(10 * s + 0.5) 'Int函数对数据进行四舍五入
Print "s="; s
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
