一个算法源码

　　一个小球 从100米的高处自由落下，落到水平面上又反弹，每次反弹的高度是前一次的一半。编写函数 T（n as integer) as single ,要求：此函数返回第N次反弹到最高点时所经过的总路程（N>=100)

 

Dim S As Single
Private Sub Command1_Click()
    S = 100
    Print S - T(100)
End Sub
Function T(n As Integer) As Single
    If n = 0 Then
        T = 100
        Exit Function
    Else: T = T(n - 1) / 2
        S = S + T * 2
    End If
End Function