编写一个sub过程，求1-100的奇数累加和

看了你发的几个帖子，无非是Function和Sub两个问题
两者重要区别是Function有返回值，sub没有返回值
sub若果想要返回值，可以通过参数来进行传递，具体如下

Function :
Private Function Sum1(n As Integer) As Integer
For i = 1 To n Step 2
Sum1 = Sum1 + n
Next
End Function
Private Sub Form_Click()
Print Sum1(100)
End Sub
Sub:
Private Sub Sum2(n As Integer, s As Integer)
For i = 1 To n Step 2
s = s + n
Next
End Sub
Private Sub Form_Click()
Dim t As Integer
Sum2 100, t
Print t
End Sub