58问答库 > 皮球从100米高度自由落下，每次落地后反跳回原高度的一半，再落下，用vb编程语言编程它在第10次落

皮球从100米高度自由落下，每次落地后反跳回原高度的一半，再落下，用vb编程语言编程它在第10次落

2024-11-30 04:42:15

推荐回答（4个）

回答（1）：

Private Sub Command1_Click()

s = 100

h = 100

For i = 2 To 10

s = s + h

h = h / 2

Next i

MsgBox ("第10次落地时共经过" & s & "米")

End Sub

回答（2）：

创建一个text1、一个command
复制下面代码
Private Sub Command1_Click()
Dim i As Integer
s = 100
Text1.Text = "100"
For i = 2 To 10 '从第一次落地后到最后一次落地。
s = s / 2
Text1.Text = Val(Text1.Text) +2* s '每次弹起后落地会有个双路程
Next i
End Sub

回答（3）：

因为每次反弹起来，都是上一次高度的一半，所以这个用一个循环就能很好地解决问题。
Dim hi As Long ,i As Long
hi = 100 '定义第一次落下时的高度
for i = 1 to 10 '循环10次，分别对应1-次落下
hi = hi \ 2 '每次落下后，下次弹起的高度为上一次高度的一半
next
第10次落下后反弹的高度为hi

回答（4）：

~2OO