Question

vb简单编程：求自然对数e的近似值,当任意项的值小于10^（-4）是结束运算.用公式e=1+1/1!+1/2!+1/n

Answer 1

Dim a As Double

Dim s As Double

Dim e As Single

Dim t As Single

a = 1

s = 1

e = 1

Do While 1 / s >= 10 ^ (-0.4)

s = s * a

t = 1 / s

e = e + t

a = a + 1

Loop

Print "e="; e