vb计算1!+3!+*****+(2n+1)!的代码Private Sub Command1_Click()Dim n As Integer, i As Integer, j As Integern = Val(InputBox("请输入N值"))m = 1: Sum = 0For i = 1 To 2 * n + 1 Step (2)For j = 1 To im = m * jNext jSum = Sum + mNext iPrint SumEn
来源:学生作业学帮网 编辑:学帮网 时间:2024/05/28 06:35:49
vb计算1!+3!+*****+(2n+1)!的代码
Private Sub Command1_Click()
Dim n As Integer, i As Integer, j As Integer
n = Val(InputBox("请输入N值"))
m = 1: Sum = 0
For i = 1 To 2 * n + 1 Step (2)
For j = 1 To i
m = m * j
Next j
Sum = Sum + m
Next i
Print Sum
End Sub
这是我编的,但算出来不对,求高手帮忙指错
Private Sub Command1_Click()
Dim n As Integer,i As Integer,j As Integer,Sum&,m&
n = Val(InputBox("请输入N值"))
Sum = 0
For i = 1 To 2 * n + 1 Step 2
m = 1 '这儿要加上此句
For j = 1 To i
m = m * j
Next j
Sum = Sum + m
Next i
Print Sum
End Sub
VB计算1!+2!+3!+…+n!的和
vb程序里计算1/1!+1/2!+1/3!+1/4!+.+1/n!
用VB编写 VB计算公式S=1+1/3+1/5+1/7+.+1/2n-1的和,当第n项的值
vb编写程序,计算表达式的值 1+x/2!+x^2/4!+x^3/6!+.x^n(2n)!
VB编程:编递归函数过程,计算1+2+3……..+n的值(n是自然数)
vb从键盘输入一个正整数n,计算sum=1/2-2/3+3/4-4/5+…+(n-2)/(n-1)-(n-1)/n
用VB编写“输入整数N,计算1!+2!+.+N!=”
VB编程n!+(n+1)!+(n+2)!+(n+3)!+……+(n+m)!要有控件
vb计算S=1*2+2*3+3*4+.N*(N+1)直到和大于5000停止,输出结果及N的值.
用VB编写程序.计算1+2+3+.+100
计算1/(1*2)+1/(2*3)+1/(3*4)vb编程代码啊啊啊1/(1*2)+1/(2*3)+1/(3*4)+...+1/(N*(N+1))
后天考vb,有道题求指教,计算1+2+3+……+n当和大于1000时停止计算,并输出此时的和数
VB程序输入整数N,计算前N项和S=1+(1+2)+(1+2+3)+(1+2+3+4)+….
帮我编个Vb程序计算级数(2n-1)^(-1/3)-(2n)^(-1/2) ,并判断它的敛散性.非常急用,
VB程序设计(高一信息会考) 代码,计算1/2+2/3+3/4+……+n/(n+1)的前50项的和
VB程序设计(高一信息会考)计算1/2+2/3+3/4+……+n/(n+1)的前50项的和
VB中编写一个子过程,计算1*3+2*4+3*5+····+(n-2)*n的值
1-2/2!+3/3!-4/4!+…(-1)^n+1*n/n!编写vb程序