求1!+2!+3!+4!+5!+6!+7!+8!+9!+10!的值,用VB编写程序!求代码!

Function jc(n As Integer) As Long
Dim i%
jc = 1
For i = 1 To n
jc = jc * i
Next
End Function

Private Sub Command1_Click()
Dim SumAdd As Long, i%
For i = 1 To 10
SumAdd = SumAdd + jc(i)
Next
Print SumAdd
End Sub

s = 1 : sum = 0
for i = 1 to 10
for j = 1 to i
s = s * j
sum = sum + s
next
next
print sum

for_click
s=0
for n=1 to 10 step 2
s=s+n
next n
next i
print "s=";s
_____________________

vb初学者，如答案有误请大家见谅！！！

Sum = 0
x = 1
For i = 1 To 10
x = x * i
Sum = Sum + x
Next
Print Sum