用vb程序求s=1-1/2+1/3-1/4+.....+1/99-1/100的值 在excle中用function编写 急急！！！！！！！

function foo() as double
dim i as long
dim s as double
for i = 1 to 99 step 2
s = s + 1.0 / i / (i + 1)
next i
foo = s
end function

Sub s()

Dim i As Integer, j As Integer, s As Double

s = 0
For i = 1 To 99 Step 2

s = s + 1 / i - 1 / (i + 1)

Next i

MsgBox s

End Sub

我也想学…希望你加我的QQ群一起考论114771313本回答被提问者采纳