下列程序的功能是求算式：1+1/2 ! +1/3!+1/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