高校问答鬼斧神器霸梦决攻略:碰到一个数学问题...麻烦VB高手来帮帮忙,感谢!
来源：百度文库 编辑：高校问答 时间：2024/04/28 07:24:06
题目如下:
一个球体从179英尺的高度下落..每次弹起的高度为前一次高度的1/10,问在它停止跳动时一共经过了多少距离?
A.214英尺 B.218英尺 C.222英尺 D.226英尺 E.230英尺
既然学vb,所以突然想到用vb来解决这个题目!求VB老鸟们帮忙作答!
PS:以下是我写的一段代码
Private Sub Command1_Click()
Dim s!, sum!
s = 179
While s > 0
s = s * (1 / 10)
Print s
Wend
End Sub
我是想把上面的各个数*2再加179就是答案了,可是不知道怎么求和
我试想过用循环语句赋值到数组中..就是不知道怎么写代码-_-
麻烦各位了!
一个球体从179英尺的高度下落..每次弹起的高度为前一次高度的1/10,问在它停止跳动时一共经过了多少距离?
A.214英尺 B.218英尺 C.222英尺 D.226英尺 E.230英尺
既然学vb,所以突然想到用vb来解决这个题目!求VB老鸟们帮忙作答!
PS:以下是我写的一段代码
Private Sub Command1_Click()
Dim s!, sum!
s = 179
While s > 0
s = s * (1 / 10)
Print s
Wend
End Sub
我是想把上面的各个数*2再加179就是答案了,可是不知道怎么求和
我试想过用循环语句赋值到数组中..就是不知道怎么写代码-_-
麻烦各位了!
Dim s!, sum!
s = 179
sum = 179
While s > 0
s = s * (1 / 10)
sum = sum + s * 2
'Print s
Wend
Print "最后结果" & sum