用VB编程计算 s=1-1/2+1/3-1/4+.....+(-1)的n-1次方/n,s精确到0.0001

用VB实现，并使s精确到0.0001

---

Private Sub Command1_Click()
s = 0
For i = 1 To 10000 '这个铅散10000时消帆要求精度的倒数
If i Mod 2 = 0 Then
s = s - 1 / i
Else
s = s + 1 / i
End If
Next i
Print "槐桥氏s="; s
End Sub

---