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
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