VBA综练一

rmsc_kr

题目：一球从100米高度自由落下，每次落地后反跳回原高度的一半；再落下，求它在
　　　第10次落地时，共经过多少米？第10次反弹多高？
Sub 练习1()
Dim x As Single
Dim c, k As Single
c = 100
For y = 1 To 10
If y = 1 Then
x = c / 2
k = x
Else
x = x / 2
k = k + x
End If
Next
MsgBox "第10次总共反弹了" & k & "米"
End Sub


扩展练习：
Sub 练习2()
Dim x, y As Single
Dim c, k As Single
c = 100
y = InputBox("请输入小于10的数字:")
For y = 1 To y
If y = 1 Then
x = c / 2
k = x
Else
x = x / 2
k = k + x
End If
Next
MsgBox "第" & y - 1 & "次总共反弹了" & k & "米"
End Sub

rmsc_kr

以上每题差一句话：
练习一、MsgBox "第10次反弹了" & x & "米"
练习二、MsgBox "第" & y - 1 & "次反弹了" & x & "米"

zx_wl

学习了