求助！！！
编写一个Function过程,求1-100的奇数累加和

你一个帖子问Sub一个帖子问Function，我在这里两个一起回答：
Private Function funSum() As Integer
Dim i As Integer
For i = 1 To 100 Step 2
funSum = funSum + i
Next i
End Function
Private Sub subSum(Sum As Integer)
Dim i As Integer
Sum = 0
For i = 1 To 100 Step 2
Sum = Sum + i
Next i
End Sub