1-2/2!+3/3!-4/4!+…(-1)^n+1*n/n!编写vb程序

来源：学生作业帮助网编辑：作业帮时间：2024/04/29 05:40:32

1-2/2!+3/3!-4/4!+…(-1)^n+1*n/n!编写vb程序
1-2/2!+3/3!-4/4!+…(-1)^n+1*n/n!编写vb程序

1-2/2!+3/3!-4/4!+…(-1)^n+1*n/n!编写vb程序
Private Sub Command1_Click()
Dim n%,sum!,fact!
sum = 0
n = InputBox("输入n:","提示信息",1)
If n < 0 Then
MsgBox "数据有误!",48,"警告!"
End If
For i = 1 To n
fact = 1
For j = 1 To i
fact = fact * j
Next j
sum = sum + (-1) ^ (i + 1) * i / fact
Next i
Print sum
End Sub

1+2+3+4+……+10000 1×2×3×4……×101 1+2+3+4……+101 1+2/2*1+2+3/2+3*1+2+3+4/2+3+4*……*1+2……+2001/2+3+……+2001= 1*2+2*3+3*4+……+50*51 1/2+2/3+3/4……1000/1001 1+2+3+4+5…………+100000000 1+2+3+4……+2004+2005+2004……+4+3+2+1=? (-1)+2+(-3)+4+……+(-99)+100 (-1)+2+(-3)+4+……+(-99)+100 计算题1*2+2*3+3*4+………………+99*1001×2+2×3+3×4+…………+99×100 (1*2+2*3+3*4*+……+100*101)^4 除以(1*2+2*3+3*4+……+101*102)^3*100^4分之103^3 4/1*2*3+4/2*3*4+……+4/2004*2005*2006“/”是分数线. 2/3+[3/(1+2)*(1+2+3)]+[4/(1+2+3)*(1+2+3+4)]+…+[18/(1+2+3+…+17)*(1+2+…+18) 求证：4/(1^2)+4/(3^2)+……+4/(2n-1)^2 2(3+1)(3^2+1)(3^4+1)……（3^32+1)+1 1+2+3+4+…+73咋算, (-1)+2+(-3)+4+…+(-99)+100 1+2+3 +4…300