求帮忙看一下呗，真心谢谢了，找不到哪里出错
Dim tana, delta, step, u, texpr, xp, yp, xt, yt, k, xb, yb, del As Double
Dim xa, ya As Single


Private Sub Command1_Click()
a = Val(Text1.Text)
m = Val(Text3.Text)
xa = Val(Text6.Text)
Text4.Text = "xb=" & Str(xb) & vbCrLf & "yb=" & Str(yb)
ya = a * x ^ 2
For tana = delta To 0.00001 Step m
u = Sqr(delta ^ 2 - tana ^ 2)
texpr = 4 * a * u ^ 3 + 4 * a * u * tana ^ 2 - 4 * a * u ^ 2 * ya - tana ^ 2 + 4 * a * u * tana * xa
If texpr < 0.00001 And texpr > 0 Then Exit For
Next
xp = xa + tana: yp = ya + u
xt = tana / (2 * a * u): yt = a * xt ^ 2
k = (yp - yt) / (xp - xt)
del = Sqr(k ^ 2 - 4 * a * (k * xa - ya))
xb = (k + del) / (2 * xa)
yb = a * xb ^ 2
End Sub

求帮忙看看呗，谢谢各位大神了，我是刚开始学习，正在编算法

自己看呗

xt = tana / (2 * a * u)  如果除数是0  那么a 或 u 必有一个是0  再往上返a u

嗯嗯，是啊，可是我赋值的什么都不是零，我自己觉得只能是u那用根号求值时他自己给弄成零了，可能是数太小，那怎么样改啊

就是要求b点的坐标，利用各种方程

开方出来会比这个更小?
Dim i As Double
i = Sqr(9.88131291682493E-324)
Form1.Print i
Form1.Print 1 / i
没仔细看,参考这个
http://www.

[ 本帖最后由 lianyicq 于 2015-3-27 11:35 编辑 ]

不会比这个小，你这个更小，可是我这哪里错了啊

我就是参考的这个，可是出错了

建议加option explicti
另外delta没赋值