VB 用过程求组合数，输入m和n，按等号键可得组合数，来看如下的简单代码： Private Sub f(m As Integer, p As Long) 自定义通用过程，用于求阶乘 Dim i As Integer 声明局部变量 p = 1 赋初值 For i = 1 To m 求m 的阶乘 p = p * i 结果返给参数p Next i End Sub Private Sub Command1_Click() 求组合数 Dim m
我就废话不多说了，还是直接看代码吧！
i = int(input(input))
sum = 0
if i0:
b = 2
c = 1
while b<=i:
c=b*c
b=b+1
sum += c
i = i-1
# print(c)
print(sum)
补充知识：python 利用递归方法求解n的阶乘和
写程序算出n的阶乘的和
def fn(x):
if x==1:
return 1
d
