小球从200米向下落,每次落地反弹都是原路的1/2,问10次一共的路程,用VB怎么写啊?谢谢了!

一小球从 200 米高度自由下落，每次落地后跳回原高度
的一半，然后再落下……，求该小球第十次落地时共经过了多少米的路程？
用VB的啊,各位大哥,谢谢了,最好用那个新学的FOR....NEXT的,呵呵~~

n=200,m=0
for i=1 to a //a为完成次数
m=m+n+n/2
n=n/2
next

等比数列的前n项和 200+ (100*1/2(10方)-100)*4

用 a0代表 原始高度200

用 n代表 次数10次

然后循环

for n=1 to 10
sum=sum+a0*1/2(n+1)

next
sum=sum+a0

可以用C吗?

Dim S As Single
Dim i As Integer
Dim N As Integer
Dim H As Single

'1 S = H
'2 S = H + H
'3 S = H + H + H / 2
'4 S = H + H + H / 2 + H / 4
'5 S = H + H + H / 2 + H / 4 + H / 8
'6 S = H + H + H / 2 + H / 4 + H / 8 + H / 16

'1 s=h
'2 s=s+h
'3 s=s+h/(2^(3-2))
'4 s=s+h/(2^(4-2))
'5 s=s+h/(2^(5-2))
'6 s=s+h/(2^(6-2))

H = 200
N = 10
S = 2 * H
For i = 3 To N
S = S + H / (2 ^ (i - 2))
Next

MsgBox S

分析：第一次下落经过200 弹起经过100 在下落又经过100所以前两次就不必再算了 然后又弹起50 又下落50，又起25 又下25 ……总之手算结果是599.21875
起落次数：…………1………2………3………4………5………6…………