如何用VBA实现N的阶乘？

作者：绿色风分类：时间：2022-08-17 浏览：128

楼主 wise	Q:如何用VBA实现N的阶乘呢? (阶乘就是N!=1×2×...×(N-2)×(N-1)×N=(N-1)!×N) A:具体程序如下： Sub NT() Dim n As Integer, i As Integer, k As Long n = InputBox("请输入N:") k = 1 For i = 1 To n k = k * i Next i MsgBox "N的阶乘是:" & k End Sub
2楼 apolloh	函数的解法 =FACT(A1)
3楼罗刚君	一句足矣 Sub 阶乘() On Error Resume Next MsgBox Evaluate("=fact(" & InputBox("请输入N:") & ")") End Sub
4楼 gouweicao78	k as long 当N=13，就溢出了。应改为 k as string

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表