输入一个数N.已知n!=n=(n-1)*(n-2)...3*2*1,编写程序计算和显示s=1!+2!+3!+...用VB做.代码+解释思路.

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/15 22:58:18
输入一个数N.已知n!=n=(n-1)*(n-2)...3*2*1,编写程序计算和显示s=1!+2!+3!+...用VB做.代码+解释思路.
xRMkQ+wv72Ъ+ [EB2~%4m"4R현gdտ}ZNw8s-+QMD OW}ǽkڦ2&[6މ5ZNr\>]-T:x݉?u U{_i6\.o2o D|Q>Y] _7Su9ΪEGhE;Hkq(ɄL,"u/'Ѫ.B Kfw-<󜹞_y

输入一个数N.已知n!=n=(n-1)*(n-2)...3*2*1,编写程序计算和显示s=1!+2!+3!+...用VB做.代码+解释思路.
输入一个数N.已知n!=n=(n-1)*(n-2)...3*2*1,编写程序计算和显示s=1!+2!+3!+...
用VB做.代码+解释思路.

输入一个数N.已知n!=n=(n-1)*(n-2)...3*2*1,编写程序计算和显示s=1!+2!+3!+...用VB做.代码+解释思路.
n!=n*(n-1)*(n-2)*...*2*1 的意思就是n!等于前n个正整数相乘.不是楼主所说的 3!=3*(3-1)*(3-2)*(3-3)*3*2*1 .3!=3*2*1 (其实就是1*2*3=3!) 4!=4*3*2*1 (其实就是1*2*3*4=4!) 所以这段代码不难.Dim a As Long,n As Long,s As Long,b As Long Private Sub Command1_Click() s = 0 For b = 1 To Val(Text1.Text) a = 1 For n = 1 To b a = a * n Next n s = s + a Next b Print s End Sub 把N输入到text1里就可以了.