vb编程2！+4!+6!+8!+10!

Question

如题所述

Answer 1

Private Sub Command1_Click()
Dim a1: Dim a2 '定义两个变量
For i = 2 To 10 Step 2 '使用for循环，每次加2
a1 = 1 '算完一个偶数的阶乘,中间变量初始化,供下次循环使用
For a = i To 1 Step -1 '利用for循环，计算每个偶数的阶乘
a1 = a1 * a '具体计算
Next a '具体计算
a2 = a2 + a1 '变量a2用来存储已运算过的偶数阶乘的和
Next i '继续运算下一个偶数
MsgBox "程序运算结果为: " & a2 '得到结果
End Sub

Answer 2

这样效率最高：
Private Sub Form_Load()
Dim sum&,n&,i%
n=1
For i=2 To 10 Step 2
n=n*i*(i-1)
sum=sum+n
Next
MsgBox sum
End Sub本回答被提问者采纳

Answer 3

Private Sub Command1_Click()
Dim sum As Long, n As Long
For i = 2 To 10 Step 2
n = 1
For j = i To 1 Step -1
n = n * j

Next j
sum = sum + n
Next i
Print "The result is ：" & sum
End Sub

Answer 4

Dim sum As Long
Dim n As Long
Dim i As Integer
n = 1

For i = 1 To 10
n = n * i
If i Mod 2 = 0 Then
sum = sum + n
End If
Next

MsgBox sum