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次

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