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

2025-03-13 03:59:39
推荐回答(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