VB编程：1使用公式e=1+1/1!+1/2!+1/3!+……求e的近似值,要求计算到最后一项小于10^-8为止浏览次数：20次_其他解答

VB编程：1使用公式e=1+1/1!+1/2!+1/3!+……求e的近似值,要求计算到最后一项小于10^-8为止浏览次数：20次

人气：295 ℃　时间：2020-02-05 14:19:58

解答

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
你试试,大概这个思路,语法你再调一调,我手头没装软件.