程序如下：
Private Sub form_ Activate()
Dim a As Integer
for i=4 To 5
a=fun(i)
Print a,
Next i
End Sub
Private Function fun(n)As Integer
if n ＞0 then
fun =n* fun(n-1)
Else
fun=1
End if
End Function
程序最后打印结果是______。

A．4 5

B．12 120

C．24 120

D．24 60

肾小球滤过的动力包括肾小球毛细血管血压和______。