关于vb中函数的应用

随心232 发布于 2012-06-05 00:32， 551 次点击

我自己定义一个函数，但是老是“溢出”，怎么回事，请高手指点！内容是这样的，
Private Function F2(ByVal h As Long)
F2 = 3 * Q ^ 2 * (b + 2 * m * h) ^ 2 / (b * h + m * h ^ 2) - 2 * m * Q ^ 2 / 9.8 / (b * h + m * h ^ 2) ^ 3
End Function

4 回复

风吹过b2012-06-05 08:14

Private Function F2(ByVal h As Long) as long
F2 = 3 * Q ^ 2 * (b + 2 * m * h) ^ 2 / (b * h + m * h ^ 2) - 2 * m * Q ^ 2 / 9.8 / (b * h + m * h ^ 2) ^ 3
End Function

试试

随心2322012-06-05 23:17

多谢，不过还是不行啊，

风吹过b2012-06-06 08:22

那就是在这里面产生了溢出，

F2 = 3 * Q ^ 2 * (b + 2 * m * h) ^ 2 / (b * h + m * h ^ 2) - 2 * m * Q ^ 2 / 9.8 / (b * h + m * h ^ 2) ^ 3

那把这个表达式，写成多步的，分步测试具体在那一步溢出，然后再修改变量的定义，以便容纳更大的数据。

czzgwz888882012-06-28 10:34

回复楼主随心232

Private Function F2(ByVal h As Long) as double试试