VB用递归方法遍出100内奇数合...急...

Public Function funSum() As Integer
Dim i As Integer
Dim intSum As Integer

For i = 1 To 100
If i Mod 2 = 1 Then
intSum = intSum + i
End If
Next i

funSum = intSum
End Function

本函数返回值为 100 内奇数和，希望对你有用。