VB 阶乘题

Dim i As Integer, t As Long, e As Double
i = 1: t = 1: e = 0
Do
t = t * i
e = e + 1 / t
i = i + 1
Loop Until 1 / t < 0.00000001
e=e+1
Print e