浮点运算溢出怎样处理？

Question

在用VB6.0编写程序是遇到了
这样的问题搞了一个晚上也没有解决
两数相除如果能整除那很好
如果不能整除想取整后加一
也就是如果5/3结果就取2
我已经声明双精度但是除不尽就溢出
大家帮忙处理一下
我主要是想如果不能整除
其结果加一
郁闷ing!~!~

Answer 1

  Dim a As Double, b As Double
  a = -5
  b = 5
  Print a \ b + Sgn(a Mod b)

Answer 2

 Dim a As Double, b As Double 
 a = 5 
 b = 3
 Print a \ b + Sgn(a Mod b)

Answer 3

这里在 a ，b 都不能超出 long 的范围