阅读程序： Function fac(ByVal As Integer)As Integer Dim temp As Integer temp=1 For i％=

阅读程序： Function fac(ByVal As Integer)As Integer Dim temp As Integer temp=1 For i％=1 To n temp=temp*i％ Next i％ fac=temp End Function Private Sub Form. Click（） Dim nsum As Integer nsum=1 For i％=2 T0 4 nsum=nsum+fac(i％) Next i％ Print nsum End Sub 程序运行后，单击窗体，输出结果是（）。

A.35

B.31

C.33

D.37

请帮忙给出正确答案和分析，谢谢！