填空题

一小球从100米高度自由落下，每次落地后反跳回原高度的一半；再落下，求它在第10次落地时，共经过多少米
程序如下：
Private Sub Command1_Click( )
Dim s As Integer, h As Single
s=100
h= ① /s表示总共路程，h表示每次的反弹高度；
For n=2 To 10
s=s+2*h
h= ②
Next
Print s
End Sub
为了实现这一目标，在程序划线处应填入的合适表达式或语句分别是：
①______
②______