Question

一道初中课本里的VB编程题(Visual Basic)

这是初中信息技术第三册上里的一道题,用的都是最简单的程序
一球从100米高度自由落下，每次落地反跳回原高度的一半，再落下。求它在第10次落地时，共经过多少米？

Answer 1

一楼的错了！正确的为：
Dim S As Double, H As Double
S = 0
H = 100
For i = 1 To 10
S = S + H
H = H / 2
Next i
Me.Print "第十次落地时共经过" & s &"米！"

Answer 2

Dim S As Double,H As Double
S = 0
H = 100
For i = 1 To 10
S = S + H
H = H / 2
Next i
Me.Print "它在第10次落地时，共经过" & s &"米。"

Answer 3

Private Sub Command1_Click()
s = 100
h = 100
For i = 1 To 2
h = 100 / 2 ^ (i - 1)
s = s + h
Next i
Print "共经过:"; s
End Sub

Answer 4

现在初中孩子的问题都这么难？！
S=0;
H=100;
S=S+H;
for i=2:10,h=h/2;S=S+2*h;end
S
h

Answer 5

Dim S As Long, A As Long
S = 100
A = 100
For i = 1 To 9
S = S + A
A = A / 2
Next
MsgBox S