VB 这段代码对吗

显示全部楼层 · 2010-10-8 15:18:44

一个小球从100米高度下落,每次落地后反弹高度为原高度的一半,问落地第十次反弹高度？
a=100 原始高度
b=2每次弹起一半
for i = 1 to 10共10次
s=0
s=a/b 每次弹起高度除以2
a=s将结果送回a,以便下次计算
next i
print s
请问这个代码对吗

千问 · 2010-10-8 15:18:44

对的s只是个中间变量初始化也没有问题不过可以更简洁

千问 · 2010-10-8 15:18:44

不对 Dim a As IntegerDim b As IntegerDim i As IntegerDim s As Integera = 100b = 2For i = 1 To 10s = a /b ^ iPrint sNext

千问 · 2010-10-8 15:18:44

有问题，先不说它对不对。我也是刚学这个。不过我看你这个s=0肯定是写错位置了。怎么可以写在那里面呢。你自己想想程序执行的顺序。第一次循环时s=0再一次循环，它是从i=2开始执行。那个s你又让它为零了。再想想吧。

千问 · 2010-10-8 15:18:44

a=100 原始高度b=2每次弹起一半s=0for i = 1 to 10共10次s=a/b 每次弹起高度除以2a=s将结果送回a,以便下次计算next iprint s

千问 · 2010-10-8 15:18:44

youkeneng