sub test()
dim b as double
b = jisuan(100)
msgbox b
end sub
function JiSuan(a as double) as double
if a<=1 then
JiSuan=1
else if a mod 2=0 then
JiSuan=-1/a + jisuan (a-1)
else
JiSuan=1/a + jisuan(a-1)
end if
end function
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024