求编程高手,用VB计算出n!+(n+1)!+(n+2)!+...+(n+m)!

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/12 17:20:23

Private Sub Form_Click()
Dim He As Long
Dim I As Integer, M As Integer, N As Integer
M = Int(Val(InputBox("M的值", "输入", 3)))
N = Int(Val(InputBox("n的值", "输入", 4)))
For I = M To M + N
He = He + Ji(I)
Next
Print M; "!+"; M + 1; "!+.+"; M + N; "!="; He
End Sub
Private Function Ji(X As Integer) As Long
Dim J As Integer
Ji = 1
For J = 1 To X
Ji = Ji * J
Next
End Function
说明：
（1）不需要任何控件.
（2）单击窗体即可运行,且可以重复点击运行.
（3）已经运行调试过.

求编程高手,用VB计算出n!+(n+1)!+(n+2)!+...+(n+m)! VB编程n!+(n+1)!+(n+2)!+(n+3)!+……+(n+m)! 用VB编程,求m,n的最大公约数. 用VB编程求1+2+3+……+n,n由键盘输入 vb 编程：设M和N是正整数,输入M,求当2的N次方大于等于M时,N的最小值用循环语句编求编程,由键盘输入N,编程求M=N!其中N=1*2*3*..N vb编程实现求sum=1/1!+1/2!+1/3!+ +1/n! (n 用VB编程求Fibonacci数列的第n项请用VB程序编程求两个正整数m和n的最大公约数和最小公倍数. vb编程"编写一个求n!的阶乘函数F(n),利用该函数计算二项式系数Cmn=m!/(n!*(m-n)! vb编程：求a=1+3+5+.+（2n-1）的值 VB题编程求S=1²+2²+3²+.+N²（其中N的值要求用键盘输入）