'试一下
Private Sub Command1_Click()
Dim sum,i,t
Do
i = i + 1
t = 1 / (i * (i + 1))
If t < 0.06 Then Exit Do
sum = sum + (-1) ^ (i + 1) * t
Loop
Print sum
End Sub