【vb阶乘】求VB阶乘函数fact(n)

发布时间：2021-04-05 19:30:09

求VB 阶乘函数 fact(n)

网友回答

【答案】 Function fact(ByVal n As Integer) As Long
　　Dim i As Integer
　　Dim s As Long
　　s = 1
　　For i = 1 To n
　　 s = s * i
　　Next
　　fact = s
　　End Function
以上问题属网友观点，不代表本站立场，仅供参考！