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

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

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