填空题

下列程序的功能是求算式:1+1/2!+1/3!+i/4!+……前10项的和(其中n!的含义是n的阶乘)。请在空白处填入适当的语句,使程序完成指定的功能。
Private Sub Command1_Click()
Dim i as Integer,s as single,a as single
a=1:s=0
For i=1 To 10
a=______
s=s+a
Next i
Debug.Print "1+1/2!+1/3!+…=";s
End Sub

【参考答案】

a/i