VB计算并输出下面级数前n项（n=30）的部分和.1/(1*2)+1/(2*3)+1/(3*4)+…+1/(n*(n+1))+……

Question

VB 计算并输出下面级数前n项（n=30）的部分和.1/(1*2)+1/(2*3)+1/(3*4)+…+1/(n*(n+1))+ ……

Answer 1

Private Sub Command1_Click()
Dim s As Double,i As Integer
For i = 1 To 30
s = s + 1 / (i * (i + 1))
Next i
Print "该数列前30项的和是：",s
End Sub