编写程序,计算出1!+2!+3!+4!+5!+6!+7!+8!+9!+10!。用visual basic 语言

如题所述

Private Sub Command1_Click()
Print SF(10)
End Sub
Private Function SF(ByVal n As Integer) As Double
Dim i As Integer
Dim F As Double
Dim S As Double
S = 0
F = 1
For i = 1 To n
F = F * i
S = S + F
Next i
SF = S
End Function
温馨提示:答案为网友推荐,仅供参考
第1个回答  2013-04-14
1!+2!+3!+4!+5!+6!+7!+8!+9!+10! = 4 037 913追问

编写程序

追答

我可以帮你做一个程序。扣扣735003574。中学生,几乎学会电脑了。盗号 抓鸡什么的全是浮云。。 免费哦~