VB6中如何使用Round函数将数值x四舍五入到最近的整数？

本文共计295个文字，预计阅读时间需要2分钟。

长期以来，我的公司出现了一些意想不到的结果，我发现了这个问题：Dim k As Double, Dim r As Integer; k=182.5; r=Round(k, 0); r的结果是182，这给我的公司带来了问题，我现在必须解决这个问题。