用VB编写一个简单的过程，用于求100以内所有奇数的和，通过函数名称返回

Private Sub Command1_Click()
Text1.Text = addNumbers(100, 2,1) '1,3,5,

End Sub

Private Function addNumbers(ByVal lMax As Long, ByVal nStep As Integer,By nStart as integer) As Long
Dim sum As Long
Dim i As Long
For i = nStart To lMax Step nStep
sum = sum + i
Next
addNumbers = sum
End Function

以下为你要的函数：sumF的值即为100以内的有奇数的各，结果为2500
Private Function sumF() As Integer
Dim x As Integer, sum As Integer
For x = 1 To 100 Step 2
sum = sum + x
Next x
sumF = sum
End Function

Function jiafa(n As Integer) As Long
For i = 1 To n Step 2
s = s + i
Next i
jiafa = s
End Function

Private Sub form_click()
he = jiafa(100)
Print he
End Sub