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