S=1!+2!+...+n!这样写对吗

来源：百度知道 编辑：UC知道 时间：2024/05/19 11:24:20
Sub FA(n,t)
t = 1
for i = 1 to n
t = t * i
next i
End Sub

Private Sub Form_Click()
n = val(Inputbox("n="))
for i = 1 to n
Call FA(i,t)
s = s + t
next i
Print "s=";s

另外如果用Function过程应该怎么写？

function FA(n)as long
t = 1
for i = 1 to n
t = t * i
next i
fa=t
End function

Private Sub Form_Click()
n = val(Inputbox("n="))
for i = 1 to n

s = s + FA(i)
next i
Print "s=";s

Function FA(n)
t = 1
for i = 1 to n
t = t * i
next i

FA=t
End Sub

MM1垂直于BB1，过N做NN1垂直于BC。
很容易证明MM1与NN1平行切与M1N1垂直
在计算MM1=1/3*a,NN1=1/3*a
可得矩形MM1N1N是个长方形 得