求1！＋2！＋……＋10！的程序如下：Private Function s(x As Integer) f＝1 For i＝1 To xf＝f * i Next s＝fEnd FunctionPrivate Sub Command1_Click() Dim i As Integer Dim y As Long For i＝1 To 10 Next Print yEnd Sub为实现功能要求，程序的横线处应该填入的内容是( )。