VB 求余求整

可以直接用函数来实现：
　　1、用CInt()函数的范围在-32,768 至 32,767，对于小数部分四舍五入 。
　　2、用Int（）函数和Fix（）函数都会删除参数的小数部份而返回剩下的整数，
　　　 不同之处在于，如果参数为负数 则Int（）函数返回小于或等于参数的第一个负整数，
      而Fix（）函数则会返回大于或等于参数的第一个负整数。