用VB编写一个球从100米高处*落下,每次着地后又跳回原来高度的一半再落下,第10次反弹的高度是多少
问题描述：
用VB编写一个球从100米高处*落下,每次着地后又跳回原来高度的一半再落下,第10次反弹的高度是多少
答
Private Sub Command1_Click()
h = 100
n = 0
Do
h = h / 2
n = n + 1
Loop While n MsgBox h
End Sub