标题:为什么调试的时候总是提示我说xt = tana / (2 * a * u)这除数为0
只看楼主
hongxiang900
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2015-3-27
结帖率:0
已结贴  问题点数:20 回复次数:13 
为什么调试的时候总是提示我说xt = tana / (2 * a * u)这除数为0
求帮忙看一下呗,真心谢谢了,找不到哪里出错
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
2015-03-27 10:31
hongxiang900
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2015-3-27
得分:0 
求帮忙看看呗,谢谢各位大神了,我是刚开始学习,正在编算法
2015-03-27 10:33
wp231957
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:神界
等 级:版主
威 望:422
帖 子:13681
专家分:53296
注 册:2012-10-18
得分:7 
自己看呗

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

DO IT YOURSELF !
2015-03-27 10:37
hongxiang900
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2015-3-27
得分:0 
回复 3楼 wp231957
嗯嗯,是啊,可是我赋值的什么都不是零,我自己觉得只能是u那用根号求值时他自己给弄成零了,可能是数太小,那怎么样改啊
2015-03-27 11:08
hongxiang900
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2015-3-27
得分:0 
2015-03-27 11:27
hongxiang900
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2015-3-27
得分:0 
就是要求b点的坐标,利用各种方程
2015-03-27 11:27
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:735
专家分:3478
注 册:2013-1-26
得分:7 
开方出来会比这个更小?
Dim i As Double
i = Sqr(9.88131291682493E-324)
Form1.Print i
Form1.Print 1 / i
没仔细看,参考这个
http://www.

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

大开眼界
2015-03-27 11:30
hongxiang900
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2015-3-27
得分:0 
回复 7楼 lianyicq
不会比这个小,你这个更小,可是我这哪里错了啊
2015-03-27 11:42
hongxiang900
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2015-3-27
得分:0 
回复 7楼 lianyicq
我就是参考的这个,可是出错了
2015-03-27 11:42
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:735
专家分:3478
注 册:2013-1-26
得分:0 
建议加option explicti
另外delta没赋值

大开眼界
2015-03-27 11:50



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-443164-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 1.715541 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved