Question

计算1到10的阶乘和，

Answer 1

【阶乘的计算方法】

阶乘指从1乘以2乘以3乘以4一直乘到所要求的数。

例如所要求的数是4，则阶乘式是1×2×3×4，得到的积是24，24就是4的阶乘。
例如所要求的数是6，则阶乘式是1×2×3×……×6，得到的积是720，720就是6的阶乘。例如所要求的数是n，则阶乘式是1×2×3×……×n，设得到的积是x，x就是n的阶乘。
【阶乘的表示方法】

在表达阶乘时，就使用“！”来表示。如x的阶乘，就表示为x!

以下列出1至10的奇数阶乘：

1！=1，

3！=6，

5！=120，

7！=5040，

9！=362880
奇数和为：368047

Answer 2

'添加窗体Form1,按钮Command1,然后添加如下代码:
Private Sub Command1_Click()
    Dim i%, temp&, s&
    temp = 1
    s = 0
    For i = 1 To 10
        temp = temp * i
        s = s + temp
    Next
    MsgBox s
End Sub

Answer 3

Function product(i) As Long
p = 1
For j = 1 To i
p = p * j
Next j
product = p
End Function

Private Sub Command1_Click()
For i = 2 To 10 Step 2
sum = sum + product(i)
Next i
Print sum
End Sub