用VB编写程序，求S=1!+2!+3!+4！+5！+6！+7！+8！，并在窗体中输入S的值

编写程序，求S=1！+2！+3！+4！+5！+6！+7！+8！~

没用过VB，不清楚语法有什么差别。这里用了C++\C，你只要搞清思路就成了。
下面是使用递归函数求n！的函数

int fun(int n)
{
if(n==1)return(1);
else
return(fun(n-1)*n);
}

你调用函数时，例如要求8！，你就用fun(8)；要注意，int整型数据的范围限制，使得这个函数只能求到12!，如果要更大范围要改用long int ，甚至自定义一个数据保存这个数。
求S＝1！+2！+……+8！：

int sum=0,i;
for(i=0;i<8;i++)
{
sum+=fun(i+1);
}

下面是一个完整的C++/C程序例子

#include
using namespace std;
//如果是C，上面两行换成#include"stdio.h",下面cout改printf
int fun(int n);

int main()
{
int sum=0,i;
for(i=0;i<8;i++) //求S＝1！+2！+……+8！
{
sum+=fun(i+1);
}
cout<<sum<<endl;//如果C，改用printf("%d
",sum)
return 0;
}

//下面是使用递归函数求n！

int fun(int n)
{
if(n==1)
return(1);
else
return(fun(n-1)*n);
}

Private Sub Command1_Click() For i = 1 To 10 f = 1 For j = 1 To i f = f * j Next j s = s + f Next i Print "Sum="; sEnd Sub

Private Sub Command1_Click()
me.show
Dim x As Long, sum As Long, n As Long
n = Val(InputBox("输入N值"))
For i = 1 To n
x = 1
For j = 1 To i
x = x * j
Next
sum = sum + x
Next
print sum
End Sub

一楼好搞笑 “你给的式子去掉感叹号就是了”

哈哈 我知道了
Dim b As Long, s As Long
Dim a!, n!
Private Sub Command1_Click()
Me.Cls
a = 1
sum = 0
For i = 1 To 8
b = a * i
a = b
s = s + b
Next
Print s
End Sub

Function alig(x)
n=1
for(u = 1 to x)
n=n*u
u=u-1
next
alig=n
end function
function doing(x)
n=0
u=x
do while(u>0)
n=n+alig(u)
u=u-1
loop
doing=n
end function
s=doing(8)'8!
print s

---

用VB编写程序，求S=1!+2!+3!+4！+5！+6！+7！+8！，并在窗体中输入S的值视频