用SQR函数就出现错误

sclx88 发布于 2016-08-13 21:39， 1179 次点击

放代码

程序代码：

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编辑过]

3 回复

sclx882016-08-14 14:55

来人啊大神们帮看看啊问题确实是那个开方函数，即使换成1/2次方也是一样的错误

xiangyue05102016-08-14 17:32

a ^ 2 - y ^ 2会不会是负数？

ZHRXJR2016-08-14 22:59

回复楼主 sclx88

s = a - Sqr(a ^ 2 - y ^ 2)
修改为：
s = a - Sqr(Abs(a ^ 2 - y ^ 2))