VB小代码修改

求P=1+3！+5！+7！+9！

Private Sub C1_Click()

Dim a As Integer, b As Double, i As Integer, p As Double
a = 3

i = 0
p = 0
For i = 1 To 5 Step 2

b = i * (i - 1)
p = p + b

Next i
T.Text = "p=1+3!+5!+7!+9!=" & Str(p)

End Sub

这道题目的本意是考考你递归函数的使用.
还要注意，不要溢出了。

Function func(ByVal n As Long)
Dim f, s As Long

If n = 1 Then
func = 1
Else
func = func(n - 1) * n
End If
End Function

Private Sub Command1_Click()
Dim i, sum As Long

For i = 1 To 9 Step 2
sum = sum + func(i)
Next

MsgBox sum
End Sub

Function jie(shu) As Long
jie = 1
For i = 2 To shu
jie = jie * i
Next
End Function

Private Sub Command1_Click()
Sum = 0
For i = 1 To 9 Step 2
Sum = Sum + jie(i)
Next
Print "1!+3!+5!+7!+9!=" + CStr(Sum)
End Sub

不知道a有什么用，定义后又不用，
Private Sub C1_Click()
Dim b As Double, i As Integer, p As Double
p = 0
b=0
For i = 1 To 9 Step 2
if i<>1 then
b = b*i * (i - 1)
else
b=1
end if
p = p + b
Next i
T.Text = "p=1+3!+5!+7!+9!=" & Str(p)