Public Function s(n)
Dim i,j,t,res
For i = 1 To n
t = 1
For j = 1 To i
t = t * j
Next
res = res + t
Next
s = res
End Function