帮一下忙

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