怎么用VB计算N的阶层
答案:3 悬赏:80 手机版
解决时间 2021-03-20 07:54
- 提问者网友：捧腹剧
- 2021-03-19 14:12
怎么用VB计算N的阶层
最佳答案
- 五星知识达人网友：廢物販賣機
- 2021-03-19 15:42
Function factorial(n As Integer) As Long
Dim i As Integer
Dim ret As Long
ret = 1
For i = 1 To n
ret = ret * i
Next i
factorial = ret
End Function
Dim i As Integer
Dim ret As Long
ret = 1
For i = 1 To n
ret = ret * i
Next i
factorial = ret
End Function
全部回答
- 1楼网友：孤独的牧羊人
- 2021-03-19 18:31
就是楼上那种写发
- 2楼网友：持酒劝斜阳
- 2021-03-19 17:08
'n值递乘到n1值
Function factorial(n As Integer, n1 As Integer) As Long
Dim i As Integer
Dim ret As Long
ret = 1
For i = n To n1
ret = ret * i
Next i
factorial = ret
End Function
Private Sub Command1_Click()
MsgBox factorial(10, 15) '说明 factorial = 10*11*12*13*14*15
End Sub
Function factorial(n As Integer, n1 As Integer) As Long
Dim i As Integer
Dim ret As Long
ret = 1
For i = n To n1
ret = ret * i
Next i
factorial = ret
End Function
Private Sub Command1_Click()
MsgBox factorial(10, 15) '说明 factorial = 10*11*12*13*14*15
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯