如何用VB计算e=1⼀1!-1⼀2!+1⼀3!-1⼀4!+…+(-1)^(n-1)*(1⼀n!)

#include
"stdio.h"
#include
"math.h"
void
main()
{
float
a,b,h,x,sum;
int
f;
long
i;
for
(i=1,sum=0,f=1;fabs(1.0/i)>=1.E-5;i=i+1)
{
sum=sum+f*1.0/i;
f=-f;
}
pritnf("\n
sum
is
%f",sum);
停止条件为1/n<0.00005

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim Sum As Long

i = InputBox("输入数值：", "输入", 1)
For j = 1 To n
Sum = Sum + (-1) ^ (n - 1) * (1 / JC(j))
Next

End Sub

Private Function JC(n As Integer) As Long
If n = 1 Then
JC = 1
Else
JC = n * JC(n - 1) '递归
End If
End Function

Private Sub Command1_Click()
Dim sum As Double, a As Double
Dim n As Integer, s As Integer
Dim i
a = 1
s = 1
sum = 0
n = InputBox("输入N")
For i = 1 To n
a = a / i
sum = sum + s * a
s = -s
Next i
Print sum
End Sub

k=0
for i=1 to n
s=0
for j=1 to i
s=s+j
next
k=k+(-1)^(i+1)*1/s
next
? k
对不对你可以取n=3时试一下。

t = 1
s = 0
for i=1 to n
t = t*i
if i mod 2 = 0 then
s = s-1/t
else
s = s + 1/t
next i