vb求助，救命呀

Private Sub Command1_Click()
Dim w, tl, h, n, e, dm, v, c1, c2 As Double
tl = Val(Text1.Text)
h = Val(Text2.Text)
n = Val(Text4.Text)
w = Val(Text3.Text)
e = Val(Text5.Text)
l0 = (tl / w) * Log((w * h / tl + 1) + Sqr((w * h / tl + 1) ^ 2 - 1))
s0 = tl / w * ((Exp(w * l0 / tl) - Exp(-w * l0 / tl))) / 2
ds = s0 / n
dm = Val(Text9.Text)
v = Val(Text10.Text)
c1 = Val(Text7.Text)
c2 = Val(Text8.Text)
ReDim A(n), tx(n), x(n), y(n), tz(n), t(n), d(n), f(n) As Double
For i = n To 1 Step -1
A(i) = Atn(w * s0 / tl)
c = tl / (e * 0.25 * dm ^ 2 * 3.14)
tx(i) = tl
x(i) = l0
y(i) = h
tz(i) = tx(i) * Tan(A(i))
d(i) = 0.5 * c1 * dm * v ^ 2 * Sin(A(i)) ^ 2
f(i) = 0.5 * 3.14 * c2 * dm * v ^ 2 * Cos(A(i)) ^ 2
t(i) = Sqr((tx(i)) ^ 2 + (tz(i)) ^ 2)
A(i - 1) = A(i) - A(i) / n
x(i - 1) = x(i) - (ds + c * ds) * Cos(A(i))
y(i - 1) = y(i) - (ds + c