Private Sub Command1_Click()
Dim n As Integer
n = Val(Text1.Text)
Text2.Text = Str(fac(n))
End Sub
Private Function fac(n As Integer) As Long
Dim i As Integer
Dim sum As Long
sum = 1
For i = 1 To n
sum = sum * i
Next
fac = sum
End Function
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024