用VB编写一个球从100米高处自由落下,每次着地后又跳回原来高度的一半再落下,第10次反弹的高度是多少

题目

用VB编写一个球从100米高处自由落下,每次着地后又跳回原来高度的一半再落下,第10次反弹的高度是多少

答案

Private Sub Command1_Click()
h = 100
n = 0
Do
h = h / 2
n = n + 1
Loop While n < 10
MsgBox h
End Sub