function jiecheng(i as integer)as double for j=1 to i jiecheng*=i nextend functiondim e=0dim i=0do e+=1/jiecheng(i) i+=1 t=1/jiecheng(i)while t>10^-8你试试,大概这个思路,语法你再调一调,我手头没装软件。