Question

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

Answer 1

Dim n As Long, w As Single

w = 0

n= 1

Do While n * (n + 1) < 1000000

w = w + 1 / (n* (n + 1))

n=n + 1

Loop

Print w,n