求实现S=1-1/3！+1/5！-1/7！+……+(-1)^(n-1)*1/(2*n-1)!的代码

Question

求实现S=1-1/3！+1/5！-1/7！+……+(-1)^(n-1)*1/(2*n-1)!的代码 谢谢

Answer 1

function f (k as integer) as long
if k=1 then
f=1
else
f=k*f(k-1)
endif
end function 
'上面定义一个求阶乘的函数
'下面定义一个任意的事件，如按钮的点击事件
private sub command1_click()
dim s as single,n as integer
n=inputbox("请输入n的值") for i=1 to n  if i mod 2<>0 then
    s=s+1/f(2*i-1)
  else
    s=s-1/f(2*i-1)
   endif
 next i
? s
end sub

Answer 2

Private Sub Command1_Click()
Dim a, b, c, i, j As Integer
Dim x, y, z As Double
a = 1
x = 0
y = 1
z = 0
b = Val(Text1.Text)
For i = 1 To b Step 4    For j = 1 To i
        y = y * j
   Next j
x = x + 1 / y
Next iFor i = 3 To b Step 4
    For j = 1 To i
        y = y * j
    Next j
    z = z - 1 / y
Next i
Text2.Text = Str(x - z)
End Sub
帮我看看，错在哪里