作业帮 > 综合 > 作业

VB中这样取整用什么函数?如5/3=2,就是哪怕结果为1.1 取值也要为2(进1法吧).

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/14 12:28:01
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