VB题求助
S=3！+7！+12！1.编一个求n！的子过程通过子过程求Ｓ．
２．编一个求n！的自定义函数通过函数求Ｓ．
2007-04-17 00:20
2007-04-17 00:21
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
2007-04-17 11:46
