用vb编写程序,要完整代码,一个球从100米高度落下,每次落地后弹回原高度 一半,再落下.问第十次落地时共经过了多少米?
2个回答

Private Sub Form_Click()

Const a = 100

Dim s As Single

Dim h(1 To 10) As single

h(1) = a / 2

For i = 1 To 9

h(i + 1) = h(i) / 2

Next i

s = 100

For i = 1 To 9

s = 2 * h(i) + s

Next i

Print s

Print h(10)

End Su