设有如下程序：
Private Sub Form_Click()
Dim s As Long, f As Long
Dim n As Integer, i As Integer
f=1
n=4
For i=1 To n
f=f*i
s=s+f
Next i
Print s
End Sub
程序运行后，单击窗体，输出结果是( )。

A．32

B．33

C．34

D．35