2017国有林场最新消息:谁会做这到题啊 用VB做

来源：百度文库 编辑：杭州交通信息网 时间：2024/04/30 13:15:33
一个小球 从100米的高处自由落下，落到水平面上又反弹，每次反弹的高度是前一次的一半。编写函数 T（n as integer) as single ,要求：此函数返回第N次反弹
到最高点时所经过的总路程（N>=100)

100＋50＋25＋12＋6＋3＋1＝197

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 Function

谁会做这到题啊 用VB做 谁会用VB做图书管理系统？ 谁会做VB 教我 谁会用VB做一个家庭理财软件呀？ 谁会用vb做两个播放器同步播放？ 谁会用vb 谁会用VB编程... VB的题目谁会做啊? vb做的QQ钩子谁会啊? 有谁会用vb解决