我自己定义一个函数，但是老是“溢出”，怎么回事，请高手指点！内容是这样的，
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

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

试试

多谢，不过还是不行啊，

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

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

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

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