VB编程计算：1+2!+3!+...+10!

Private Sub Form_click()
Form1.AutoRedraw = True
Me.Show
Dim Sum As Long, I As Integer, J As Integer
Sum = 0
For I = 1 To 10
Sum = Sum + Jc(I)
Next
Print "S=1+2!+3!+...+10!="; Sum
End Sub
Private Function Jc(X As Integer) As Long
If X = 1 Then Jc = 1 Else Jc = X * Jc(X - 1)
End Function

没错 就这个 ~~~~已经验证了 ~

Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim l As Long, h As Long

For i = 1 To 10
h = 1
For j = 1 To i
h = h * j
Next
l = l + h
Next

Print l
End Sub

Dim i As Integer
Dim sum As Integer
Dim n As Integer
n = 1
sum = 0
For i = 1 To 10
n = n * i
sum = sum + n
Next
Print(sum)

Private Sub Command1_Click(