VB 求E的近似值

书上不是有嘛？自己查一下书
求阶乘：
Dim i as integer
dim n as integer
dim s as long
n=inputbox("请输入一个大于一的整数"）
s = 1
For i = 1 to n
s = s * i
next i
print "n的阶乘是："；s

dim i,e0,e
i=0
e0=0
do
m=1
for j=1 to i
m=m*j
next
e=e+1/m
if (e-e0)<1e-5 then
exit do
else
e0=e
i=i+1
end if
loop
msgbox "e=" & e