以下程序可计算自然数e的值，要求精确到10^（-15）请将程序补充完整。已知e的计算公式为：e=1+1/1!+

以下程序可计算自然数e的值，要求精确到10^（-15）请将程序补充完整。已知e的计算公式为：

e=1+1/1!+1/2!+...+1/n!。

Private Sub Command1_Click()

（）

n=0:term=1:t=1

Do

n=n+1

t=t/n

（）

Loop While t ＞1.0E-15

Text1.Text=term

End Sub