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
你試試,大概這個思路,語法你再調一調,我手頭沒裝軟件.