编程求和
2-3/2+4/3-5/4+。。。。。。。-101/100
把代码写出来行了...谢谢

Function GetNum(Optional minNum As Long, Optional maxNum As Long)
Dim a As Boolean
a = True
If minNum = 0 Then minNum = 1
If maxNum = 0 Then maxNum = 2
GetNum = minNum
For i = minNum To maxNum
    If Not a Then
        GetNum = GetNum + (i + 1) / i
        a = True
    ElseIf a Then
        GetNum = GetNum - (i + 1) / i
        a = False
    End If
Next
End Function

(n+1)/n

分成1+1/n

1合并~主要计算1/n的和