| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1099 人关注过本帖
标题:用SQR函数就出现错误
只看楼主 加入收藏
sclx88
Rank: 1
等 级:新手上路
帖 子:41
专家分:0
注 册:2016-7-31
结帖率:100%
收藏
 问题点数:0 回复次数:3 
用SQR函数就出现错误
放代码

程序代码:
Private Sub Command2_Click(Index As Integer)
Dim a As Double
Dim y As Double
Dim s As Double
a = (Val(Combo1(0)) - 1) / Val(Text1(0)) '(n-1)/f
y = Val(Text1(1))
s = a - Sqr(a ^ 2 - y ^ 2)
Label3(0) = s + Val(Text1(4))
End Sub


运行后就出现 实时错误"5"
请问这个是怎么回事

[此贴子已经被作者于2016-8-14 00:11编辑过]

2016-08-13 21:39
sclx88
Rank: 1
等 级:新手上路
帖 子:41
专家分:0
注 册:2016-7-31
收藏
得分:0 
来人啊 大神们帮看看啊 问题确实是那个开方函数,即使换成1/2次方也是一样的错误
2016-08-14 14:55
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:941
专家分:5244
注 册:2015-8-10
收藏
得分:0 
a ^ 2 - y ^ 2会不会是负数?
2016-08-14 17:32
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:0 
回复 楼主 sclx88
s = a - Sqr(a ^ 2 - y ^ 2)
修改为:
s = a - Sqr(Abs(a ^ 2 - y ^ 2))

请不要选我!!!
2016-08-14 22:59
快速回复:用SQR函数就出现错误
数据加载中...
 
   



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

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