VB中这样取整用什么函数？如5⼀3=2，就是哪怕结果为1.1 取值也要为2（进1法吧）。

没有现成的函数,自己写一个吧,很简单
Function fixup(x As Double) As Integer
Dim a As Integer
a = Fix(x)
If a < x Then a = a + 1
fixup = a
End Function

你参数这两个函数吧，这是VB帮助文档中的示例。
Int 函数，Fix 函数示例
本示例说明Int 及 Fix
函数在返回某数值的整数部分时有何不同。当参数为负数时，Int 函数返回小于或等于该参数之最大整数，而 Fix 函数则返回大于或等于该参数之最小整数。
Dim MyNumber
MyNumber = Int(99.8)' 返回 99。
MyNumber = Fix(99.2)' 返回 99。

MyNumber = Int(-99.8) ' 返回 -100。
MyNumber = Fix(-99.8)' 返回 -99。

MyNumber = Int(-99.2) ' 返回 -100。
MyNumber = Fix(-99.2) ' 返回 -99。

如果确定结果不会是负值,那么可以利用Int函数处理负数的特性来解决
Abs(Int(5/3*-1))
Int+1的方法并不合适,因为如果结果为整数,那么+1就错了.
如果还有问题欢迎追问,问题解决请及时选为满意回答,谢谢.

int+1就是了。