VB题求助

我心sun飞翔

S=3！+7！+12！
1.编一个求n！的子过程通过子过程求Ｓ．
２．编一个求n！的自定义函数通过函数求Ｓ．

゛，

帮一下忙

qz沒愛過mm

Private Sub DoIt(mVal As Long)
Dim i As Long, j As Long
i = 1
j = i
Do While i <= mVal
j = j * i
i = i + 1
Loop
mVal = j
End Sub
Private Function FunDoIt(mVal As Long) As Long
Dim i As Long, j As Long
i = 1
j = i

Do While i <= mVal
j = j * i
i = i + 1
Loop
FunDoIt = j

End Function