用sub过程求n的阶乘以及阶乘的和vb不要直接复制网上的!

2025年03月13日 03:59
有1个网友回答
网友(1):

什么叫做“阶乘的和”?是哪些的和?

Private Sub Command1_Click()

  Dim n As Integer, s As Long

  n = CInt(InputBox("n="))

  fac n, s

  MsgBox n & "!=" & s

End Sub


Sub fac(n As Integer, s As Long)

  s = 1

  For i = 2 To n

    s = s * i

  Next i

End Sub