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

下面是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

过程分析：
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

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