Question

谁会VB？求1！+3！+5!+7！+9!怎么编程？求代码

Answer 1

稍改楼上 yangchunyu_ 的答案。
Private Sub Command1_Click()
Dim temp, a As Long
temp = 0
a = 1
For i = 1 To 9
a = a * j
if (i mod 2) = 1 then temp = temp + a
Next
MsgBox temp
End Sub

Answer 2

Private Sub Command1_Click()
Dim temp, a As Long
temp = 0
For i = 1 To 9 Step 2
a = 1
For j = 1 To i
a = a * j
Next
temp = temp + a
Next
MsgBox temp
End Sub

Answer 3

Private Sub CmdCalculate_Click()
Dim Result, a As Long
Result = 0
For i = 1 To 9 Step 2
a = 1
For j = 1 To i
a = a * j
Next
Result= Result+ a
Next
MsgBox Result
End Sub