求助大神

Private Sub Commandl_Click()
Static slx(50), ap(50) As Single
Dim t, e, E1, tb As Single
Listl.Clear
List2.Clear
List3.Clear
List4.Clear
List5.Clear
List6.Clear
List7.Clear
Pi = 3.1416
E1=xxyx.Dp / 2 - xxyx.r - xxyx.L
tb = E1/ xxyx.U
eex = xxyx.L * Sin(xxyx.ee * 3.14 / xxyx.nn) / Sqr(1 - (Sin(xxyx.Q *3.14 / 360) ^ 2))
For j = 0 To tb Step 0.01
t =j
List1l.AddItem (t)
e = xxyx.U * j
a1=Sin(xxyx.ee * 3.14 / xxyx.nn)
a2= Sin(xxyx.Q * Pi / 360)
a3 = (1 - xxyx.ee) * Pi / xxyx.nn
a4 = (Pi / 2) + (Pi / kxyx.nn) - (xxyx.Q * Pi / 360) - (1 / Tan(xxyx.Q *Pi / 360))
If 0 <= e And e <= xxyx.r Then '燃层厚小于星根圆半径
a5= (e + xxyx.r) / ikxyx.L
a6 = (Sin(xxyx.ee * 3.14 / xxyx.nn)) / ((e + xxyx.r) / xxyx.L)
cosn = Sqr(1 - a1 ^ 2)
slx(j) = 2 * xxyx.nn * xxyx.L * ((a1 / a2)+ a3 + (a5 * a4) - ((xxyx.r - e) * Pi / (xxyx.L * xxyx.nn)))
slx(j) = slx(j) * Lx
a8 = (Sqr(1 - a1 ^ 2)) - al * (1 /Tan(xxyx.Q / 2))
a9 = xxyx.Q * Pi / 360 + 1 / Tan(xxyx.Q /2) - Pi / 2
ap(j) = xxyx.L ^ 2 * xxyx.nn * (a3 + (a1 *a8)) + 28 * xxyx.nn * xxyx.L * 2 * a5 * ((a1 / a2) + a3) + xxyx.nn * xxyx.L ^ 2* a5 * a4 + xxyx.nn * xxyx.L ^ 2 * a5 ^ 2 * a9
List2.AddItem (slx(j))
List7.AddItem (ap(j))
End If
If xxyx.r <= e And e <= eex Then '燃层厚大于等于星根圆半径并小于等于星边消失处的燃层厚
a5 = (e ^ 1 + xxyx.r ^ 1) / xyxL
a6 = (Sin(xxyx.ee * 3.14 / xxyx.nn)) / ((e+ xxyx.r) / xxyx.L)
slx(j) = 2 * xxyx.nn * xxyx.L * ((a1 / a2)^ 1 + a3 ^ 1 + (a5 * a4) ^ 1)
slx(j) = slx(j) * Lx
a8 = (Sqr(1 - a1 ^ 2)) ^ 1 - a1 ^ 1 * (1 /Tan(xxyx.Q / 2) ^ 1)
a9 = xxyx.Q * Pi / 360 + 1 / Tan(xxyx.Q *Pi / 360) - Pi / 2
ap(j) = xxyx.L ^ 2 * xxyx.nn * (a3 ^ 1 +(a1 * a8) ^ 1) + 2 * xxyx.nn * xxyx.L ^ 2 * a5 * ((a1 / a2) ^ L + a3 ^ 1) +xxyx.nn * xxyx.L ^ 2 * a5 ^ 2 * a4
List1.AddItem (t)
List2.Addltem (slx(j))
List7.AddItem (ap(j))
End If
If eex <= e And e <= E1 Then '燃层厚大于等于星边消失处的燃层厚并小于等于最大燃层厚
a5 = (e ^ 1 + xxyx.r ^ 1) / xxyx.L
a6 = (Sin(xxyx.ee * 3.14 / xxyx.nn)) / ((e+ xxyx.r) / xxyx.L)
a7 = Atn(a6 / (Sqr(a6 * a6 + 1)))
slx(j) = 2 * xxyx.nn * xxyx.L * (a3 ^ 1 +a5 * ((Pi / xxyx.nn) ^ 1 + a7 ^ 1))
slx(j) = slx(j) * Lx
a8 = (Sqr(1 - al ^ 2)) ^ 1 - a1 ^ 1 * (1 /Tan(xxyx.Q / 0.2) ^ 1)
a9 = xxyx.Q * Pi / 360 + L / Tan(xxyx.Q *Pi / 360) * Pi / 2
ap(j) = xxyx.L ^ 2 * xxyx.nn * (a3 ^ 1 +(a1 * a8) ^ 1) + 2 * xxyx.nn * xxyx.L * 2 * a5 * ((a1 / a2) ^ 1 + a3 * 1) +xxyx.nn * xxyx.L ^ 2 * a5 ^ 2 * a4 + xxyx.L ^ 2 * (Pi * a5 / xxyx.nn * a5 + a6* a7 + Sqr(1 - a6 ^ 2))
List1.AddItem (t)
List2.Addltem (slx(j))
List7.AddItem (ap(j))
End If
Next j
End Sub

太高大上了，围观一下