单项选择题

求1! +2! +……+10! 的程序如下：
Private Function s(x As Integer)
f=1
For i = 1 To x
f=f * i
Next
s=f
End Function
Private Sub Command1_Click( )
Dim i As Integer
Dim y As Long
Fori=1 To 10
______
Next
Print y
End Sub
为实现功能要求，程序的横线处应该填入的内容是( )。