编程；VB 编写一个过程,用来计算下列表达式的值,并在事件过程中调用.S=1+1/2!+1/3!+...+1/n!

Private Sub Form_Activate()a 5End SubSub a(n As Long)Dim i As LongFor i = 1 To nSum = Sum + 1 / f(i)Next iPrint SumEnd SubFunction f(n As Long) As LongDim i As Longf = 1For i = 1 To nf = f * iNext iEnd Function