简单VB编程题 急！！！（做出附加悬赏分给他）

来源：百度知道 编辑：UC知道 时间：2024/06/30 22:40:57
题目是：
一个球从100m高度自由落下，每次落地后反跳回原来高度的一半，再落下。求它第10次落地时，共经过多少米？落地10次反弹高度多少？

用Vb编出来！！

我来给你列出详细的代码+注释:
Private Sub Form_Click()
Dim i As Integer, j As Single, g As Single, x As Single
g = 100 '初始化落地高度
For i = 1 To 10 '弹起10次
x = g '第i次的落地高度
g = g / 2 '第i次的弹起高度
Print "第" & i & "次落地高度:" & x
Print "第" & i & "次弹起高度:" & g
j = j + (x + g) '落地高+弹起高赋值给总路程
Next i
Print "共经过 " & j & " 米"
End Sub

修正一次
Private Sub Command2_Click()
Dim a, s, h As Single
h = 100
s = 100
For i = 1 To 10
h = h / 2
s = s + h*2
Next
Print h;'最后一次弹起时的高度
Print s-h*2
'最后一次弹起时经过的路程
End Sub

Private Sub Command1_Click()
h = 100
For i = 1 To 10
s = s + h '落下
h = h / 2
s = s + h '弹起
Next
Print "第十次落地时经过" & s - h & "米"
Print "第十次落地后弹起" & h & "米"
End Sub