VB编写程序,计算2!+4!+6!+8!+......的值,把结果显示出来,计算到最后一项的值大于6

Question

如题所述

Answer 1

Private Function Jc(i As Integer) As Long
If i = 1 Or i = 0 Then
Jc = 1
Else
Jc = Jc(i - 1) * i
End If
End Function

Private Sub Command1_Click()
Dim Sun As Long
Dim i As Integer
For i = 2 To 8 Step 2
Sun = Sun + Jc(i)
Next
Print Sun
End Sub

最后一项大于6是什么意思？