Question

编写一个vb程序计算1/1!+1/2!+…+1/n!，要求定义一个函数来计算n！。

Answer 1

function jiecheng(s)
m=1
n=1
if s=1 then
jiecheng=1
else
for i=2 to s
n=(i-1)*i
m=m+1/n
end for
jiecheng=m
end if
end function

大概是这样的，很久没用过VB了，所以具体的一些细节记不清楚了

Answer 2

Function F(N As Integer) As Double
Dim s As Long
s = 1
For i = 1 To N
s = s * i
Next
F = 1 / s
End Function