function jiecheng(i as integer)as double
for j=1 to i
jiecheng*=i
next
end function
dim e=0
dim i=0
do
e+=1/jiecheng(i)
i+=1
t=1/jiecheng(i)
while t>10^-8
你试试，大概这个思路，语法你再调一调，我手头没装软件。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024