編寫壹個vb函數過程,計算 1~10的階乘之和 ,並將運行結果輸出在窗體上

參考代碼：

Dim?i?As?Integer

For?i?=?1?To?10

Sum?=?Sum?+?jc(i)

Next

MsgBox?Sum

End?Sub

Function?jc(a?As?Integer)

jc?=?1

For?i?=?1?To?a

jc?=?jc?*?i

Next

End?Function