vb基础编程求助

来源：百度知道 编辑：UC知道 时间：2024/05/21 19:45:13
一个球从10米的高处落下,它每次反弹的高度为前一次下落高度的2/3,编写程序计算球第10次落地时运动的总路程.

求助用VB编这个程序.

先建两个list控件一个command控件
Private Sub Command1_Click()
Dim Zongchangdu As Double
Dim Meicichangdu As Double
Dim Cishu As Integer

Zongchangdu = 0
Meicichangdu = 10

For Cishu = 1 To 10 Step 1

If Cishu = 1 Then
Zongchangdu = 10
List1.AddItem "第" & Cishu - 1 & "次落地到第" & Cishu & "次落地走过路程为" & Meicichangdu & "米。"
Else
Meicichangdu = Meicichangdu * 2 / 3
List1.AddItem "第" & Cishu - 1 & "次落地到第" & Cishu & "次落地走过路程为" & 2 * Meicichangdu & "米。"
Zongchangdu = Zongchangdu + Meicichangdu * 2
End If

List2.AddItem "第" & Cishu & "次落地时走过的总路程为：" & Zongchangdu & "米。"

Next
End Sub

dim n as Integer,s as Integer ,s' as Integer
n=10
s=0
s'=0
for i=1 to 10
select case i
case 1
s=10
case 10