Question

【VB编程，而不是用C语言】公式e=1+1/1!+1/2!+1/3!+···求e的近似值，要求计算到最后一项小于10的—8次方

【算法提示】
1.设置计算变量n,累积变量t,累和变量e,他们的初值都置为1
2.设计一个循环过程，在循环体中，用赋值语句t=t*n将 n的值累乘，赋值语句"=e+1/t"使 1/t的值累加，赋值语句n=n+1 使每次循环一次都增加1
3.当1/t的值小于10的—8时，循环结束
【要求】使用Do While ···Loop语句和Dountil···Loop语句两种方法分别实现别写

Answer 1

'用Do While ... Loop循环语句
n=1
t=1
e=1
do while 1/t>=10^(-8)
t=t*n
e=e+1/t
n=n+1
loop

''用Do Until ... Loop循环语句
n=1
t=1
e=1
do until 1/t < 10^(-8)
t=t*n
e=e+1/t
n=n+1
loop