计算机VB题目

Private Sub Form_Click()
'sum=1/2!-1/4!+1/6!-1/8!+1/10!,
Dim sum As Double
Dim a As Long
Dim i As Integer
i = 1
Do While i <= 5
a = 1
DoEvents
For j = 1 To i * 2
a = a * j
Next
If i Mod 2 = 0 Then
sum2 = sum2 + 1 / a
Else
sum1 = sum1 + 1 / a
End If
i = i + 1
Loop
sum = sum1 - sum2
Print a
Print sum
End Sub

我也刚学的

Private Sub Form_Click()
Dim Sum, Tmp As Long
Dim n As Integer
Do While n <= 4
n = n + 1
If n Mod 2 = 1 Then
Tmp = Faq(2 * n)
Else
Tmp = -Faq(2 * n)
End If
Sum = Sum + 1 / Tmp
Loop
Print Sum
Print 2 * n
End Sub
Function Faq(n As Integer) As Long
Dim i As Integer
Faq = 1
For i = 1 To n
Faq = Faq * i
Next i
End Function