用VB求阶乘和

Public Function f(m As Integer) As Long
Dim i As Integer, s As Long
s = 1
For i = 1 To m
s = s * i
Next i
f = s
End Function
Private Sub Command1_Click()
Dim i As Inte