La pelota cae libremente desde una altura de 100 metros. Cada vez que golpea el suelo, rebota hasta la mitad de su altura original y luego cae nuevamente. Utilice el lenguaje de programación VB para programarla para que caiga por décima vez.
Subcomando privado1_Click()
s = 100
h = 100
Para i = 2 a 10
s = s + h
h = h / 2
Siguiente i
MsgBox ("*** pasado durante el décimo aterrizaje" & s & "米")
End Sub