编vb程序计算s=1-1/2+1/3-1/4+.......+(-1)^(n-1)*1/n

Question

s精确到0.0001

Answer 1

有很多人问，真的，你可以自己搜索一下。看看，自己修改一下。

Answer 2

Private Sub Command1_Click()

Dim S As Single
Dim N As Integer

N = Val(Text1)
For i = 1 To N
S = S + (-1) ^ (N - 1) * 1 / N
Next
Print "S = "; S

End Sub本回答被提问者采纳