求下述表达式的值,直到最后一项的绝对值小于10-6为止.

问题描述:

求下述表达式的值,直到最后一项的绝对值小于10-6为止.
w=1/(1x2)+1/(2x3)+1/(3x4)+…+1/(nx(n+1))

Dim n As Long, w As Single
w = 0
n= 1
Do While n * (n + 1) w = w + 1 / (n* (n + 1))
n=n + 1
Loop

Print w,n