Question

有关VB6 for next语句的问题 急急急急急急急急急急！！！好的加分！！！！！！！！！！！

小球从高处落下，每次落地后反弹，反弹高度为原高度的一半，再落地，弹起，再弹起，高度为上次弹起高度一半，类推。
text1输初始高度
text2输弹跳次数
单击"计算（command1）"label4中显示其经弹起后经过的距离
望高人解决
加了个label6，单击"计算（command1）"label6中显示最后一次弹起高度





Answer 1

下面是Command1单击事件代码。。
Private Sub Command1_Click()
On Error GoTo err
Dim a As Integer
a = Me.Text1
Me.Label4.Caption = 0
For i = 1 To Text2
Me.Label4.Caption = Me.Label4.Caption + a + a / 2
a = a / 2
Next
Me.Label6.Caption = a
Exit Sub
err:
MsgBox err.Description
End Sub

追问

.....这代码有点高级，请用for next 语句

追答

晕，这里用的就是 for next 语句啊！
For i = 1 To Text2
Next
但是，单凭 for next 语句是不会得出正确结果的。可以说，这已经是最简练的了。。

Answer 2

过程分析：
1、落地-弹起是一个周期。
2、落地前高度是该周期的初始参数H，运动距离是S = 1.5H，S是该周期的运动结果。
3、H是变量，需要迭代替换，S则需要累加。
程序实现如下：
Private Sub Command1_Click()
Dim h As Double
Dim s As Double
Dim n As Integer
'初始化变量
h = 0
n = 0
s = 0

'使用文本前做合法性判断
If IsNumeric(Text1.Text) Then h = Text1.Text
If IsNumeric(Text2.Text) And CStr(CInt(Text2.Text)) = Text2.Text Then n = CInt(Text2.Text)
If h > 0 And n > 0 Then
Dim i As Integer
For i = 1 To n
s = s + 1.5 * h
h = h / 2
Next
Label4.Caption = s
Label6.Caption = h
End If
End Sub

Answer 3

先列好数学公式，再把公式转换成代码即可，关键在公式