求大家帮手写个VB程序!

来源：百度知道 编辑：UC知道 时间：2024/05/26 20:22:42
题目:有个球从100M的高空中自由下落,每次落到地上都会弹回高度的一半,(就是假如第一次弹回50M,第二次就会弹回弹25M),求10次落地的总米数与弹起了的总米数,会编的朋友请帮个忙!很着急的!

只要一个Command按钮就行了，我做的代码如下：
Private Sub Command1_Click()
Dim a, b, c As Double
Dim i As Integer
a = 100
b = 0
c = 0
For i = 1 To 10
c = c + a
a = a / 2
b = a + b
Next i
Print "下落的总米数为"; c; "米"
Print "弹起的总米数为"; b; "米"
End Sub

Function getTotal(downCount As Integer)

initMeter = 100
getTotal = initMeter
i = 1
While i <= downCount
initMeter = initMeter / 2
getTotal = getTotal + initMeter * 2

i = i + 1
Wend

End Function